Sujet Précédent Sujet Suivant

Synthèse de tableaux identiques via excel - vba

Fermé
Mah - 2 avril 2015 à 16:14
 Yoda - 2 avril 2015 à 16:51
Bonjour,

J'ai un souci avec un code VBA que j'ai développé grace à ce forum.

L'idée de départ était de faire une synthèse de tableaux identiques.
Mon code fonctionne lorsque je le copie mais impossible de refaire l'exercice après fermeture de mon fichier xlsm.

La ligne qui pose problème est la ligne avec le Workbooks.open ClasseurRegional

Voici une partie de mon code:

ChDir "C:\Users\Damien\Desktop\Classeur"
ClasseurRegional = Dir("C:\Users\Damien\Desktop\Classeur\*.xlsx")
While Len(Classeur) > 0

Workbooks.Open Classeur</ital>

Le message d'erreur 1004 me dit qu'il ne retrouve plus le premier fichier xlsx alors qu'il parvient a le nommer...

Questions:
est ce que je sauvegarde dans un mauvais endroit?
est ce que mon code est bon ?


Un tout grand merci d'avance,
A voir également:

1 réponse

Réponse 1 / 1
Yoda
2 avril 2015 à 16:51
Bonjour,

Voilà plutot comment je verrai le code: 

ChDir "C:\Users\Damien\Desktop\Classeur"

'trouver le premier fichier
ClasseurRegional = Dir("*.xlsx")
'
'tant que longueur du nom du fichier est >0
While Len(ClasseurRegional) > 0
Workbooks.Open ClasseurRegional
'
'autres instructions
'
'fichier suivant
ClasseurRegional = Dir
Wend


Cordialement
0