Je cherche un code qui trouve dans un rep. des classeurs contenant des macros.
43 réponses
Emile63
Bonjour a tous,
Je recherche un code qui me permettrait de lister dans un classeur,
depuis un r=E9pertoire, donn=E9 tous les fichiers (Excel + Word, serrait
encore mieux) qu'il contient et la colonne d'=E0 c=F4t=E9, s'ils comprennen=
t
des macros VBA.
Je vous remercie d'avance pour vos propositions,
Cordialement,
Emile
Bonjour MichD Merci pour le test. Depuis ici... Il ne veut toujours rien savoir.... :-(( Word 2003 SP3 / Excel 2003 SP3 / Win XP Pro
michdenis
La version Word 2003 n'est pas installée. Je peux effectuer des tests sur Word 2007 et 2010. Il serait surprenant que la procédure ne fonctionne pas sous Word 2003. Il ne reste plus qu'à demander à un autre usager de ce forum de tester ces procédures sur une version Word antérieure à 2007 et de nous transmettre le résultat de son test.
"Emile63" a écrit dans le message de groupe de discussion :
Bonjour MichD Merci pour le test. Depuis ici... Il ne veut toujours rien savoir.... :-(( Word 2003 SP3 / Excel 2003 SP3 / Win XP Pro
La version Word 2003 n'est pas installée. Je peux effectuer des tests sur Word 2007 et 2010.
Il serait surprenant que la procédure ne fonctionne pas sous Word 2003.
Il ne reste plus qu'à demander à un autre usager de ce forum de tester ces procédures
sur une version Word antérieure à 2007 et de nous transmettre le résultat de son test.
"Emile63" <sanz.emile@gmail.com> a écrit dans le message de groupe de discussion :
3bc9a41e-5e1a-4150-b45a-fbac4470edaa@k13g2000vbq.googlegroups.com...
Bonjour MichD
Merci pour le test.
Depuis ici... Il ne veut toujours rien savoir.... :-((
Word 2003 SP3 / Excel 2003 SP3 / Win XP Pro
La version Word 2003 n'est pas installée. Je peux effectuer des tests sur Word 2007 et 2010. Il serait surprenant que la procédure ne fonctionne pas sous Word 2003. Il ne reste plus qu'à demander à un autre usager de ce forum de tester ces procédures sur une version Word antérieure à 2007 et de nous transmettre le résultat de son test.
"Emile63" a écrit dans le message de groupe de discussion :
Bonjour MichD Merci pour le test. Depuis ici... Il ne veut toujours rien savoir.... :-(( Word 2003 SP3 / Excel 2003 SP3 / Win XP Pro
Emile63
Bonjour a tous,
Merci MichD pour ton aide et ton support. :-)
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue pas. ;-) Merci a tous pour votre aide, Cordialement, Emile
Bonjour a tous,
Merci MichD pour ton aide et ton support. :-)
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester
la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue
pas. ;-)
Merci a tous pour votre aide,
Cordialement,
Emile
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue pas. ;-) Merci a tous pour votre aide, Cordialement, Emile
isabelle
il faudrait enlever la ligne, Chemin = "C:UsersDMDocuments" dans la macro Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
j'ai fais le test sur xl2002 il y a dans mon répertoire test: 1 fichier doc avec macro et 3 fichier xls dont 2 avec macro et je n'obtient que les 3 lignes suivante,
Liste des fichiers du répertoire "C:zzListe" ayant du code. Liste des fichiers "Excel" avec macro Liste des fichiers "Word" avec macro
et pas de message d'erreur
isabelle
Le 2010-09-24 09:50, Emile63 a écrit :
Bonjour a tous,
Merci MichD pour ton aide et ton support. :-)
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue pas. ;-) Merci a tous pour votre aide, Cordialement, Emile
il faudrait enlever la ligne,
Chemin = "C:UsersDMDocuments"
dans la macro
Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
j'ai fais le test sur xl2002
il y a dans mon répertoire test: 1 fichier doc avec macro et 3 fichier xls dont 2 avec macro
et je n'obtient que les 3 lignes suivante,
Liste des fichiers du répertoire "C:zzListe" ayant du code.
Liste des fichiers "Excel" avec macro
Liste des fichiers "Word" avec macro
et pas de message d'erreur
isabelle
Le 2010-09-24 09:50, Emile63 a écrit :
Bonjour a tous,
Merci MichD pour ton aide et ton support. :-)
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester
la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue
pas. ;-)
Merci a tous pour votre aide,
Cordialement,
Emile
il faudrait enlever la ligne, Chemin = "C:UsersDMDocuments" dans la macro Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
j'ai fais le test sur xl2002 il y a dans mon répertoire test: 1 fichier doc avec macro et 3 fichier xls dont 2 avec macro et je n'obtient que les 3 lignes suivante,
Liste des fichiers du répertoire "C:zzListe" ayant du code. Liste des fichiers "Excel" avec macro Liste des fichiers "Word" avec macro
et pas de message d'erreur
isabelle
Le 2010-09-24 09:50, Emile63 a écrit :
Bonjour a tous,
Merci MichD pour ton aide et ton support. :-)
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue pas. ;-) Merci a tous pour votre aide, Cordialement, Emile
michdenis
Bonjour Isabelle, Emile,
Voici un fichier exemple : http://cjoint.com/?jyqwF0IMpn
Avant de lancer la macro, il suffit de renseigner le chemin seulement.
Afin de m'assurer qu'il n'y a pas eu d'erreurs au moment de faire le copier-coller des procédures.
"isabelle" a écrit dans le message de groupe de discussion : i7ibgr$3l1$
il faudrait enlever la ligne, Chemin = "C:UsersDMDocuments" dans la macro Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
j'ai fais le test sur xl2002 il y a dans mon répertoire test: 1 fichier doc avec macro et 3 fichier xls dont 2 avec macro et je n'obtient que les 3 lignes suivante,
Liste des fichiers du répertoire "C:zzListe" ayant du code. Liste des fichiers "Excel" avec macro Liste des fichiers "Word" avec macro
et pas de message d'erreur
isabelle
Le 2010-09-24 09:50, Emile63 a écrit :
Bonjour a tous,
Merci MichD pour ton aide et ton support. :-)
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue pas. ;-) Merci a tous pour votre aide, Cordialement, Emile
Bonjour Isabelle, Emile,
Voici un fichier exemple : http://cjoint.com/?jyqwF0IMpn
Avant de lancer la macro, il suffit de renseigner le chemin seulement.
Afin de m'assurer qu'il n'y a pas eu d'erreurs au moment
de faire le copier-coller des procédures.
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion : i7ibgr$3l1$1@speranza.aioe.org...
il faudrait enlever la ligne,
Chemin = "C:UsersDMDocuments"
dans la macro
Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
j'ai fais le test sur xl2002
il y a dans mon répertoire test: 1 fichier doc avec macro et 3 fichier xls dont 2 avec macro
et je n'obtient que les 3 lignes suivante,
Liste des fichiers du répertoire "C:zzListe" ayant du code.
Liste des fichiers "Excel" avec macro
Liste des fichiers "Word" avec macro
et pas de message d'erreur
isabelle
Le 2010-09-24 09:50, Emile63 a écrit :
Bonjour a tous,
Merci MichD pour ton aide et ton support. :-)
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester
la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue
pas. ;-)
Merci a tous pour votre aide,
Cordialement,
Emile
"isabelle" a écrit dans le message de groupe de discussion : i7ibgr$3l1$
il faudrait enlever la ligne, Chemin = "C:UsersDMDocuments" dans la macro Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
j'ai fais le test sur xl2002 il y a dans mon répertoire test: 1 fichier doc avec macro et 3 fichier xls dont 2 avec macro et je n'obtient que les 3 lignes suivante,
Liste des fichiers du répertoire "C:zzListe" ayant du code. Liste des fichiers "Excel" avec macro Liste des fichiers "Word" avec macro
et pas de message d'erreur
isabelle
Le 2010-09-24 09:50, Emile63 a écrit :
Bonjour a tous,
Merci MichD pour ton aide et ton support. :-)
Bloqué sur cette ligne de proc. j'espère que quelqu'un pourra tester la dernière mouture sur Word 2003, et m'indiquer ce qui ne joue pas. ;-) Merci a tous pour votre aide, Cordialement, Emile
isabelle
salut Denis,
je n'arrive pas à l'ouvrir correctement, il y a le message suivant: Erreur de chargement de la DLL (erreur 48) peut l'enregistrer en version 2002 ou 2003
isabelle
Le 2010-09-24 10:25, michdenis a écrit :
Bonjour Isabelle, Emile,
Voici un fichier exemple : http://cjoint.com/?jyqwF0IMpn
Avant de lancer la macro, il suffit de renseigner le chemin seulement.
Afin de m'assurer qu'il n'y a pas eu d'erreurs au moment de faire le copier-coller des procédures.
salut Denis,
je n'arrive pas à l'ouvrir correctement, il y a le message suivant: Erreur de chargement de la DLL (erreur 48)
peut l'enregistrer en version 2002 ou 2003
isabelle
Le 2010-09-24 10:25, michdenis a écrit :
Bonjour Isabelle, Emile,
Voici un fichier exemple : http://cjoint.com/?jyqwF0IMpn
Avant de lancer la macro, il suffit de renseigner le chemin seulement.
Afin de m'assurer qu'il n'y a pas eu d'erreurs au moment
de faire le copier-coller des procédures.
je n'arrive pas à l'ouvrir correctement, il y a le message suivant: Erreur de chargement de la DLL (erreur 48) peut l'enregistrer en version 2002 ou 2003
isabelle
Le 2010-09-24 10:25, michdenis a écrit :
Bonjour Isabelle, Emile,
Voici un fichier exemple : http://cjoint.com/?jyqwF0IMpn
Avant de lancer la macro, il suffit de renseigner le chemin seulement.
Afin de m'assurer qu'il n'y a pas eu d'erreurs au moment de faire le copier-coller des procédures.
michdenis
Un tout nouveau classeur créé à partir de la version 2003..
"isabelle" a écrit dans le message de groupe de discussion : i7ida2$84q$ salut Denis,
je n'arrive pas à l'ouvrir correctement, il y a le message suivant: Erreur de chargement de la DLL (erreur 48) peut l'enregistrer en version 2002 ou 2003
isabelle
Le 2010-09-24 10:25, michdenis a écrit :
Bonjour Isabelle, Emile,
Voici un fichier exemple : http://cjoint.com/?jyqwF0IMpn
Avant de lancer la macro, il suffit de renseigner le chemin seulement.
Afin de m'assurer qu'il n'y a pas eu d'erreurs au moment de faire le copier-coller des procédures.
Un tout nouveau classeur créé à partir de la version 2003..
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion : i7ida2$84q$1@speranza.aioe.org...
salut Denis,
je n'arrive pas à l'ouvrir correctement, il y a le message suivant: Erreur de chargement de la DLL (erreur 48)
peut l'enregistrer en version 2002 ou 2003
isabelle
Le 2010-09-24 10:25, michdenis a écrit :
Bonjour Isabelle, Emile,
Voici un fichier exemple : http://cjoint.com/?jyqwF0IMpn
Avant de lancer la macro, il suffit de renseigner le chemin seulement.
Afin de m'assurer qu'il n'y a pas eu d'erreurs au moment
de faire le copier-coller des procédures.
"isabelle" a écrit dans le message de groupe de discussion : i7ida2$84q$ salut Denis,
je n'arrive pas à l'ouvrir correctement, il y a le message suivant: Erreur de chargement de la DLL (erreur 48) peut l'enregistrer en version 2002 ou 2003
isabelle
Le 2010-09-24 10:25, michdenis a écrit :
Bonjour Isabelle, Emile,
Voici un fichier exemple : http://cjoint.com/?jyqwF0IMpn
Avant de lancer la macro, il suffit de renseigner le chemin seulement.
Afin de m'assurer qu'il n'y a pas eu d'erreurs au moment de faire le copier-coller des procédures.
isabelle
alors j'ai modifié la ligne Chemin = "C:UsersDMDocuments" de la macro Sub Liste_Fichiers_Excel_Word_Avec_Macro() par mon répertoire test "C:test"
j'ai enlevé la ligne, Chemin = "C:UsersDMDocuments" dans la macro Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
et tout fonctionne correctement super @+ isabelle
Le 2010-09-24 10:55, michdenis a écrit :
Un tout nouveau classeur créé à partir de la version 2003..
http://cjoint.com/?jyq2JBSuIO
ça fonctionne rondement.
alors j'ai modifié la ligne
Chemin = "C:UsersDMDocuments"
de la macro
Sub Liste_Fichiers_Excel_Word_Avec_Macro()
par mon répertoire test "C:test"
j'ai enlevé la ligne,
Chemin = "C:UsersDMDocuments"
dans la macro
Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
et tout fonctionne correctement
super
@+
isabelle
Le 2010-09-24 10:55, michdenis a écrit :
Un tout nouveau classeur créé à partir de la version 2003..
alors j'ai modifié la ligne Chemin = "C:UsersDMDocuments" de la macro Sub Liste_Fichiers_Excel_Word_Avec_Macro() par mon répertoire test "C:test"
j'ai enlevé la ligne, Chemin = "C:UsersDMDocuments" dans la macro Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
et tout fonctionne correctement super @+ isabelle
Le 2010-09-24 10:55, michdenis a écrit :
Un tout nouveau classeur créé à partir de la version 2003..
http://cjoint.com/?jyq2JBSuIO
ça fonctionne rondement.
michdenis
Merci Isabelle du retour et de la correction.
Effectivement j'ai omis d'enlever la ligne de code Chemin = "C:UsersDMDocuments" dans la procédure : Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
"isabelle" a écrit dans le message de groupe de discussion : i7ieql$bb3$ alors j'ai modifié la ligne Chemin = "C:UsersDMDocuments" de la macro Sub Liste_Fichiers_Excel_Word_Avec_Macro() par mon répertoire test "C:test"
j'ai enlevé la ligne, Chemin = "C:UsersDMDocuments" dans la macro Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
et tout fonctionne correctement super @+ isabelle
Le 2010-09-24 10:55, michdenis a écrit :
Un tout nouveau classeur créé à partir de la version 2003..
http://cjoint.com/?jyq2JBSuIO
ça fonctionne rondement.
Merci Isabelle du retour et de la correction.
Effectivement j'ai omis d'enlever la ligne de code
Chemin = "C:UsersDMDocuments" dans la procédure :
Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion : i7ieql$bb3$1@speranza.aioe.org...
alors j'ai modifié la ligne
Chemin = "C:UsersDMDocuments"
de la macro
Sub Liste_Fichiers_Excel_Word_Avec_Macro()
par mon répertoire test "C:test"
j'ai enlevé la ligne,
Chemin = "C:UsersDMDocuments"
dans la macro
Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
et tout fonctionne correctement
super
@+
isabelle
Le 2010-09-24 10:55, michdenis a écrit :
Un tout nouveau classeur créé à partir de la version 2003..
Effectivement j'ai omis d'enlever la ligne de code Chemin = "C:UsersDMDocuments" dans la procédure : Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
"isabelle" a écrit dans le message de groupe de discussion : i7ieql$bb3$ alors j'ai modifié la ligne Chemin = "C:UsersDMDocuments" de la macro Sub Liste_Fichiers_Excel_Word_Avec_Macro() par mon répertoire test "C:test"
j'ai enlevé la ligne, Chemin = "C:UsersDMDocuments" dans la macro Sub Fichiers_Excel_Avec_Macro(Chemin As String, Tblo())
et tout fonctionne correctement super @+ isabelle
Le 2010-09-24 10:55, michdenis a écrit :
Un tout nouveau classeur créé à partir de la version 2003..
http://cjoint.com/?jyq2JBSuIO
ça fonctionne rondement.
Emile63
Bonjour MichDenis,
Encore merci pour ton opiniatreté.. ;-))
Au début ton classeur ne fonctionne pas. J'ai un message d'erreur: Manque Microsoft Word 12.0 Object Library que j'ai remplaçé par la 11.0 disponible sur mon système.
Et là ça plante pareille au même endroit (Word)a la ligne: If DC.VBProject.Protection = False Then.... 'Erreur 6068 MSG: L'accès par programation au projet Visual Basic n'est pas de confiance.
Bonjour MichDenis,
Encore merci pour ton opiniatreté.. ;-))
Au début ton classeur ne fonctionne pas.
J'ai un message d'erreur: Manque Microsoft Word 12.0 Object Library
que j'ai remplaçé par la 11.0 disponible sur mon système.
Et là ça plante pareille au même endroit (Word)a la ligne:
If DC.VBProject.Protection = False Then....
'Erreur 6068 MSG: L'accès par programation au projet Visual Basic
n'est pas de confiance.
Au début ton classeur ne fonctionne pas. J'ai un message d'erreur: Manque Microsoft Word 12.0 Object Library que j'ai remplaçé par la 11.0 disponible sur mon système.
Et là ça plante pareille au même endroit (Word)a la ligne: If DC.VBProject.Protection = False Then.... 'Erreur 6068 MSG: L'accès par programation au projet Visual Basic n'est pas de confiance.
