Copie de feuille dans un autre classeur

[Delirium]

Bonjour.

je suis entrain de réaliser unu application sous excel qui copie la feuil1 dans un autre classeur.

Mais cette macro ne s'execute pas.

Sub SavegardeFeuil()
Sheets('Feuil1').Copy
    ChDir 'E:\\Thermique\\Données Sites\\01'
    ActiveWorkbook.SaveAs Filename:= _
        'E:\\Thermique\\Données Sites\\01\\Classeur1.xls' _
        , FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Je ne vois pas du tout pourquoi elle ne marche pas !

Si quelqu'un a la solution, merci.

 

[Sylvie]

Bonjour Delirium, Re bonjour Très Cher Forum,

La seule explication que j'entrevois au non fonctionnement de ta macro serait que les repertoires définis dans ton chemin d'accès ne soient pas déjà existants sur le lecteur E (n'hzsite pas à copier le chemin exact à partir de l'explorateur)
Sinon pour l'avoir testée sur un autre chemin, je te confirme que ton code fonctionne.

Bonne journée

 

[Dan]

Message édité par: Dan, à: 10/08/2005 10:14

 

[Dan]

Bonjour,

Essaie ceci :
1. Sauvegarder dans un classeur dont tu connais le nom

Sub Sauvegardefeuil()
Dim chemin As String
    chemin = 'E:\\Thermique\\Données Sites\\01'
    Workbooks.Open Filename:=chemin & 'nom du Classeur de sauvegarde .xls'
    Workbooks('nom de ton classeur contenant la feuille à sauver .xls').Sheets('nom de ta feuille à sauver').Copy After:=Workbooks('nom du Classeur de sauvegarde .xls').Sheets(1)
ActiveWorkbook.Save
End Sub

2. Sauvegarder dans un nouveau classeur

Sub Sauvegardefeuil()
chDir 'E:\\Thermique\\Données Sites\\01'
Workbooks('classeur1.xls').Sheets('nom de ta feuille à sauvegarder').Copy
ActiveWorkbook.Save
End Sub

😉

Message édité par: Dan, à: 10/08/2005 10:18

 

[Delirium]

Bonjour Dan et Sylvie40.

Désolé j'avais zappé ce fil.

La solution que m'a proposé DAN marche nickel 😛 .

Merci a vous deux et à bientôt.