Le chargement d'une feuille de calcul à partir d'un autre classeur dans Excel avec VBA

Je cherche à créer une sous-routine qui invite l'utilisateur à sélectionner un classeur, puis ajoute de la première feuille de calcul du classeur sélectionné sous forme d'un onglet dans l'existant (active) classeur. Ensuite, les noms de la nouvelle onglet "Données". Ici c'est le code que j'utilise pour l'instant:

Sub getworkbook()
' Get workbook...
Dim ws As Worksheet
Dim filter As String
Dim targetWorkbook As Workbook

Set targetWorkbook = Application.ActiveWorkbook

' get the customer workbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
ws = Application.GetOpenFilename(filter, , caption)

ws.Add After:=Sheets(Sheets.Count)

ws.Name = "DATA"

End Sub

Ce code ne semble pas fonctionner et retourne l'erreur suivante:

"ws.Ajouter" méthode ou d'un Bloc with non définie.

Toute aide est appréciée.

Merci,

InformationsquelleAutor AME | 2012-08-15
  1. 4

    Vous avez déclaré ws comme une feuille de calcul et GetOpenFilename retourne un nom de Fichier. Je vous recommande de lire mon post dans ce lien:

    Est-ce que vous essayez?

    Note: je n'ai pas fait toute erreur de manipulation. Je suis sûr que vous pouvez prendre soin de cela.

    Sub getworkbook()
    ' Get workbook...
    Dim ws As Worksheet
    Dim filter As String
    Dim targetWorkbook As Workbook, wb As Workbook
    Dim Ret As Variant

    Set targetWorkbook = Application.ActiveWorkbook

    ' get the customer workbook
    filter = "Text files (*.xlsx),*.xlsx"
    Caption = "Please Select an input file "
    Ret = Application.GetOpenFilename(filter, , Caption)

    If Ret = False Then Exit Sub

    Set wb = Workbooks.Open(Ret)

    wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)

    ActiveSheet.Name = "DATA"
End Sub
    • Comment puis-je inclure ancienne version des fichiers excel, c'est à dire .xls?
    • changement filter = "Text files (*.xlsx),*.xlsx" à filter = "Text files (*.xls*),*.xls*"
    InformationsquelleAutor Siddharth Rout