A voir également:
- VBA XL Faire un lot d'opérations sur fichiers
- Comment faire un lot sur vinted - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Comment proposer un lot sur vinted - 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.
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
J'ai vu des solutions pour balayer un répertoire mais ce n'est pas ce que je veux faire.