Discussion :

[Denis_67]

Bonjour,

J'ai une procédure au cours de laquelle je souhaite sauvegarder le classeur sous un autre nom avec la fenetre de dialogue, pour corriger éventuellement le nom.
Ensuite ma procédure continue pour pour envoyer un mail avec un lien contenant le chemin complet du fichier sauvegardé.
Or si je fais un enregistrement sous, je perds la main sur ma procédure en cours ?

je nomme mon classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
NomClasseur = repin & Classeur & Tec & Madate & Client & Comp & ".xlsm"
"C:\xxxxx\xxxxx\xxxxxxxxxxxxxCreation Essai_CGO31_01_2018TESTTest Denis.xlsm"

mon problème, si j'utilise la syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogSaveAs).Show (NomClasseur)

ma procédure ne continue pas, puisque mon classeur a changé de nom (je suppose)

et si j'utilise la syntaxe, je n'arrive pas à activer le dialogue.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveCopyAs (NomClasseur)

Quand j'utilise la syntaxe suivante avec l'extension xlsm, j'ai bien la fenetre de dialogue, mais il n'enregistre pas le fichier et si je ne mets pas l'extension la fonction ajoute xlsx mais s'interrompt sans N° d'erreur ! et je me retrouve sur le end width en debogage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = NomClasseur
        .Show
    End With

pas trop d'aide dans l'aide MS
https://msdn.microsoft.com/fr-fr/VBA...5)%26rd%3Dtrue

Merci pour votre aide
Denis

[Menhir]

mon problème, si j'utilise la syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogSaveAs).Show (NomClasseur)

ma procédure ne continue pas, puisque mon classeur a changé de nom (je suppose)

et si j'utilise la syntaxe, je n'arrive pas à activer le dialogue.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveCopyAs (NomClasseur)

Les Méthodes (comme GetSaveAsFilename) et Propriétés (comme Dialogs) affichant des boites de dialogues ne font pas d'action.
Elle se contente d'ouvrir une boite selon des paramètres donnés et de retourner le choix de l'utilisateur.

A l'opposé, les Méthodes de sauvegarde comme SaveAs, SaveCopyAs et autres font des actions de sauvegarde mais n'affichent pas de boites de dialogue interactives.

Si tu veux une boites de dialogue SaveAs puis sauvegarder ton fichier, il faut donc le faire en deux fois.

[Denis_67]

C'est simple c'est clair !
Je vais appliquer
Merci Menhir.

Bonne soirée

Denis