Gros soucis avec "workbooks".....! [Résolu]

Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Dernière intervention
10 décembre 2013
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
- 1 déc. 2013 à 17:29
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.
Afficher la suite 

Votre réponse

2 réponses

Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
259
0
Merci
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 = Dir
Loop
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à ...
Philippe-thuin
Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Dernière intervention
10 décembre 2013
-
Merci, "workbooks" fonctionne de cette façon.
Il s'agit là d'une petite macro qui me sert de test afin de vérifier si tous les "*.xlsx" sont lu et le classeur fermé automatiquement après la boucle.
La macro finale sera plus complexe puisque je voudrais obtenir un tableau "Synthèse" de tous les fichiers .xlsx dans ce genre:.
Trimestre 1


TOTAL des Factures: 0,00 0,00 0,00
HT TVA TTC
Factures du Trimestre
Nom-File Société
.xlsx Nom 0,00 0,00 0,00
Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
259
0
Merci
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.

Commenter la réponse de ucfoutu

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.