Sortie du projet pour copie et retour

Bonjour,

1) Dans mon application, le dossier actif est :

Sheets("Visu").Select

2) Je veux sauvegarder sur le bureau tout mon projet en lui donnant le nom

« COMPTA-2013-Sauvegarde »

Je fais donc cela :

ChDir "C:\Users\Utilisateur\Desktop"

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\Utilisateur\Desktop\COMPTA-" & Zannée & " Sauvegarde.xls", FileFormat:=xlExcel8 _

, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

3) Après cela, je suis sur le bureau (“C:\Users\Utilisateur\Desktop . . . . .

Comment revenir dans mon projet initial avec comme fichier actif celui que j’ai quitté avant la copie, à savoir : Sheets("Visu").Select ?

Merci de pelerin98

Bonjour

Ajoute en fin de code:

ActiveWorkbook.Close saveChanges:=true

Cordialement

Bonjour Sam20102,

merci pour ton aide et excuses-moi de ma faible compétence en VBA

Avec ton code ajouté, je suis bien revenu sur mon dossier de départ mais il faut maintenant le réactiver ?

Comment cela s'écrit-t-il ?

Cordiales salutations de pelerin98i

bonjour,

une proposition

Sub test()
wbn = ActiveWorkbook.FullName
ChDir "C:\Users\Utilisateur\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Utilisateur\Desktop\COMPTA-" & Zannée & " Sauvegarde.xls", FileFormat:=xlExcel8 _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.SaveAs filename:=wbn, FileFormat:=xlExcel8
End Sub

on peut rajouter des instructions display alerts pour gérer les messages de confirmation de remplacement

Bonjour H2SO4,

la sauvegarde du fichier source sur le bureau s'effectue bien mais . . .

après, ce que je veux, c'est revenir sur le fichier source pour y faire de nouveaux traitements

Après la sauvegarde, il retrouve bien le fichier source mais il semble vouloir l'écraser car il me dit :

Un fichier nommé ‘C:\Users\Utilisateur\Desktop\JPF\Billard\FINANCES\COMPTA-2013\COPTA-2013 – Copie.xls’ (qui est bien le fichier source) existe déjà à cet emplacement. Voulez-vous le remplacer ?

Il a donc l'intention d'écraser le fichier source en copiant qqchose dessus . . . Ce que je ne veux pas,

Cordiales salutations de pelerin98

Bonsoir,

une autre idée, on rouvre le fichier d'origine (mais dans ce cas on perd tous les changements non sauvés)

Sub test()
wbn = ActiveWorkbook.FullName
' si on veut sauver les dernières modifications dans le fichier avant de le sauver sous un autre nom, enlever le ' de la ligne suivante
' activeworkbook.save 
ActiveWorkbook.SaveAs Filename:="testsavecopy.xls"
Set obn = ActiveWorkbook
Workbooks.Open Filename:=wbn
obn.Close
End Sub