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