Je souhaiterais importer le contenu de tout une série de fichiers texte
(séparateurs point-virgule) d'un même dossier dans une feuille de calcul
avec une mise à la ligne à chaque fois.
j'ai fais la mcro qui ouvre un fichier isolé et qui répartit comme il
convient les données colonne par colonne, mais je ne sais pas automatiser la
procédure pour la généraliser à tous les fichiers.
j'ai vu sur un forum le principe du batch, quelqu'un pourrait-il me guider
pour créer le code qui convient ?
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
isabelle
bonjour FV,
Sub TousFichiersDunDossier() Dim fso As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer Set fso = CreateObject("Scripting.FileSystemObject") NomDossier = "C:zaza" 'a adapter If NomDossier = "" Then Exit Sub Set Dossier = fso.getfolder(NomDossier) Set Files = Dossier.Files If Files.Count <> 0 Then For Each File In Files Fichier = File.Name 'teste ' 'execute ta macro ici
Next End If End Sub
isabelle
Je souhaiterais importer le contenu de tout une série de fichiers texte (séparateurs point-virgule) d'un même dossier dans une feuille de calcul avec une mise à la ligne à chaque fois. j'ai fais la mcro qui ouvre un fichier isolé et qui répartit comme il convient les données colonne par colonne, mais je ne sais pas automatiser la procédure pour la généraliser à tous les fichiers.
j'ai vu sur un forum le principe du batch, quelqu'un pourrait-il me guider pour créer le code qui convient ?
Merci
FV
bonjour FV,
Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:zaza" 'a adapter
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name 'teste
' 'execute ta macro ici
Next
End If
End Sub
isabelle
Je souhaiterais importer le contenu de tout une série de fichiers texte
(séparateurs point-virgule) d'un même dossier dans une feuille de calcul
avec une mise à la ligne à chaque fois.
j'ai fais la mcro qui ouvre un fichier isolé et qui répartit comme il
convient les données colonne par colonne, mais je ne sais pas automatiser la
procédure pour la généraliser à tous les fichiers.
j'ai vu sur un forum le principe du batch, quelqu'un pourrait-il me guider
pour créer le code qui convient ?
Sub TousFichiersDunDossier() Dim fso As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer Set fso = CreateObject("Scripting.FileSystemObject") NomDossier = "C:zaza" 'a adapter If NomDossier = "" Then Exit Sub Set Dossier = fso.getfolder(NomDossier) Set Files = Dossier.Files If Files.Count <> 0 Then For Each File In Files Fichier = File.Name 'teste ' 'execute ta macro ici
Next End If End Sub
isabelle
Je souhaiterais importer le contenu de tout une série de fichiers texte (séparateurs point-virgule) d'un même dossier dans une feuille de calcul avec une mise à la ligne à chaque fois. j'ai fais la mcro qui ouvre un fichier isolé et qui répartit comme il convient les données colonne par colonne, mais je ne sais pas automatiser la procédure pour la généraliser à tous les fichiers.
j'ai vu sur un forum le principe du batch, quelqu'un pourrait-il me guider pour créer le code qui convient ?
