Salut les amis,
J'aurai besoin d'une aide pour adapter ce code ci dessous pour mon utilistation :
je dispose de plusieurs fichiers excel qu'on appelera "enfant" disposant de la meme nomenclature, et d'un fichier "mere"qui sera charger par la macro de recuperer les données Non vide de la plage P3:cc1000, et de les coller l'un en desous de l'autre dans le fichier master entre la plage A3:BN65556.
Les fichiers "enfants" sont dans un repertoire C:/Planning/enfants1..enfants2...enfants3...
Le fichier "mere" se situe dans le meme repertoire.
Merci pour votre aide, et n'hesiter pas à me contacter en cas de question ou d'indication supplementaire.
Private Sub cmdRecupere_Click()
Dim strWB As String, strFile As String
Application.ScreenUpdating = False
Application.EnableEvents = False
' Nom du classeur actuel
strWB = ThisWorkbook.Name
' Récupération du premier fichier dans le répertoire et sous repertoire
strFile = Dir(ThisWorkbook.Path & "\SousRepertoire\*.xls")
' Boucle du 1er au dernier classeur dans le répertoire et sous repertoire
Do While strFile <> ""
' Si le classeur n'est pas "Total.xls" et si son nom n'existe pas en colonne C
If strFile <> strWB And Worksheets("Feuil1").Columns("C").Find(strFile, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
' Ouvrir le fichier
Workbooks.Open ThisWorkbook.Path & "\" & strFile
' Copie des données
Workbooks(strFile).Worksheets(1).Range("A13:C28").Copy
With Workbooks(strWB).Worksheets("Feuil1")
.Range("A2").Insert xlDown 'insertion en ligne 2
.Range("C2:C17").ClearContents 'on ne garde que les données A2:B17
.Range("C2") = strFile
End With
' Fermeture du classeur
Workbooks(strFile).Close
End If
' Classeur suivant
strFile = Dir
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox "Le traitement des fichiers est terminé.", vbInformation, "Traitement..."
End Sub
Merci pour votre aide !
J'aurai besoin d'une aide pour adapter ce code ci dessous pour mon utilistation :
je dispose de plusieurs fichiers excel qu'on appelera "enfant" disposant de la meme nomenclature, et d'un fichier "mere"qui sera charger par la macro de recuperer les données Non vide de la plage P3:cc1000, et de les coller l'un en desous de l'autre dans le fichier master entre la plage A3:BN65556.
Les fichiers "enfants" sont dans un repertoire C:/Planning/enfants1..enfants2...enfants3...
Le fichier "mere" se situe dans le meme repertoire.
Merci pour votre aide, et n'hesiter pas à me contacter en cas de question ou d'indication supplementaire.
Private Sub cmdRecupere_Click()
Dim strWB As String, strFile As String
Application.ScreenUpdating = False
Application.EnableEvents = False
' Nom du classeur actuel
strWB = ThisWorkbook.Name
' Récupération du premier fichier dans le répertoire et sous repertoire
strFile = Dir(ThisWorkbook.Path & "\SousRepertoire\*.xls")
' Boucle du 1er au dernier classeur dans le répertoire et sous repertoire
Do While strFile <> ""
' Si le classeur n'est pas "Total.xls" et si son nom n'existe pas en colonne C
If strFile <> strWB And Worksheets("Feuil1").Columns("C").Find(strFile, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
' Ouvrir le fichier
Workbooks.Open ThisWorkbook.Path & "\" & strFile
' Copie des données
Workbooks(strFile).Worksheets(1).Range("A13:C28").Copy
With Workbooks(strWB).Worksheets("Feuil1")
.Range("A2").Insert xlDown 'insertion en ligne 2
.Range("C2:C17").ClearContents 'on ne garde que les données A2:B17
.Range("C2") = strFile
End With
' Fermeture du classeur
Workbooks(strFile).Close
End If
' Classeur suivant
strFile = Dir
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox "Le traitement des fichiers est terminé.", vbInformation, "Traitement..."
End Sub
Merci pour votre aide !
