Discussion :

[evranger]

Bonjour,

Je rencontre un soucis avec une macro vba. Dans celle-ci je réalise l'ouverture d'une fichier excel généré la veille par la même macro.

Lors de l'exécution de la macro, celle-ci bloque sur l'ouverture du fichier du jour précédent.
J'ai une erreur 1004 : La méthode 'Open' de l'objet 'Workbooks' a échoué.
Lorsque je clique sur débogage, j'identifie bien la ligne où se situe le workbooks.open

Le truc bizarre, c'est que lorsque je clique sur "play" pour continuer l’exécution de la macro, ce coup-ci l'ouverture du fichier se fait correctement et la macro se termine.
Donc à chaque fois que je lance la macro, je suis obligé de réaliser cette action manuellement : débogage et play pour finir l’exécution de la macro.

Je ne vous joins que la partie concernant l'ouverture du fichier.
A noter que le fichier du jour précédent est correctement nommé, bien existant et qu'il s'agit d'un fichier partagé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub RecupInfosPRE()
Dim FichierPRE As String
Dim JourPRE As Date
Dim wbExcel As Workbook
 
JourPRE = WorksheetFunction.WorkDay(Date, -1)
 
FichierPRE = "test_" & Year(JourPRE) & Month(JourPRE) & Day(JourPRE) & ".xlsx"
Set wbExcel = Workbooks.Open("S:\test\" & FichierPRE)
 
End Sub

Sauriez-vous m'indiquer si la méthode que j'utilise pour l'ouverture du fichier est correcte et d'où pourrait provenir cette erreur ?

Merci d'avance pour votre retour,

Cdt,

[Shampra]

Bonjour,

En vrac :
- Fichier pas déjà ouvert dans le code?
- lecteur S : lecteur réseau? Tester en local. Si ça marche il faudrait vérifier les droits
- peut-être fichier corrompu? JE confirme que ça peut coincer : même si ouvrir le fichier normalement sans erreur notable, VBA lui en trouve et abandonne pour un rien

Vu que le fichier s'ouvre en relançant en débuggage, il est présent (sinon il faudrait ajouter un test avec Dir dans mon code ci-dessous pour exclure ce problème).

Code à essayer :

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
 
Private Sub RecupInfosPRE()
Dim FichierPRE As String
Dim JourPRE As Date
Dim wbExcel As Workbook
 
JourPRE = WorksheetFunction.WorkDay(Date, -1)
FichierPRE = "test_" & Year(JourPRE) & Month(JourPRE) & Day(JourPRE) & ".xlsx"
 
' Déjà ouvert? Si on la box, il faudra vérifier le code
For Each fich In Workbooks
If fich.Name = FichierPRE Then MsgBox ("C'est déjà ouvert!")
Next
 
' On ajoute des paramètres:
' 0 : désactivation de UpdateLinks, je ne sais si ça peut bloquer mais dans le doute...
' False : pas d'ouverture en lecture seule (ce n'est pas le cas normalement là, mais bon...)
' xlRepairFile : mode "réparation"; on peut aussi mettre  xlExtractData "extraction de données" qui répare aussi et est peut-être moins ciblé (honnêtement, je ne maitrise pas la différence)
Set wbExcel = Workbooks.Open("S:\test\" & FichierPRE, 0, False, , , , , , , , , , , ,   xlRepairFile )

[mjpmjp]

bonjour,
comment as tu enregistré le fichier, le nom exact ?
@+JP

[evranger]

Bonjour,


L'ajout du paramètre "xlRepairFile" pour l'ouverture du fichier a bien corrigé le problème.
Je constate qu'il corrige des onglets à l'ouverture et celui-ci s'ouvre désormais correctement à chaque lancement de la macro.

Merci Shampra !!!


Cordialement,