Utilisation d'une macro avec 2 classeurs

[PHILIP]

Bonjour à tous,

Débutant en vba , j'ai une macro qui marche qui copies des données d'une feuille 1 vers la feuille 2 et qui marche trés bien ce que je souhaiterai c'est l'utiliser pour qu'elle fasse le même travail entre la feuille"1" du classeur "x" et la feuille 2 du classeur "y" entre les wb pour classeur et set je suis encore un peu perdu pourriez vous m'aider ?voici le code

Dim plage As Range, c As Range
Dim LastLig As Long
Dim i As Byte
 
LastLig = Sheets("Feuil2").Range("A65536").End(xlUp).Row
Set plage = Sheets("Feuil2").Range("A7:A" & LastLig)
Set c = plage.Find(Sheets("Feuil1").Range("A1").Value, LookIn:=xlFormulas, lookat:=xlWhole)
If Not c Is Nothing Then
    For i = 1 To 5
        c.Offset(0, i).Value = Sheets("Feuil1").Range("B" & i + 4).Value
    Next i
End If
Set c = Nothing
Set plage = Nothing

Merci, pour votre aide

 

[Pierrot93]

Re : Utilisation d'une macro avec 2 classeurs

Bonjour Philippe

tu peux te servir de 2 variables pour identifier les 2 classeurs :

Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = Workbooks("classeur1.xls")
Set wb2 = Workbooks("classeur2.xls")

et ensuite sur les lignes de code concenrnant une feuille, tu précise le classeur à laquelle elle se rapporte :

LastLig = [B][COLOR="Blue"]wb1.[/COLOR][/B]Sheets("Feuil2").Range("A65536").End(xlUp).Row

bonne journée
@+