Copier Coller FEuille VBA

Bonjour,

J'ai trouvé ce code, je l'ai modifié mais j'ai une erreur d'execution. Le but est de transferer la feuille contenue dans le dossier source, vers le dossier destination.

Sub CopySheetToAnotherWorkBook()

    Dim wbSource As Excel.Workbook
    Dim wbDestination As Excel.Workbook
    Dim fileLocationSource As String
    Dim fileLocationDestination As String

    fileLocationSource = ThisWorkbook.Path & "L:\zz. MISE A JOUR AC I\2008\Georges !! Mise a jour !\correspondance rad-ref 2008\Abgent rad-ref 2008.xls"
    fileLocationDestination = ThisWorkbook.Path & "L:\zz. MISE A JOUR AC I\2008\Georges !! Mise a jour !\full lists 2007\Abgent full list 2007.xls"

    Set wbSource = Workbooks.Open(fileLocationSource)
    Set wbDestination = Workbooks.Open(fileLocationDestination)

    wbSource.Worksheets(1).Copy _
            After:=wbDestination.Worksheets(wbDestination.Worksheets.Count)

    wbSource.Close savechanges:=False
    wbDestination.Close savechanges:=True

    Set wbSource = Nothing
    Set wbDestination = Nothing

    End Sub

Erruer d'execution 1004

Merci d'avance

Bonjour,

A priori, tu dois avoir un problème dès la 1 ère ligne d'instruction :

fileLocationSource = ThisWorkbook.Path & "L:\zz. MISE A JOUR AC I\2008\Georges !! Mise a jour !\correspondance rad-ref 2008\Abgent rad-ref 2008.xls" 

quel est le répertoire exact de ton fichier source?

si c'est "L:\zz.....;", tu n'as pas besoin de mettre devant l'instruction :

ThisWorkbook.Path

Cette instruction te donne déjà le chemin du fichier qui lance la macro

Tu peux essayer avec :

ThisWorkbook.Path & "\Abgent rad-ref 2008.xls"

si ton fichier source est dans le même répertoire que le fichier qui lance la macro

Sinon, enlève ThisWorkbook.Path

Merci , c'est ca que je comprenais pas