Re : Créer une macro pour recuperer certaines lignes de 750 fichiers
Bonjour,
Merci beaucoup pour cette réponse.
Voi les informations supplémentaires :
- Oui les fichiers sources sont tous dans le même répertoire "Factures" (et seuls dans ce répertoire)
- Leur nom est structuré toujours de la même façon année-mois-numéro (ex : 2009-06-012)
- Les infos sont toujours dans la feuille 1
Je joins 2 exemples réels de fichiers sources.
J'ai deja utilisé la macro, qui recopie la zone qui m'intéresse, mais si je pouvais rajouter sur les memes lignes (tres important) le nom du fichier source, je serai sauvée.
Range("A1").Select 'sélectionner la cellule de début
Chemin = "C:\Documents and Settings\Bureau\Factures\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") '
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("A1").Select
Range("A32:F38").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub
750 fichiers représentent plusieurs années ! Mais je peux évidemment le faire en plusieurs fois.
Merci de votre aide.