Question : Comment ajouter une barre de chargement

Bonjour, le

I ont le code ci-dessous qui importe un bilan dans une table d'accès. Avant qu'il fasse, il apporte quelques modifications et supprime quelques rangées. Ceci peut prendre 30 secondes impaires. Tandis qu'il se produit l'utilisateur est-il ignorant de ce qui est happening.

Is là me code peut incorporé à mon code ci-dessous montrer une barre laoding/progrès ?

Thanks, class= " lineNumbers " >

1 de >
Seamus


le 


If IsNull (Me.txtFileName) ou Len de >

Private Command0_Click de class= de 
 MsgBox « choisissent svp le dossier " sortie Sub
End d'exceler du 
 Me.cm dSelect.SetFocus
 si 'endroit l'extrémité si le xlApp du here


Dim comme objet, xlWbSource comme objet, xlWsSource comme Object
Dim xlWbDest comme objet, xlWsDest comme Object
Dim LastR aussi longtemps, xlFile que le 
Dim WbSourcePath de String
 comme String
Dim WbDestPath comme String
xlFile = Me.txt FileName
WbSourcePath = xlFile
WbDestPath = partait (xlFile, InStr (xlFile, » .xls ") - 1) et « _Updated.xls "

Const WsSourceName comme corde = comme corde = « zones de tri » « xlUp de l'update
Const en tant que longtemps = xlApp du 
Set de -4162
 = xlWbSource de 
Set de CreateObject update
Const WsDestName (« Excel.Application ») = xlWsSource du 
Set de xlApp.Workbooks.Open (WbSourcePath) = 
Set de xlWbSource.Worksheets (WsSourceName) xlWbDest = xlApp.Workbooks.Add
Set xlWsDest = xlWbDest.Worksheets (1)
xlWsDest.Name = xlWsSource
 LastR de 
With de WsDestName
 =. Cellules (. Rows.Count, « a »). Extrémité (xlUp). Row
. Gamme (« c1 : c » et LastR). Copier xlWsDest. 
. Gamme (« g1 : g » et LastR). Copier xlWsDest. 
. Gamme (« j1 : j » et LastR). Copier xlWsDest. 
. Gamme (« k1 : k » et LastR). Copier xlWsDest. 
. Gamme (« l1 : l » et LastR). Copier xlWsDest. 
. Gamme (« m1 : m » et LastR). Copier xlWsDest. 
. Gamme (« n1 : n » et LastR). Copier xlWsDest. 
. Gamme (« o1 : o » et LastR). Copier xlWsDest. 
. Gamme (« ad1 : annonce » et LastR). Copier xlWsDest. 
. Gamme (« ae1 : les EA » et le LastR). Copier xlWsDest. 
. Gamme (« af1 : af » et LastR). Copier xlWsDest. 
. Gamme (« ag1 : AG » et LastR). Copier xlWsDest. 
. Gamme (« ah1 : oh » et LastR). Copier xlWsDest. 
. Gamme (« ay1 : ay » et LastR). Copier xlWsDest. 
. Gamme (« az1 : az » et LastR). Copier xlWsDest. 
. Gamme (« ba1 : Ba » et LastR). Copier xlWsDest. 
. Gamme (« bb1 : bb » et LastR). Copier xlWsDest. 
. Gamme (« bc1 : avant Jésus Christ » et LastR). Copier xlWsDest. 
. Gamme (« bf1 : FB » et LastR). Copier xlWsDest. 
. Gamme (« bg1 : la BG » et le LastR). Copier xlWsDest. 
. Gamme (« bh1 : le BH » et le LastR). Copier xlWsDest. 
. Gamme (« bi1 : Bi » et LastR). Copier xlWsDest. 
. Gamme (« bj1 : le BJ » et le LastR). Copier xlWsDest. 
. Gamme (« ca1 : Ca » et LastR). Copier xlWsDest. 
. Gamme (« cb1 : Cb » et LastR). Copier xlWsDest. 
. Gamme (« cc1 : cc » et LastR). Copier xlWsDest. 
. Gamme (« cd1 : Cd » et LastR). Copier xlWsDest. 
. Gamme (« ce1 : ce » et LastR). Copier xlWsDest. le 
If du 
xlWbSource.Close False
 du 
End With
 xlApp.Version < 12 Then
 xlWbDest.SaveAs WbDestPath
Else
 xlWbDest.SaveAs WbDestPath, xlWsSource du 
Set de 56
End If
xlWbDest.Close False
 = xlWbSource de Nothing
Set = Nothing
Set xlWsDest = Nothing
Set xlWbDest = xlApp de Nothing
xlApp.Quit
Set = 

DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel9 de Nothing
, « importation de McLagan », données du 
MsgBox des « McLagan de WbDestPath
 a importé " strStartDir secondaire secondaire du 

 de cmdSelect_Click du 
 DoCmd.Quit
End Sub

Private de cmdQuit_Click du 

End Sub

Private () () le faible en tant que strFilter du 
 de String
 faible comme faibles lngFlags de String
 comme 
 de Long
     » Laisse le début le dossier passer en revue de notre strStartDir courant du 
 du directory
 = de strStartDir de CurrentDb.Name
 = est parti (strStartDir, Len (strStartDir) - Len (Dir (le strStartDir)))strFilter du 
 du 

 = nom de fichier du 
 Me.txt d'ahtAddFilterItem (le strFilter, le _
 « Excel classe (*.xls) », « *.xls ») = ahtCommonFileOpenSave (InitialDir : =strStartDir, filtre du _
 du  : =strFilter, FilterIndex : =3, drapeaux : =lngFlags, _
 DialogTitle : = erreur secondaire " choisie Err_Command1_Click


 DoCmd.Close

Exit_Command1_Click du 


On du 

End Sub

Private Command1_Click du 
 de dossier ») () : Sortie Sub

Err_Command1_Click du 
 : Résumé Exit_Command1_Click

End Sub


 du 
 MsgBox Err.Description


class= de 

Réponse : Comment ajouter une barre de chargement

Ce genre de point faible est existant dans SharePoint. Jeter un coup d'oeil à la synchro d'ANNONCE de SharePoint, qui résout ceci comme SUNILREPALE suggéré ci-dessus.