XL 2016 Importer des données d'un autre classeur en VBA

[Bourbonkid59]

Bonjour à toutes et tous,

Je travail dans un classeur que je vais appeler TRAVAIL.xlsx.
Dans ce classeur là j'ai plusieurs feuilles dont une qui se nomme EXTRACTION. Dans cette feuille je voudrais créer un bouton IMPORTER
qui aille chercher les données dans un autre classeur EXTRACTION.xlsx et copie les valeurs de B4 : P99999 dans ma feuille EXTRACTION du classeur TRAVAIL.xlsx

J'ai essayé le code suivant trouvé sur la toile que j'ai essayé d'adapter pour plusieurs colonnes mais j'ai un message d'erreur.

Private Sub CommandButton2_Click()
Dim Source As Workbook
Dim Cible As Range
Dim DerniereCellule As Range
    Set Source = Workbooks.Open("mondossierdetravail\Extraction.xlsx")
   
    Set Cible = ThisWorkbook.Worksheets("Extraction").Range("B4:P99999")
    With Source.Worksheets("B4:P99999")
        Set DerniereCellule = .Cells.SpecialCells(xlCellTypeLastCell)
        .Range(Cells(1, 1), DerniereCellule).Copy Cible
    End With
    Source.Saved = True
    Source.Close
End Sub

Merci d'avance de votre aide.
Bonne journée.
Cordialement.

 

[Dranreb]

Bonjour.
Le classeur source n'a probablement pas de feuille "B4😛9999"

 

[Bourbonkid59]

Bonjour Dranreb,
En effet il est vrai que vba n'aime pas les grimaces ^^ 😛 : P

Sinon j'ai trouvé ma réponse en continuant à chercher 🙂

Private Sub CommandButton2_Click()
Dim Source As Workbook
Dim Cible As Range
Dim DerniereCellule As Range

    Set Source = Workbooks.Open("monrépertoire\Extraction.xlsx")
        
        With Workbooks("Extraction.xlsx").Worksheets("Extraction").Range("B2:P99999").Copy
        End With
        
    Range("B2:P99999").PasteSpecial
    Workbooks("Extraction.xlsx").Close False
  
    
End Sub