[AC-2007] Exportation Access vers Excel

[nefertari]

Bonsoir,

J'ai un fichier Excel dans lequel j'ai cinq tableaux croisées dynamiques, dans ce fichier j'exporte trois requêtes, et à la fin je l'enregistre sous un autre nom et je l'ouvre.

Voici le code :

Code :

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
42
 
Dim strChemin As String
Dim strNomfichier As String
 
        strChemin = CurrentProject.Path & "\Gestion_TEST.xlsx"
        strNomfichier = "Gestion_TEST.xlsx"
        Err.Clear
 
        'Ouvrir la matrice
        Dim fichXls As Object
        Set fichXls = CreateObject("Excel.Application")
        Dim fichW As Excel.Workbook
        fichXls.visible = False
        fichXls.UserControl = False
        Set fichW = fichXls.Workbooks.Open(strChemin)
 
        Me.lblInfo.Caption = "1/3 - Transfert des Factures..."
        Traitement_Factures strNomfichier, 2, fichXls
 
        Me.lblInfo.Caption = "2/3 - Transfert des Commandes..."
        Traitement_Commandes strNomfichier, 2, fichXls
 
        Me.lblInfo.Caption = "3/3 - Transfert des Fournisseurs..."
        Traitement_Fournisseurs strNomfichier, 2, fichXls
 
        On Error Resume Next
        Dim pathmatrice As String
        pathmatrice = "C:\"
 
        'Enregistrer le nouveau classeur
        fichW.SaveAs pathmatrice & "Gestion_" & Right(Date, 4) & ".xlsx"
 
        'Affichage du fichier
        fichW.Close
        Set fichW = fichXls.Workbooks.Open(pathmatrice & "Gestion_" & Right(Date, 4) & ".xlsx")
        fichXls.visible = True
        fichXls.UserControl = True
 
        Set fichW = Nothing
        Set fichXls = Nothing
 
        MsgBox "Export effectué dans le répertoire " & pathmatrice, vbInformation, "Export Excel"

Donc cela fonctionne bien, mais lorsque je veux ouvrir un autre fichier excel, il m'ouvre aussi le fichier que je suis entrain de préparer et du coup cela provoque une erreur.

Auriez-vous une idée pour éviter l'ouverture du fichier avant que le transfert soit terminer ?

Merci de vos réponses
Nefertari

[Philippe JOCHMANS]

Bonjour

Essayes de mettre l'instruction DoEvents après cette ligne :

Code :

fichW.Close

Philippe

[nefertari]

bonjour,

j'ai ajouter le DoEvents mais cela ne change rien. Lorsque je fais mon transfert, je ne peux pas ouvrir d'autres fichier Excel sinon le transfert plante.

Si quelqu'un aurais une autre idée ?

Merci par avance

[nefertari]

Bonsoir,

Je me permets de relancer sur ma demande car j'ai toujours le problème.

Le transfert s'effectue mais je ne attendre que le transfert soit finis avant d'ouvrir un autre fichier Excel.

est-il possible de bloquer l'instance que j'utilise pour le transfert ?

merci par avance
Nefertari

[loufab]

Bonjour,

Nulle part je ne vois de Quit.

Si tu regardes dans ton Gestionnaire de tâches le processus Excel doit toujours être là.

Tu peux t'inspirer du code d'export présent sur mon article sur la recherche dernière partie.

Cordialement,