Appliquer une Macro excel sur tout un répertoire
Résolu
davidgoal
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
davidgoal -
davidgoal -
Bonjour,
je veux appliquer une macro sur tout un répertoire à partir d'un bouton.
j'ai utilisé ce code vb pour le module1:
Sub Button2_Click()
Dim NomFic As String
ChDrive ThisWorkbook.Path: ChDir ThisWorkbook.Path
NomFic = Dir("*.xls*")
While NomFic <> ""
If NomFic <> ThisWorkbook.Name Then
Workbooks.Open NomFic
WORKorderFinal2
Workbooks(NomFic).Close True
End If
NomFic = Dir
Wend
End Sub
mais le problème c'est que je reçois une erreur de débogage dans la ligne:
Workbooks(NomFic).Close True
et la Macro s'arrête juste après avoir été appliqué sur un seul fichier de mon répertoire!!
je veux appliquer une macro sur tout un répertoire à partir d'un bouton.
j'ai utilisé ce code vb pour le module1:
Sub Button2_Click()
Dim NomFic As String
ChDrive ThisWorkbook.Path: ChDir ThisWorkbook.Path
NomFic = Dir("*.xls*")
While NomFic <> ""
If NomFic <> ThisWorkbook.Name Then
Workbooks.Open NomFic
WORKorderFinal2
Workbooks(NomFic).Close True
End If
NomFic = Dir
Wend
End Sub
mais le problème c'est que je reçois une erreur de débogage dans la ligne:
Workbooks(NomFic).Close True
et la Macro s'arrête juste après avoir été appliqué sur un seul fichier de mon répertoire!!
A voir également:
- Appliquer une Macro excel sur tout un répertoire
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Word et excel gratuit - Guide
9 réponses
Bonsoir davidgoal,
- À quoi sert WORKorderFinal2 ?
- avant de rentrer dans le While NomFic = Dir("*.xls*")
.. et dans le While NomFic = Dir
.... pourquoi cette différence ?
- À quoi sert WORKorderFinal2 ?
- avant de rentrer dans le While NomFic = Dir("*.xls*")
.. et dans le While NomFic = Dir
.... pourquoi cette différence ?
Bonsoir,
WORKorderFinal2 c'est une macro qui modifie mon fichier de la manière que je souhaite avoir.
maintenant je cherche à appliquer cette macro sur tout un répertoire.
vous me proposer autre chose ?
WORKorderFinal2 c'est une macro qui modifie mon fichier de la manière que je souhaite avoir.
maintenant je cherche à appliquer cette macro sur tout un répertoire.
vous me proposer autre chose ?
Je pense que la procédure d'ouverture de fichier n'est pas la meilleure (si toutefois elle ouvre un classeur !).
J'utilise celle-ci :
- Workbooks.Open Filename:="C:\NomRepertoire\NomFichier.xls"
Voilà.
J'utilise celle-ci :
- Workbooks.Open Filename:="C:\NomRepertoire\NomFichier.xls"
Voilà.
oui c'est bien comme formule mais est ce que je peux l'utiliser pour ouvrir tout les fichiers de mon répertoire sachant que je ne connais pas les noms des fichiers en avance ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonsoir,
Le code de quoi .. ouvrir n'importe quel fichier, des fichiers textes, des workbook ?
Pour les workbook, je vous l'ai donné plus haut.
Le code de quoi .. ouvrir n'importe quel fichier, des fichiers textes, des workbook ?
Pour les workbook, je vous l'ai donné plus haut.