VBA - nom de fichier lors de la sauvegarde

Question

Bonjour,

Je souhaite proposer un nom de fichier à utiliser lorsque l'utilisateur clique sur "Sauvegarder" ou "Sauvegarder sous", de manière à ce que ce nom de fichier soit correctement formatté.

J'ai essayé en utilisant ça:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("C3").Value)
End Sub

ça fait ce que je veux pour "Sauvegarder" (a peu près, parce que ça plante lamentablement juste après la sauvegarde), mais pour "Sauvegarder sous", Excel affiche une 2eme fois la fenêtre de sauvegarde.

Pour résumer: je veux le contenu de ma cellule C3 dans le champ "Nom de fichier" de la boite de dialogue "Sauvegarder sous", et que cette boite de dialogue apparaisse une fois (et une seule!), que l'utilisateur clique sur "Sauvegarder" ou "Sauvegarder sous"

Est-ce que quelqu'un peut m'aider?
Merci d'avance!

Bidouilleu_R · Answer

bonjour,

Sub test()
nomfichier = ThisWorkbook.Path
nouveauNom = InputBox("Sous quel nom voulez-vous sauvegarder ?", "Sauvegarde", nomfichier)
'ici tu fais les contrôles que tu veux
ActiveWorkbook.SaveAs nouveauNom
End Sub

VBA - nom de fichier lors de la sauvegarde

1 réponse

Votre réponse

Discussions similaires

Newsletters