Je souhaite faire la consolidation automatique d'une plage d'un ensemble de
fichier.xls tous contenu dans un dossier (dossier x par exemple). Mon
problème est que je peux avoir 300 fichiers excel dans le dossier en
question allant de c1.xls à C300.xls.
Comment dire à la macro de consolider tout ça sans écrire dans la ligne
ci-dessous le chemin et le nom de mes 300 fichiers (c'est variable !).
L'idéal pour moi serait : comment dire à la macro de consolider tout les
*.xls contenus dans le dossier x dans les plages fixées. Est-ce que j'en
demande trop là !?
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
denis P
Bonjour Victor,
Voila le code donner par Denis Michon pour faire la liste de tout les fichiers d'un répertoire. Il te place les noms et les chemins complets complait de tout les fichier du répertoire sur les colonnes A et B d'un nouvel feuille. Tu peut reprendres cette liste avec ListFile = Array(Range("a1:a12").Value)
denis p.
'======================================== Sub TousFichiersDunDossier() Dim FSO As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer Dim Wk As Workbook, A As Long, Sh As Worksheet
Application.ScreenUpdating = False Set FSO = CreateObject("Scripting.FileSystemObject") NomDossier = "c:" If NomDossier = "" Then Exit Sub Set Dossier = FSO.GetFolder(NomDossier)
Set Files = Dossier.Files If Files.Count <> 0 Then Set Sh = Sheets.Add For Each File In Files i = i + 1 Sh.Cells(i, 1).Value = File.Path Sh.Cells(i, 2).Value = File.Name
Next End If Sh.UsedRange.EntireColumn.AutoFit Set FSO = Nothing: Set Sh = Nothing: Set Wk = Nothing Set Dossier = Nothing: Set File = Nothing End Sub '--------------------
"victor" a écrit dans le message de news:
Bonjour,
Je souhaite faire la consolidation automatique d'une plage d'un ensemble de
fichier.xls tous contenu dans un dossier (dossier x par exemple). Mon problème est que je peux avoir 300 fichiers excel dans le dossier en question allant de c1.xls à C300.xls.
Comment dire à la macro de consolider tout ça sans écrire dans la ligne ci-dessous le chemin et le nom de mes 300 fichiers (c'est variable !). L'idéal pour moi serait : comment dire à la macro de consolider tout les *.xls contenus dans le dossier x dans les plages fixées. Est-ce que j'en demande trop là !?
Voila le code donner par Denis Michon pour faire la liste de tout les
fichiers d'un répertoire.
Il te place les noms et les chemins complets complait de tout les fichier du
répertoire sur les colonnes A et B d'un nouvel feuille.
Tu peut reprendres cette liste avec ListFile = Array(Range("a1:a12").Value)
denis p.
'======================================== Sub TousFichiersDunDossier()
Dim FSO As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim Wk As Workbook, A As Long, Sh As Worksheet
Application.ScreenUpdating = False
Set FSO = CreateObject("Scripting.FileSystemObject")
NomDossier = "c:"
If NomDossier = "" Then Exit Sub
Set Dossier = FSO.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set Sh = Sheets.Add
For Each File In Files
i = i + 1
Sh.Cells(i, 1).Value = File.Path
Sh.Cells(i, 2).Value = File.Name
Next
End If
Sh.UsedRange.EntireColumn.AutoFit
Set FSO = Nothing: Set Sh = Nothing: Set Wk = Nothing
Set Dossier = Nothing: Set File = Nothing
End Sub
'--------------------
"victor" <victor@nospam.fr> a écrit dans le message de
news:OGawCg60EHA.1524@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je souhaite faire la consolidation automatique d'une plage d'un ensemble
de
fichier.xls tous contenu dans un dossier (dossier x par exemple). Mon
problème est que je peux avoir 300 fichiers excel dans le dossier en
question allant de c1.xls à C300.xls.
Comment dire à la macro de consolider tout ça sans écrire dans la ligne
ci-dessous le chemin et le nom de mes 300 fichiers (c'est variable !).
L'idéal pour moi serait : comment dire à la macro de consolider tout les
*.xls contenus dans le dossier x dans les plages fixées. Est-ce que j'en
demande trop là !?
Voila le code donner par Denis Michon pour faire la liste de tout les fichiers d'un répertoire. Il te place les noms et les chemins complets complait de tout les fichier du répertoire sur les colonnes A et B d'un nouvel feuille. Tu peut reprendres cette liste avec ListFile = Array(Range("a1:a12").Value)
denis p.
'======================================== Sub TousFichiersDunDossier() Dim FSO As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer Dim Wk As Workbook, A As Long, Sh As Worksheet
Application.ScreenUpdating = False Set FSO = CreateObject("Scripting.FileSystemObject") NomDossier = "c:" If NomDossier = "" Then Exit Sub Set Dossier = FSO.GetFolder(NomDossier)
Set Files = Dossier.Files If Files.Count <> 0 Then Set Sh = Sheets.Add For Each File In Files i = i + 1 Sh.Cells(i, 1).Value = File.Path Sh.Cells(i, 2).Value = File.Name
Next End If Sh.UsedRange.EntireColumn.AutoFit Set FSO = Nothing: Set Sh = Nothing: Set Wk = Nothing Set Dossier = Nothing: Set File = Nothing End Sub '--------------------
"victor" a écrit dans le message de news:
Bonjour,
Je souhaite faire la consolidation automatique d'une plage d'un ensemble de
fichier.xls tous contenu dans un dossier (dossier x par exemple). Mon problème est que je peux avoir 300 fichiers excel dans le dossier en question allant de c1.xls à C300.xls.
Comment dire à la macro de consolider tout ça sans écrire dans la ligne ci-dessous le chemin et le nom de mes 300 fichiers (c'est variable !). L'idéal pour moi serait : comment dire à la macro de consolider tout les *.xls contenus dans le dossier x dans les plages fixées. Est-ce que j'en demande trop là !?