gros soucis avec "workbooks".....!Résolu

Question

tout d'abord, je suis un "primo"-débutant en VBA.
J'essaye de faire une macro (depuis plusieurs jours!!) qui me parait assez simple,
mais ça bloque sur le "workbooks.Open DossierFactures" avec en réponse: "erreur d'exécution '1004' et 'Fact-Gab-1.xlsx' introuvable!
Voici la macro:

Sub EssaiSynth()
ChDir "M:\MARC\Facture-Gab\Fact-Synth\"
DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx")
'M: est un disque dur externe

Workbooks.Open DossierFactures

Do While Len(DossierFactures) > 0
MsgBox DossierFactures
Workbooks(DossierFactures).Close
DossierFactures = Dir
Loop

End Sub

Je ne comprend pas où est le problème. Aidez-moi!!!
Merci à tous.

ucfoutu · Answer

Bonjour,
Le seul nom de fichier ne suffit pas à l'ouvrir.
Workbooks.Open DossierFactures 
devrait être
Workbooks.Open  "M:\MARC\Facture-Gab\Fact-Synth\" & DossierFactures 
Mais je ne comprends pas vraiment, car :
DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx") 
fait que DossierFactures sera le premier fichier d'extension xlsx trouvé dans le dossier concerné !
que vient alors faire ensuite ceci :
Do While Len(DossierFactures) > 0  MsgBox DossierFactures  Workbooks(DossierFactures).Close  DossierFactures = DirLoop 
qui tendrait à fermer tous les classeurs ouverts alors que tuy n'en as ouvert qu'un seul dans le dossier concerné ?
Je ne comprends pas, là ...

ucfoutu · Answer

Bon ... Ton seul problème était donc le chemin complet du classeur Si ce que je t'ai dit l'a réglé ===>> Un clic sur le tag "RESOLU" (au niveau de ton 1er message) pour libérer ce sujet.

Gros soucis avec "workbooks".....!

2 réponses

Votre réponse

Discussions similaires