Appliquer une macro à tous les fichiers d'un dossier
4 réponses
Flav84_Supinfo
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait :
j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ;
puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le
fichier ;
etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de
manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde
fois un fichier qui déja été traité.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir.
Sub test() Dim Fich As String Const chemin = "e:donneesdaniel" Fich = Dir(chemin & "*.xls") Do While Fich <> "" Workbooks.Open chemin & Fich ' là, tu mets ton code Workbooks(Fich).Close False 'ou true si tu enregistres Fich = Dir Loop End Sub
Cordialement. Daniel
"Flav84_Supinfo" a écrit dans le message de news:
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait : j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ; puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le fichier ; etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde fois un fichier qui déja été traité.
Merci beaucoup !
Bonsoir.
Sub test()
Dim Fich As String
Const chemin = "e:donneesdaniel"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
' là, tu mets ton code
Workbooks(Fich).Close False 'ou true si tu enregistres
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Flav84_Supinfo" <Flav84_Supinfo@discussions.microsoft.com> a écrit dans le
message de news: 2CBC12DB-0543-4E00-9329-2F767573810E@microsoft.com...
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier
:
Une genre de boucle qui fait :
j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le
fichier ;
puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le
fichier ;
etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de
manipultaions des fichiers, nottament sur comment ne pas ouvrir une
seconde
fois un fichier qui déja été traité.
Sub test() Dim Fich As String Const chemin = "e:donneesdaniel" Fich = Dir(chemin & "*.xls") Do While Fich <> "" Workbooks.Open chemin & Fich ' là, tu mets ton code Workbooks(Fich).Close False 'ou true si tu enregistres Fich = Dir Loop End Sub
Cordialement. Daniel
"Flav84_Supinfo" a écrit dans le message de news:
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait : j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ; puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le fichier ; etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde fois un fichier qui déja été traité.
Merci beaucoup !
Philippe.R
Bonsoir, Regarde du côté de chez Frédéric, il y a de quoi faire ce que tu cherches :
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait : j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ; puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le fichier ; etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde fois un fichier qui déja été traité.
Merci beaucoup !
Bonsoir,
Regarde du côté de chez Frédéric, il y a de quoi faire ce que tu cherches :
http://frederic.sigonneau.free.fr/office.htm
et plus particulièrement:
http://frederic.sigonneau.free.fr/Fichiers.htm
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Flav84_Supinfo" <Flav84_Supinfo@discussions.microsoft.com> a écrit dans le
message de news:2CBC12DB-0543-4E00-9329-2F767573810E@microsoft.com...
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier
:
Une genre de boucle qui fait :
j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le
fichier ;
puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le
fichier ;
etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de
manipultaions des fichiers, nottament sur comment ne pas ouvrir une
seconde
fois un fichier qui déja été traité.
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait : j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ; puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le fichier ; etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde fois un fichier qui déja été traité.
Merci beaucoup !
Flav84_Supinfo
Merci, ça marche au poil
Tt merci pour le site de frederic sigonneau : J'y ai trouvé les infos qu'il me manquait pour finir mon projet
Bonsoir.
Sub test() Dim Fich As String Const chemin = "e:donneesdaniel" Fich = Dir(chemin & "*.xls") Do While Fich <> "" Workbooks.Open chemin & Fich ' là, tu mets ton code Workbooks(Fich).Close False 'ou true si tu enregistres Fich = Dir Loop End Sub
Cordialement. Daniel
"Flav84_Supinfo" a écrit dans le message de news:
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait : j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ; puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le fichier ; etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde fois un fichier qui déja été traité.
Merci beaucoup !
Merci, ça marche au poil
Tt merci pour le site de frederic sigonneau : J'y ai trouvé les infos qu'il
me manquait pour finir mon projet
Bonsoir.
Sub test()
Dim Fich As String
Const chemin = "e:donneesdaniel"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
' là, tu mets ton code
Workbooks(Fich).Close False 'ou true si tu enregistres
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Flav84_Supinfo" <Flav84_Supinfo@discussions.microsoft.com> a écrit dans le
message de news: 2CBC12DB-0543-4E00-9329-2F767573810E@microsoft.com...
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier
:
Une genre de boucle qui fait :
j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le
fichier ;
puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le
fichier ;
etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de
manipultaions des fichiers, nottament sur comment ne pas ouvrir une
seconde
fois un fichier qui déja été traité.
Tt merci pour le site de frederic sigonneau : J'y ai trouvé les infos qu'il me manquait pour finir mon projet
Bonsoir.
Sub test() Dim Fich As String Const chemin = "e:donneesdaniel" Fich = Dir(chemin & "*.xls") Do While Fich <> "" Workbooks.Open chemin & Fich ' là, tu mets ton code Workbooks(Fich).Close False 'ou true si tu enregistres Fich = Dir Loop End Sub
Cordialement. Daniel
"Flav84_Supinfo" a écrit dans le message de news:
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait : j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ; puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le fichier ; etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde fois un fichier qui déja été traité.
Merci beaucoup !
Philippe.R
Bonsoir,
Tt merci pour le site de Fréderic Sigonneau : J'y ai trouvé les infos qu'il me manquait pour finir mon projet C'était avec un réel plaisir
Tt merci pour le site de frederic sigonneau : J'y ai trouvé les infos qu'il me manquait pour finir mon projet
Bonsoir.
Sub test() Dim Fich As String Const chemin = "e:donneesdaniel" Fich = Dir(chemin & "*.xls") Do While Fich <> "" Workbooks.Open chemin & Fich ' là, tu mets ton code Workbooks(Fich).Close False 'ou true si tu enregistres Fich = Dir Loop End Sub
Cordialement. Daniel
"Flav84_Supinfo" a écrit dans le message de news:
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait : j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ; puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le fichier ; etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde fois un fichier qui déja été traité.
Merci beaucoup !
Bonsoir,
Tt merci pour le site de Fréderic Sigonneau : J'y ai trouvé les infos
qu'il
me manquait pour finir mon projet
C'était avec un réel plaisir
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Flav84_Supinfo" <Flav84Supinfo@discussions.microsoft.com> a écrit dans le
message de news:494F70E6-1D0D-4800-B94A-EE0F73C812E5@microsoft.com...
Merci, ça marche au poil
Tt merci pour le site de frederic sigonneau : J'y ai trouvé les infos
qu'il
me manquait pour finir mon projet
Bonsoir.
Sub test()
Dim Fich As String
Const chemin = "e:donneesdaniel"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
' là, tu mets ton code
Workbooks(Fich).Close False 'ou true si tu enregistres
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Flav84_Supinfo" <Flav84_Supinfo@discussions.microsoft.com> a écrit dans
le
message de news: 2CBC12DB-0543-4E00-9329-2F767573810E@microsoft.com...
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui
l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un
dossier
:
Une genre de boucle qui fait :
j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le
fichier ;
puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme
le
fichier ;
etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de
manipultaions des fichiers, nottament sur comment ne pas ouvrir une
seconde
fois un fichier qui déja été traité.
Tt merci pour le site de frederic sigonneau : J'y ai trouvé les infos qu'il me manquait pour finir mon projet
Bonsoir.
Sub test() Dim Fich As String Const chemin = "e:donneesdaniel" Fich = Dir(chemin & "*.xls") Do While Fich <> "" Workbooks.Open chemin & Fich ' là, tu mets ton code Workbooks(Fich).Close False 'ou true si tu enregistres Fich = Dir Loop End Sub
Cordialement. Daniel
"Flav84_Supinfo" a écrit dans le message de news:
Bonjour,
j'ai creer une jolie macro qui met en forme un document et qui l'imprime.
j'aimerais pouvoir appliquer cette macro à tous les fichiers d'un dossier :
Une genre de boucle qui fait : j'ouvre le 1er fichier du dossier , j'applique le code, je ferme le fichier ; puis j'ouvre le 2eme fichier du dossier, j'applique le code, je ferme le fichier ; etc...
Je suis sur que c'est possible, mais je me suis perdu dans les codes de manipultaions des fichiers, nottament sur comment ne pas ouvrir une seconde fois un fichier qui déja été traité.