Copier feuille d'une classeur à un autre

[YaGo]

Bonjour à tous,

Je souhaite faire un code servant à récupérer une feuille présente dans un autre classeur afin de la copier dans le classeur actif.
Mon code actuelle ne fonctionne pas et j'obtiens 2 erreurs...L'indice qui n'appartient pas à la sélection et la suivant lorsque j'essai de relance le code.
Erreur d'exécution '-2147....
Erreur Automation

L'erreur vient de cette ligne: DataBaseFile.Copy After:=WorkbookMaster.Sheets(Home)

Sub CopyDataBaseFile()
    Application.ScreenUpdating = False
    Dim WorkbookMaster As Workbook, WorkbookSlave As String
    Dim DataBase, DataBaseFile
    
    Set WorkbookMaster = ActiveWorkbook
    WorkbookSlave = Dir(ActiveWorkbook.Path & "\DataBase*.xls")
    Set DataBase = Workbooks.Open(ActiveWorkbook.Path & "\" & WorkbookSlave)
    Set DataBaseFile = DataBase.Sheets("Data Base File")
    DataBaseFile.Copy After:=WorkbookMaster.Sheets(Home)
    Workbooks(WorkbookSlave).Close
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
End Sub

Cdlt,

YaGo

 

[Pierrot93]

Re : Copier feuille d'une classeur à un autre

bonjour,

manque peut être guillemets si "home" n'est pas une variable (dont on ne voit pas l'initialisation d'ailleurs si c'est le cas) :

DataBaseFile.Copy After:=WorkbookMaster.Sheets("Home")

bon après midi
@+

 

[YaGo]

Re : Copier feuille d'une classeur à un autre

Bonjour Pierrot,

Effectivement j'avais complètement zappé ca...
Désoler pour le dérangement!