Bonjour à tous, le Forum
J'utilise la macro ci-dessous pour relier le résultat de 12 fichiers en un seul. Cela fonctionne avec un petit bémol.
Mes 12 fichiers représentent les 12 mois, ils portent les nom suivants : 1 Déc, 2 Janv, 3 Fév et ainsi de suite jusqu'à 12 Nov. La macro me recopie bien toutes les 12 lignes voulues, mais dans un ordre qui n'est pas celui désiré.
Tous les fichiers ont le même formatage et se trouvent dans le même dossier.
Je ne comprend pas pourquoi cette macro ne reprend pas l'ordre logique du nom des fichiers, voici son ordre 1-3-4-2-5--6-7-8-9-10-11-12.
Y a-t-il un code particulier pour obliger cette macro à recopier l'ordre voulu des résultats ?
Merci d'avance
Amicalement
Sub recup_Bellegarde()
Range("c10").Select 'sélectionner la cellule de début
Chemin = "D:\cELINE HONORAIRES\Honoraires\Bellegarde\HO macro\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("Donnée").Copy
ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteValues
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("c65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub
J'utilise la macro ci-dessous pour relier le résultat de 12 fichiers en un seul. Cela fonctionne avec un petit bémol.
Mes 12 fichiers représentent les 12 mois, ils portent les nom suivants : 1 Déc, 2 Janv, 3 Fév et ainsi de suite jusqu'à 12 Nov. La macro me recopie bien toutes les 12 lignes voulues, mais dans un ordre qui n'est pas celui désiré.
Tous les fichiers ont le même formatage et se trouvent dans le même dossier.
Je ne comprend pas pourquoi cette macro ne reprend pas l'ordre logique du nom des fichiers, voici son ordre 1-3-4-2-5--6-7-8-9-10-11-12.
Y a-t-il un code particulier pour obliger cette macro à recopier l'ordre voulu des résultats ?
Merci d'avance
Amicalement
Sub recup_Bellegarde()
Range("c10").Select 'sélectionner la cellule de début
Chemin = "D:\cELINE HONORAIRES\Honoraires\Bellegarde\HO macro\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("Donnée").Copy
ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteValues
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("c65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub