Copie d'un classeur vers un dossier du bureau

bonjour

je dois copier l'integralité de mon classeur 1 vers un dossier sur mon bureau nommé " sauvegarde "

la copie de classeur1 est nommée : bis

mon code est le suivant :

Sub Macro2()
'
Dim Sh As Worksheet
Dim classeur1 As String
Dim bis As String

    classeur1 = ActiveWorkbook.Name

    Workbooks.Add
   bis = ActiveWorkbook.Name
     For Each Sh In Workbooks(classeur1).Worksheets

        Workbooks(classeur1).Sheets(Sh.Name).Copy Before:=Workbooks(bis).Sheets(1)
    Next Sh

  .SaveAs Filename:=Chemin & "\sauvegarde\bis.xls"
     .Close

End Sub

mon code ne fonctionne pas à la ligne :

 .SaveAs Filename:=Chemin & "\sauvegarde\bis.xls"

Merci pour tout aide ou conseil

Salut

Que d'embrouille, tu veux copier un fichier complet en prenant les feuilles une par une ???

Tu veux sauvegarder à un emplacement Chemin & "\sauvegarde\bis.xls"

Petit renseignement ta variable chemin que vaut-elle ??? (source d'erreur, elle n'existe pas, ou bien le contenu est plus que flou)

Petit exemple avec sauvegarde de ton fichier courant.

Dim chemin, dossier As String
chemin = "c:\sauvegarde\"
dossier = "bis.xls"
ActiveWorkbook.SaveCopyAs chemin & dossier

Attention petit code ne vérifiant pas l'existence du dossier c::\sauvegarde

A plus

Merci pour cette réponse rapide , effectivement excel ne trouve pas chemin = "c:\sauvegarde\"

ca y est j'ai solutionné :

Sub Macro2()
'
Dim chemin, dossier As String
chemin = ActiveWorkbook.Path

dossier = "C:\Users\ROCKET\Desktop\sauvegarde\bis.xls"
ActiveWorkbook.SaveCopyAs dossier
End Sub

MERCI POUR TON INTERVENTION

en retirant l'inutile ca donnerai

Sub Macro2()
'
Dim  dossier As String

dossier = "C:\Users\ROCKET\Desktop\sauvegarde\bis.xls"
ActiveWorkbook.SaveCopyAs dossier
End Sub
 

bonsoir

je me permet de relancer ce post pour une dernière question , la macro précédente me permet de copier l'ensemble

des feuilles de mon classeur vers un dossier de sauvegarde , si je ne souhaite pas que la feuille1 de mon classeur soit copiée

comment dois je m'y prendre ?

Merci à vous