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

Bourbonkid59 · 29 Juin 2020

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.

Dranreb · 29 Juin 2020

Bonjour.
Le classeur source n'a probablement pas de feuille "B49999"

Bourbonkid59 · 30 Juin 2020

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

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

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

Bourbonkid59

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Bourbonkid59

XLDnaute Nouveau

Discussions similaires