Discussion :

[samtheh]

Bonjour à tous,

Je réalise des export de données vers Excel, pour cela j'ouvre mon fichier excel de cette facon :

Code :

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

1
2
3
4
 
If DirectoryExists(chemin & nom_doc) = True Then
        Set wbExcel = appExcel.Workbooks.Open(chemin & nom_doc)
...

cela marche très bien, mais le problème c'est que si l'utilisateur laisse ouvert le fichier excel, pour regarder les infos contenues, et si pendant le même temps il refait un export mon programme plante car le fichier ne peut etre ouvert en ecriture deux fois. Comment attraper et gerer cette erreur ?

[cavo789]

Vérifie si le fichier est déjà ouvert : comme tu sais déjà faire de l'automation Excel, il faut donc que tu regardes dans la collection Workbooks si un fichier dont le .FullName correspond au nom de ton fichier d'export. Si c'est le cas, tu affiches un popup afin de demander à l'utilisateur de fermer le fichier dont il est question.

[samtheh]

Je n'ai pas tout saisi, c'est possible de détailler un peu plus ?

Merci beaucoup en tout cas !

[cavo789]

En te basant un peu sur ton code; essaie un truc du genre

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
 
Dim bAskQuit As Boolean
 
bAskQuit = False
 
For each wbExcel In appExcel.Workbooks
   If wbExcel.FullName = Chemin & nom_Doc then
      Msgbox "Le fichier est déjà ouvert"
      bAskQuit = True
      Exit For
   End if
Next
 
If Not bAskQuit Then
   ' Fais l'exportation
End if

Attention, j'ai tapé le code "à la volée"; je n'ai rien testé. Il te faudra sûrement adapter l'un ou l'autre truc.

[samtheh]

Cela ne fonctionne pas.....

Mon fichier est bien ouvert, il me fait bien l'erreur au moment de la sauvegarde mais il ne rentre pas dans la boucle ci-dessus (for each) ....

Comment faire ?

[DMboup]

Comment attraper et gerer cette erreur ?

Il ya la question et la réponse en même temps. Il faut mettre sur place la gestion de l'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
....
On Error Goto GestErr
 
 
 
 
GestErr:
       IF Err.Number='Le numéro de l'erreur qui survient then
              msgbox "Le fichier est déjà ouvert"
       End if
       ............
 
.....

[samtheh]

Ca fonctionne avec la gestion d'erreur !!! Merci bien