Discussion :

[a_centaure]

Bonjour,

une nouvelle question de ma part...

j'utilise, dans ma macro, la commande suivante pour faire enregistrer un fichier par l'utilisateur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogSaveAs).Show

je voudrais savoir s'il est possible de bloquer les commandes "annuler" et la croix pour l'obliger à affectuer la sauvegarde ?

merci d'avance

[laetitia]

bonjour a_centaure le forum dans before peut être!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

[a_centaure]

ce n'est pas une sauvegarde avant la fermeture mais une sauvegarde intermediaire dans la macro...

merci qu'en meme

[laetitia]

re,comme je comprends!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub es()
 'ton code
   ActiveWorkbook.SaveAs
 'ton code
End Sub

[a_centaure]

bonjour,

En fait, je ne voulais pas creer un userform pour recuperer l'emplacement de sauvegarde de l'utilisateur, puis utiliser le 'ActiveWorkbook.SaveAs'. J'esperai directement utiliser ce qui existait sur excel (le 'Application.Dialogs(xlDialogSaveAs).Show') mais en grisant le bouton annulé (et la croix) pour ne pas planter la macro par la suite...

Mais ca reste une solution possible meme si je voudrais bien l'eviter

[a_centaure]

petit up,

je me suis replongé dans cette macro aujourd'hui et j'ai trouvé la solution sur un autre forum... je la mets ici au cas où ca puisse servir quelqu'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub b_save_Click()  
Dim Filename As String  
Filename = "Donner un nom"  
Resultat= Application.Dialogs(xlDialogSaveAs).Show(Filename)
If Resultat = true then
     'OK button
else
     'Annuler
end if
End Sub