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

Bourbonkid59

XLDnaute Nouveau
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.

VB:
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.
 

Bourbonkid59

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

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

VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas