Discussion :

[ThomasVIGIER]

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

[kiki29]

Salut, via déjà une recherche

[ThomasVIGIER]

Je crois que je vais trouver mon bonheur, Merci kiki29.