comment écrire en vba "pour chaque fichier dans un répertoire "
3 réponses
marc.dufresne
bonjour à tous
comment écrire correctement en VBA
pour chaque fichier(.xls) (une centaine) dans un répertoire donné faire
quelque chose
j'ai trouvé une solution mais qui ne me parrait pas très académique
j'ai fait dir/b dans un fichier texte que j'ai recopié dans un fichier xls
Workbooks.Open Filename:="G:\Mes Documents\dirfichier.xls"
dirfichier = Range("a1", "a95")
For Each fichier In dirfichier
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
anonymousA
bonjour,
utiliser la propriété Filesearch de Application. Regarder l'aide de VBA qui est bien faite à ce sujet.
A+
bonjour à tous comment écrire correctement en VBA pour chaque fichier(.xls) (une centaine) dans un répertoire donné faire quelque chose j'ai trouvé une solution mais qui ne me parrait pas très académique j'ai fait dir/b dans un fichier texte que j'ai recopié dans un fichier xls
Workbooks.Open Filename:="G:Mes Documentsdirfichier.xls" dirfichier = Range("a1", "a95") For Each fichier In dirfichier
merci d'avance
bonjour,
utiliser la propriété Filesearch de Application. Regarder l'aide de VBA
qui est bien faite à ce sujet.
A+
bonjour à tous
comment écrire correctement en VBA
pour chaque fichier(.xls) (une centaine) dans un répertoire donné faire
quelque chose
j'ai trouvé une solution mais qui ne me parrait pas très académique
j'ai fait dir/b dans un fichier texte que j'ai recopié dans un fichier xls
Workbooks.Open Filename:="G:Mes Documentsdirfichier.xls"
dirfichier = Range("a1", "a95")
For Each fichier In dirfichier
utiliser la propriété Filesearch de Application. Regarder l'aide de VBA qui est bien faite à ce sujet.
A+
bonjour à tous comment écrire correctement en VBA pour chaque fichier(.xls) (une centaine) dans un répertoire donné faire quelque chose j'ai trouvé une solution mais qui ne me parrait pas très académique j'ai fait dir/b dans un fichier texte que j'ai recopié dans un fichier xls
Workbooks.Open Filename:="G:Mes Documentsdirfichier.xls" dirfichier = Range("a1", "a95") For Each fichier In dirfichier
merci d'avance
Jacques93
Bonjour marc.dufresne,
Essaie :
Dim fName As String Dim Chemin As String
Chemin = "C:Toto" ' A adapter fName = Dir(Chemin & "*.xls") While Len(fName) > 0 Debug.Print Chemin & fName ' Traitement fName = Dir Wend
bonjour à tous comment écrire correctement en VBA pour chaque fichier(.xls) (une centaine) dans un répertoire donné faire quelque chose j'ai trouvé une solution mais qui ne me parrait pas très académique j'ai fait dir/b dans un fichier texte que j'ai recopié dans un fichier xls
Workbooks.Open Filename:="G:Mes Documentsdirfichier.xls" dirfichier = Range("a1", "a95") For Each fichier In dirfichier
merci d'avance
-- Cordialement,
Jacques.
Bonjour marc.dufresne,
Essaie :
Dim fName As String
Dim Chemin As String
Chemin = "C:Toto" ' A adapter
fName = Dir(Chemin & "*.xls")
While Len(fName) > 0
Debug.Print Chemin & fName
' Traitement
fName = Dir
Wend
bonjour à tous
comment écrire correctement en VBA
pour chaque fichier(.xls) (une centaine) dans un répertoire donné faire
quelque chose
j'ai trouvé une solution mais qui ne me parrait pas très académique
j'ai fait dir/b dans un fichier texte que j'ai recopié dans un fichier xls
Workbooks.Open Filename:="G:Mes Documentsdirfichier.xls"
dirfichier = Range("a1", "a95")
For Each fichier In dirfichier
Chemin = "C:Toto" ' A adapter fName = Dir(Chemin & "*.xls") While Len(fName) > 0 Debug.Print Chemin & fName ' Traitement fName = Dir Wend
bonjour à tous comment écrire correctement en VBA pour chaque fichier(.xls) (une centaine) dans un répertoire donné faire quelque chose j'ai trouvé une solution mais qui ne me parrait pas très académique j'ai fait dir/b dans un fichier texte que j'ai recopié dans un fichier xls
Workbooks.Open Filename:="G:Mes Documentsdirfichier.xls" dirfichier = Range("a1", "a95") For Each fichier In dirfichier
merci d'avance
-- Cordialement,
Jacques.
jb
Bonjour,
Voici en PJ un exemple de pgm parcourant un répertoire:
http://cjoint.com/?lunAVfXqwc
nf=dir("*.xls") ' donne le premier fichier xls do while nf<>"" msgbox nf nf =dir() ' donne le suivant loop
Les instructions à connaître:
chrdir répertoire mkdir répertoire kill fichier name fichier1 as fichier2 filelen(fichier) filedatetime(fichier) getattr(fichier)
Cordialement JB
Bonjour,
Voici en PJ un exemple de pgm parcourant un répertoire:
http://cjoint.com/?lunAVfXqwc
nf=dir("*.xls") ' donne le premier fichier xls
do while nf<>""
msgbox nf
nf =dir() ' donne le suivant
loop
Les instructions à connaître:
chrdir répertoire
mkdir répertoire
kill fichier
name fichier1 as fichier2
filelen(fichier)
filedatetime(fichier)
getattr(fichier)