OVH Cloud OVH Cloud

Pas enregistrer sous

3 réponses
Avatar
Didier Novarin
Bonsoir
J'ai un classeur Excel nommé Alpha
je souhaite créer une macro qui supprime le classeur ouvert Alpha et
l'enregistre dans un dossier "C:\Résultat"
cela fonctionne mais comme pour un enregistrer sous il me laisse le classeur
d'origine
ce qui fait que je me retrouve avec 2 classeurs ?
Je vous remercie
Didier

3 réponses

Avatar
OnE
Bonsoir,

Est ce que c'est ca que tu veux faire ?

Sub deplace()
' récupère le chemin du fichier
Chemin = ActiveWorkbook.FullName

' enregistre le fichier sous ...
ActiveWorkbook.SaveAs "C:" & ActiveWorkbook.Name

' Supprime le fichier d'origine si différente
If ActiveWorkbook.FullName <> Chemin Then
Kill Chemin
End If
End Sub


Bonsoir
J'ai un classeur Excel nommé Alpha
je souhaite créer une macro qui supprime le classeur ouvert Alpha et
l'enregistre dans un dossier "C:Résultat"
cela fonctionne mais comme pour un enregistrer sous il me laisse le classeur
d'origine
ce qui fait que je me retrouve avec 2 classeurs ?
Je vous remercie
Didier






Avatar
Jacky
Re....
regarde dans le fil précèdent.....

JJ

"Didier Novarin" a écrit dans le message de
news: %
Bonsoir
J'ai un classeur Excel nommé Alpha
je souhaite créer une macro qui supprime le classeur ouvert Alpha et
l'enregistre dans un dossier "C:Résultat"
cela fonctionne mais comme pour un enregistrer sous il me laisse le
classeur d'origine
ce qui fait que je me retrouve avec 2 classeurs ?
Je vous remercie
Didier



Avatar
Didier Novarin
C'est parfait merci beaucoup OnE
Didier

"Jacky" a écrit dans le message de news:

Re....
regarde dans le fil précèdent.....

JJ

"Didier Novarin" a écrit dans le message de
news: %
Bonsoir
J'ai un classeur Excel nommé Alpha
je souhaite créer une macro qui supprime le classeur ouvert Alpha et
l'enregistre dans un dossier "C:Résultat"
cela fonctionne mais comme pour un enregistrer sous il me laisse le
classeur d'origine
ce qui fait que je me retrouve avec 2 classeurs ?
Je vous remercie
Didier