Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
tissot.emmanuel
Bonjour,
Sub EnregistrerSous() Dim NomFichier NomFichier = Application.GetSaveAsFilename(fileFilter:="Micosoft Excel (*.xls), *.xls") If VarType(NomFichier) = vbBoolean Then MsgBox "Annuler" Else MsgBox NomFichier End If End Sub
Cordialement,
Manu/
"Patrice" a écrit dans le message de news:
Bonjour,
J'ai inséré dans mon code VBA la commande suivante: Application.Dialogs(xlDialogSaveAs).Show ""
J'aimerais savoir comment faire pour savoir si l'usager a annulé ou fermer la fenêtre sans sauvegarder.
Merci
Bonjour,
Sub EnregistrerSous()
Dim NomFichier
NomFichier = Application.GetSaveAsFilename(fileFilter:="Micosoft Excel
(*.xls), *.xls")
If VarType(NomFichier) = vbBoolean Then
MsgBox "Annuler"
Else
MsgBox NomFichier
End If
End Sub
Cordialement,
Manu/
"Patrice" <Patrice@discussions.microsoft.com> a écrit dans le message de
news: FB75FACB-F87C-4215-9030-FA2B44E73D9C@microsoft.com...
Bonjour,
J'ai inséré dans mon code VBA la commande suivante:
Application.Dialogs(xlDialogSaveAs).Show ""
J'aimerais savoir comment faire pour savoir si l'usager a annulé ou fermer
la fenêtre sans sauvegarder.
Sub EnregistrerSous() Dim NomFichier NomFichier = Application.GetSaveAsFilename(fileFilter:="Micosoft Excel (*.xls), *.xls") If VarType(NomFichier) = vbBoolean Then MsgBox "Annuler" Else MsgBox NomFichier End If End Sub
Cordialement,
Manu/
"Patrice" a écrit dans le message de news:
Bonjour,
J'ai inséré dans mon code VBA la commande suivante: Application.Dialogs(xlDialogSaveAs).Show ""
J'aimerais savoir comment faire pour savoir si l'usager a annulé ou fermer la fenêtre sans sauvegarder.