Discussion :

[RJandeau]

Bonjour,

Cela fait maintenant deux semaines que je cherche, furète sur le WEB, aussi bien en français qu'en anglais, mais non, je ne trouve pas
D'habitude, et depuis bientôt deux ans, j'ai toujours trouvé mon bonheur sur ce site
Voila mon souci :
Dans mon application Access, j'ai une importation de données enregistrée (sur une base de 1.200.000 records en début d'année, qui finit à environ 2.400.000 records en fin d'année)
J'ai essayer avec le guide "créer un formulaire d'attente pour les longs traitements", ne serait-ce que pour avoir l'équivalent du Gif animé, afin d'indiquer que le système est en travail, mais il reste désespérément inactif … et je ne trouve pas pourquoi !
Je ne suis pas un spécialiste du VBA (plutôt un autodidacte, qui se limite à ce qui concerne les besoins de mon métier)
Donc soit je n'ai pas compris un point, soit il n'existe pas de solution
Dans tous les cas, je compte sur vos commentaires pour savoir quoi faire
Je vous joins un fichier texte du brouillon de mes recherches et supputations en exemple (pas trouvé comment mettre cela en fenêtre dans mon post … et finalement si )

C'est un brouillon (là où j'en suis, donc forcément …. pas très beau)
Par avance, merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Set oProgress = New clProgress
'oProgress.ProgressMin = 1
'oProgress.ProgressMax = lNbIterations
'oProgress.ProgressValue = 0
oProgress.GeneralInfo = "Veuillez patienter durant le traitement ... "
oProgress.AnimationTimer = 500 ' <== Lance l'animation
oProgress.Visible = True
' Boucle de traitement
DoEvents
        'Boucle de traitement
 
 
 
 
 
 
 
        'Effacement ancienne spécification temporaire
        For x = 0 To CurrentProject.ImportExportSpecifications.Count - 1
            If CurrentProject.ImportExportSpecifications.Item(x).Name = "TemporaryImport" Then
                CurrentProject.ImportExportSpecifications.Item("TemporaryImport").Delete
             x = CurrentProject.ImportExportSpecifications.Count
            End If
        Next x
 
        'Correction chemin nouvelle spécification
        Set OldSpec = CurrentProject.ImportExportSpecifications.Item("Importation-Base_ACP")
        CurrentProject.ImportExportSpecifications.Add "TemporaryImport", OldSpec.XML
        Set NewSpec = CurrentProject.ImportExportSpecifications.Item("TemporaryImport")
 
        NewSpec.XML = Replace(NewSpec.XML, "\\160.220.70.24\Documents Etablissement BLY\SERVICES\ADMINISTRATION\Partage C&amP\Application Access\Base_ACP.csv", NewPath)
        NewSpec.Execute
        Set NewSpec = Nothing
 
        Bouton_Import_01.Enabled = False
        Bouton_Import_02.Enabled = True
 
        Screen.MousePointer = 0                                    'Pointeur souris en forme normale
        'Fermeture du formulaire d'attente
Set oProgress = Nothing

[dahi67nb]

Bonjour,

J'ai déjà fait une fois un formulaire d'attente sur Excel et marchait bien, sauf que parfois le souci ça affiche en blanc!
Sur Access aussi, mais il interrompu le processus de programme VBA!.

Tu peux mettre ton code VBA STP?