sakura
XLDnaute Nouveau
Bonjour,
Je suis entrain enfin j'essaye de faire une macro pour copier une feuille (qui se nomme Noms.xlsm) vers d'autres classeur (ici NDF.xltm) sur le réseau pour une mise à jour automatique mais j'ai une erreur d'execution et je suis un peu perdu alors je viens faire appel à vos lumières !
Lorsque je lance la macro je suis dans le fichier Noms.xlsm et je souhaite mettre à jour le fichier NDF.xltm
Voici mon code :
Sub copie_feuille()
Workbooks.Open Filename:="G:\NDF.xltm"
Workbooks("NDF.xltm").Worksheets("NOMS").Cells.ClearContents
Workbooks("Noms.xlsm").Worksheets("NOMS").Cells.Copy _
Workbooks("NDF.xltm").Worksheets("NOMS").Range ("A1")
Workbooks("NDF.xltm").Save
Workbooks("NDF.xltm").Close False
End Sub
Lorsque je la lance j'ai une erreur d'execution 9 et je ne comprends pas pourquoi.
Merci beaucoup pour votre aide.
Je suis entrain enfin j'essaye de faire une macro pour copier une feuille (qui se nomme Noms.xlsm) vers d'autres classeur (ici NDF.xltm) sur le réseau pour une mise à jour automatique mais j'ai une erreur d'execution et je suis un peu perdu alors je viens faire appel à vos lumières !
Lorsque je lance la macro je suis dans le fichier Noms.xlsm et je souhaite mettre à jour le fichier NDF.xltm
Voici mon code :
Sub copie_feuille()
Workbooks.Open Filename:="G:\NDF.xltm"
Workbooks("NDF.xltm").Worksheets("NOMS").Cells.ClearContents
Workbooks("Noms.xlsm").Worksheets("NOMS").Cells.Copy _
Workbooks("NDF.xltm").Worksheets("NOMS").Range ("A1")
Workbooks("NDF.xltm").Save
Workbooks("NDF.xltm").Close False
End Sub
Lorsque je la lance j'ai une erreur d'execution 9 et je ne comprends pas pourquoi.
Merci beaucoup pour votre aide.