A voir également:
- VBA XL Faire un lot d'opérations sur fichiers
- Wetransfer gratuit fichiers lourd - Guide
- Faire un lot sur vinted - Guide
- Faire une offre sur un lot vinted - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment faire un fichier pdf - Guide
5 réponses
bonjour,
Ce sujet a été traité maintes fois.
Je n'ai pas le code en détails mais si tu fais des recherches tu trouveras.
sub
chdir (définit ton chemin)
repertoire = a
for each file in a
tes actions à mener sur tes fichiers
next
end sub
Ce sujet a été traité maintes fois.
Je n'ai pas le code en détails mais si tu fais des recherches tu trouveras.
sub
chdir (définit ton chemin)
repertoire = a
for each file in a
tes actions à mener sur tes fichiers
next
end sub
Je voudrais prendre les noms de fichier (chemin du répertoire + nom) dans un tableau Excel (ce qui permettrait de les paramétrer et ensuite de balayer le tableau de haut en bas par exemple), pas balayer un répertoire.
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
1 févr. 2011 à 13:18
1 févr. 2011 à 13:18
Melanie1324 t'a donné la solution.
on suppose que tu as fais une liste de dossier + fichiers
cette liste est placée dans les cellules A5: A20 ( par exemple)
sub test()
Dim C as Variant
for each C in Range("A5:A20") ' ici ta liste ou ta plage
Workbooks.open C.name ' C.name contient le chemin + le fichier
' Traitement supplémentaire ....
' ferme le fichier
' Le suivant
Next
End sub
on suppose que tu as fais une liste de dossier + fichiers
cette liste est placée dans les cellules A5: A20 ( par exemple)
sub test()
Dim C as Variant
for each C in Range("A5:A20") ' ici ta liste ou ta plage
Workbooks.open C.name ' C.name contient le chemin + le fichier
' Traitement supplémentaire ....
' ferme le fichier
' Le suivant
Next
End sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Finalement j'ai appliqué cela, qui marche bien :
Dim B As Variant 'chemin du répertoire
Dim C As Variant 'nom des fichiers
Dim LOT As Variant 'nom complet des fichiers du lot à traiter
For Each B In Range("D4:D4")
For Each C In Range("I4:I6")
LOT = B & C
Workbooks.Open LOT
' traitement à appliquer aux fichiers du lot
ActiveWorkbook.Close True
Next C
Next B
End Sub
Dim B As Variant 'chemin du répertoire
Dim C As Variant 'nom des fichiers
Dim LOT As Variant 'nom complet des fichiers du lot à traiter
For Each B In Range("D4:D4")
For Each C In Range("I4:I6")
LOT = B & C
Workbooks.Open LOT
' traitement à appliquer aux fichiers du lot
ActiveWorkbook.Close True
Next C
Next B
End Sub
1 févr. 2011 à 12:29
J'ai vu des solutions pour balayer un répertoire mais ce n'est pas ce que je veux faire.