Discussion :

[MonSavon]

Hello,

Alors voilà,
Je fais tourner mensuellement une petite macro qui réalise pour moi des simulations.
Bref, pour faire le fichier en question accède à un tierce fichier et il se trouve que ce mois-ci, une erreur survient.

Initialement j'avais :

Code :

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

1
2
 
Set WB_NG = Workbooks.Open(WS_tabdebord.Range("B2") & WS_tabdebord.Range("B4"), Editable:=True)

Que j'ai changé afin de pouvoir test mes variables :

Code :

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

1
2
3
4
 
Dim tPath As String
tPath = Dir(WS_tabdebord.Range("B2") & WS_tabdebord.Range("B4")) 'j observe que tPath n est pas "", et trouve bien le fichier
Set WB_NG = Workbooks.Open(tPath , Editable:=True) 'je lance la méthode > elle n'aboutira jamais : Erreur 1004.

Si quelqu'un connait les causes possibles d'une erreur 1004.

Après quelques lectures j'ai lu que cela pouvait être dû à une corruption du fichier; je n'espère pas mais je ne sais pas comment le tester - sachant que je peux l'ouvrir à la main.
Le fichier est sur un réseau mais j'ai testé l'ouverture du même fichier sur mon bureau l'erreur est la même.

J'ai essayé d'ouvrir un autre fichier vide (.xlsx) et je n'ai eu aucun pb (mon fichier est en .xlsb).

Merci d'avance!

Cdt,
MS

[joe.levrai]

Bonjour,

tPath contient le nom du fichier, et uniquement son nom.

Ajoute le chemin d'accès

[MonSavon]

Oui en voulant laisser mon code plus propre ici j'y ai inclus une erreur...

Bref, j'ai ça :

Code :

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

1
2
3
4
5
 
Dim tPath As String
tPath = Dir(WS_tabdebord.Range("B2") & WS_tabdebord.Range("B4")) 'j observe que tPath n est pas "", et trouve bien le fichier
tPath = WS_tabdebord.Range("B2") & WS_tabdebord.Range("B4")
Set WB_NG = Workbooks.Open(tPath , Editable:=True) 'je lance la méthode > elle n'aboutira jamais : Erreur 1004.

Désolé et merci ^^

[Menhir]

Essaye :

Code :

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

tPath = WS_tabdebord.Range("B2") & WS_tabdebord.Range("B4") & ".xlsb"

[MonSavon]

L'extension est déjà contenu dans : WS_tabdebord.Range("B4")

[Menhir]

Dans ce cas, essaye de voir ce qui se passe si tu la retires.

J'ai déjà rencontré un problème similaire de macro qui marchait ou pas en fonction de PC, tout ça parce que certains avaient coché l'option "Masquer les extensions" et d'autres pas.

[Invité]

Bonsoir,

Code :

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

1
2
3
4
5
6
*
Dim tPath As String
tPath=WS_tabdebord.Range("B2") 
If  Right(tPath,1) <>"\" then tPath= tPath & "\"
tPath = Dir(tPath & WS_tabdebord.Range("B4")) 'j observe que tPath n est pas "", et trouve bien le fichier
Set WB_NG = Workbooks.Open(tPath , Editable:=True) 'je lance la méthode > elle n'aboutira jamais : Erreur 1004.

[MonSavon]

Bonjour à tous,

J'ai finalement réussi, cependant je ne comprend pas : donc je suis assez perplexe !

Il a fallu que je rajoute l'argument CorruptLoad:=xlRepairFile.

Le fichier s'ouvre et la macro continue. Je suis entrain de regarder quelles sont les implications exactes, si vous avez des infos je suis preneur, sinon je mettrais en "résolu" d'ici quelques jours.

Merci