VBA : Comment extraire des données d’un autre classeur

Vous pouvez utiliser la syntaxe suivante dans VBA pour extraire des données d’un autre classeur :

Sub ExtractData()
    
    'turn off screen updates to make this run faster
    Application.ScreenUpdating = False
    
    'specify workbook we want to extract data from
    Set wb = Workbooks.Open("C:\Users\bobbi\OneDrive\Desktop\my_data.xlsx")
    
    'extract all data from Sheet1 and paste as new sheet in current workbook
    wb.Sheets("Sheet1").Copy After:=ThisWorkbook.Sheets(1)
    
    'do not save any changes to workbook we extracted data from
    wb.Close SaveChanges:=False
    
    'turn screen updating back on
    Application.ScreenUpdating = True
    
End Sub

Cette macro particulière ouvre le classeur appelé my_data.xlsx situé à l’emplacement suivant :

C:\Utilisateurs\Bob\Desktop\my_data.xlsx

Il copie ensuite toutes les données de la feuille appelée Sheet1 dans ce classeur et les copie dans la feuille directement après la première feuille de notre classeur actuellement actif.

Remarque : La ligne Application.ScreenUpdating = False indique à VBA d’exécuter ce processus en arrière-plan afin qu’il s’exécute plus rapidement.

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : extraire des données d’un autre classeur à l’aide de VBA

Supposons que le classeur Excel suivant soit ouvert et que nous le consultions :

Supposons maintenant que nous ayons un autre classeur fermé mais contenant les données suivantes :

Nous pouvons utiliser la macro suivante pour extraire les données de la feuille 1 de ce classeur fermé et les coller dans une nouvelle feuille directement après la première feuille de notre classeur actuellement ouvert :

Sub ExtractData()
    
    'turn off screen updates to make this run faster
    Application.ScreenUpdating = False
    
    'specify workbook we want to extract data from
    Set wb = Workbooks.Open("C:\Users\bobbi\OneDrive\Desktop\my_data.xlsx")
    
    'extract all data from Sheet1 and paste as new sheet in current workbook
    wb.Sheets("Sheet1").Copy After:=ThisWorkbook.Sheets(1)
    
    'do not save any changes to workbook we extracted data from
    wb.Close SaveChanges:=False
    
    'turn screen updating back on
    Application.ScreenUpdating = True
    
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que les données du classeur fermé ont été extraites et collées en tant que nouvelle feuille dans notre classeur actuellement actif.

N’hésitez pas à renommer la nouvelle feuille car elle est identique à la feuille actuelle.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment compter le nombre de feuilles dans un classeur
VBA : comment insérer plusieurs colonnes
VBA : comment insérer plusieurs lignes