bonjour, je souhaite sauvegarder un classeur en demandant le dossier de destination via la boite de dialogue Enregistrer sous et proposer nom prédéfini comme nom de fichier.
Avec le code que j'ai la boite de dialogue s'ouvre bien, mais le nom prédéfini ne s'affiche pas comme nom de fichier.
Voici le code que j'ai écrit:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub SaveAChoisir()
jour = Format(Now(), "dd.mm.yy")
Nom = "METHODO" & " " & Range("f2") & " " & Range("r2") & " " & "màj " & "le " & jour & ".xls"
   Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Nom.Value)
End Sub
j'ai identifier l'erreur (voir en rouge) mais je ne trouve pas la solution.
Y a t-il quelqu'un pour venir à mon aide svp.