Refermer fichiers apres boucle copier coller

sangarmatha

XLDnaute Junior
Bonsoir,
Pour faire simple a partir de 50 fichiers avec onglets multiples. Je regroupe des données (copier coller) suivant le mois sélectionné (H1 du fichier source) dans le fichier destination.
Cela fonctionne même si c'est pas de l'art vu mon niveau.... Cependant mes fichiers imports restent ouverts et je n'arrive pas a écrire ou caser leurs fermetures (sans sauvegarde)
Merci d'avance de votre aide

'Importation données fimos et mois souhaité
Dim file As String
Dim mois As String

mois = Range("H1").Value

'liste des fichiers source pour import
chemin = "C:\Users\didric\Desktop\tests\" 'saisir le chemin complet du dossier où se trouvent les fichiers
file = Dir(chemin & "*.xlsx") ' Premier fichier
Do While file <> ""

'selection du mois voulu (onglet)
Workbooks.Open (chemin & file)
Worksheets(mois).Activate

'copie des zones à exporter
Range("A7:B26,AJ7:AJ26").Select
Selection.Copy

'Fichier destination
Windows("Essais compil en fct mois.xlsm").Activate
Range("A1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

file = Dir ' Fichier suivant
Loop

End sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 897
Membres
101 833
dernier inscrit
sandra25