Bonjour,
Je débute en VBA et je cherche à mettre une macro qui ouvre directement la boîte de dialogue enregistrer sous.
j'utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Sheets("Navigation").Activate ThisWorkbook.Sheets("Navigation").Visible = True If ThisWorkbook.Sheets("Note de frais").Visible = True Then ThisWorkbook.Sheets("Note de frais").Select ThisWorkbook.Sheets("Note de frais").Visible = False End If c = MsgBox("Pensez à enregistrer votre classeur au format .xlsm ou vous ne pourrez plus modifier votre classeur!!", vbExclamation, "Interactions et Entreprise") Application.Dialogs(xlDialogSaveAs).Show End Sub
Comment faire pour que l'application affiche
[*]la valeur d'une cellule as le nom du fichier[*]un format spécifique prenant en charge les macros .xlsm
Merci pour vos réponses
Partager