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