Recopier les données d'un classeur vers un autre

Bonjour le forum et les pros

J'ai créé un fichier (facturier_) pour la gestion des devis et factures d'un auto-entrepreneur. Ce fichier a plusieurs onglets BDD articles, clients..... Il y a aussi 1 onglet DEVIS dans lequel je vais taper les données de prestation et tarifs. J'ai créé un bouton avec une macro pour l'enregistrer en .pdf et excel et le renommer du N° du devis. Jusque là tout va bien .

Lorsque je veux faire la facture (c'est aussi un onglet de mon fichier facturier_), je recherche le devis correspondant via un bouton, ça marche aussi, le devis s'ouvre. Je voudrais que les données du devis se reportent en auto lorsque j'active le bouton "copier les données du devis" mais c'est là que le bât blesse, ça marche pas . Je mets en pj une copie de devis et l'onglet facture du facturier_Merci pour votre aide

Bonjour,

Option Explicit
Private Sub CommandButton5_Click() 'recopier les données du devis vers la facture
Dim wbk1 As Workbook, wbk2 As Workbook, maPlage As Range

    Set wbk1 = ThisWorkbook
    Set wbk2 = Workbooks.Open(wbk1.Path & "\" & Range("F5") & ".xlsx")
    Set maPlage = wbk2.Sheets(1).Range("C21:F52")
    maPlage.Copy Destination:=wbk1.Sheets("FACTURE").Range("C18")  'Copie vers la facture du facturier
    wbk2.Close

End Sub

Bonjour Steelson,

MERCI!!! ça fonctionne à merveille et même ++, je n'ai pas besoin de rechercher le devis, ça le fait tout seul . Quand on connait c'est simple, mais quand on "tatonne" comme moi on s'embrouille vite et ça devient compliqué... Bonnes fêtes de Noël à toi, encore merci.