Discussion :

[dvdhag123]

Bonjour,
Malgré mes recherches je n’arrive pas à trouver de solution. Je vous expose l’ensemble de mon problème.
J’ai :
• un fichier excel nommé « RECAP » dans le répertoire : \\FICHIER\MACRO\RECAP1. Le fichier « RECAP » comporte 24 onglets nommé A1, B1, A2, B2, A3, C3, ….
• 12 fichiers nommé « Materiel(x) » (x allant de 1 à 12) dans le répertoire : \\FICHIER\MACRO\RECAP1. Chaque fichier Matériel comporte 2 onglets nommé « livraison » et « Lieu »

Je souhaite créer une macro qui sera dans le fichier « RECAP ».
Cette macro doit :
• Ouvrir le fichier nommé « Materiel(1) »
• Copier la plage A1:L dernièreligne de l’onglet « livraison » vers l’onglet A1 de "RECAP"
Copier la plage A1:C dernièreligne de l’onglet « Lieu » vers B1 "RECAP"
• Fermer le fichier nommé « Materiel(1) »
…
• Ouvrir le fichier nommé « Materiel(2) »
• Copier la plage A1:L dernièreligne de l’onglet « livraison » vers l’onglet A2
Copier la plage A1:C dernièreligne de l’onglet « Lieu » vers B2
• Fermer le fichier nommé « Materiel(2) »
…
Boucle jusque le fichier « Materiel(12) »

Sachant que la dernière ligne de mes onglets est variable

Merci d'avance pour votre aide

[EricDgn]

Bonjour,

Une façon de faire, en reprenant l'entièreté des colonnes (sans s'occuper de savoir combien de lignes y sont utilisées):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub Recopie()
    Dim i As Integer, wb As Workbook
    For i = 1 To 12
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\Materiel(" & i & ")")
        wb.Worksheets("Livraison").Range("A:L").Copy ThisWorkbook.Worksheets("A" & i).Range("A1")
        wb.Worksheets("Lieu").Range("A:C").Copy ThisWorkbook.Worksheets("B" & i).Range("A1")
        wb.Close
    Next i
    Set wb = Nothing
End Sub

Cordialement.

[dvdhag123]

Bonjour,
Merci pour ton retour, entre 2 j'ai essayé de développer et mon code est 2 fois plus long.
Merci pour l'astuce