Je voudrais r=E9cup=E9rer la r=E9ponse de l'utilisateur suite =E0=20
l'ouverture de la boite de dialogue enregistrer sous... ,=20
s'il a cliqu=E9 sur Enregistrer ou Annuler. L=E0 o=F9 =E7a se=20
complique c'est que je veux cette info dans l'=E9v=E9nnement=20
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook,=20
ByVal SaveAsUI As Boolean, Cancel As Boolean)
d=E9clench=E9 par l'utilisateur lorsqu'il =E0 cliqu=E9 dans le=20
menu Fichier-> Enregistrer sous...
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
Gaenonius
As-tu essayé d'utiliser cette méthode (détails dans l'aide) ?
Application.GetSaveAsFilename
-- Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur suite à l'ouverture de la boite de dialogue enregistrer sous... , s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique c'est que je veux cette info dans l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu Fichier-> Enregistrer sous...
C'est assez clair?
Merci Eryck
As-tu essayé d'utiliser cette méthode (détails dans l'aide) ?
Application.GetSaveAsFilename
--
Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur suite à
l'ouverture de la boite de dialogue enregistrer sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se
complique c'est que je veux cette info dans l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le
menu Fichier-> Enregistrer sous...
As-tu essayé d'utiliser cette méthode (détails dans l'aide) ?
Application.GetSaveAsFilename
-- Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur suite à l'ouverture de la boite de dialogue enregistrer sous... , s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique c'est que je veux cette info dans l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu Fichier-> Enregistrer sous...
C'est assez clair?
Merci Eryck
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche. Par contre il 'n'existe pas de valeur, paramétre ou événnement suite au choix de l'utilisateur. Donc je ne sais pas s'il a choisi Enregistrer ou Annuler. tu vois ?
-----Message d'origine----- As-tu essayé d'utiliser cette méthode (détails dans l'aide) ?
Application.GetSaveAsFilename
-- Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur suite à
l'ouverture de la boite de dialogue enregistrer sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique c'est que je veux cette info dans l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu Fichier-> Enregistrer sous...
C'est assez clair?
Merci Eryck .
l'événnement Enregistrer sous est provoqué par
l'utilisateur lorqu'il passe par Fichier Enregistrer sous.
La boite de dialogues'affiche. Par contre il 'n'existe
pas de valeur, paramétre ou événnement suite au choix de
l'utilisateur. Donc je ne sais pas s'il a choisi
Enregistrer ou Annuler.
tu vois ?
-----Message d'origine-----
As-tu essayé d'utiliser cette méthode (détails dans
l'aide) ?
Application.GetSaveAsFilename
--
Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur
suite à
l'ouverture de la boite de dialogue enregistrer
sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se
complique c'est que je veux cette info dans
l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As
Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le
menu Fichier-> Enregistrer sous...
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche. Par contre il 'n'existe pas de valeur, paramétre ou événnement suite au choix de l'utilisateur. Donc je ne sais pas s'il a choisi Enregistrer ou Annuler. tu vois ?
-----Message d'origine----- As-tu essayé d'utiliser cette méthode (détails dans l'aide) ?
Application.GetSaveAsFilename
-- Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur suite à
l'ouverture de la boite de dialogue enregistrer sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique c'est que je veux cette info dans l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu Fichier-> Enregistrer sous...
C'est assez clair?
Merci Eryck .
Gaenonius
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche.
Non, tu peux la court-circuiter (en utilisant le paramètre Cancel) et décider ensuite du traitement à exécuter :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ThisWorkbook.Path = "" Then Cancel = True MsgBox "coucou" 'là, c'est toi qui décides des événements.. par exemple : ' Application.GetSaveAsFilename End If End Sub
-- Gaenonius
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche. Par contre il 'n'existe pas de valeur, paramétre ou événnement suite au choix de l'utilisateur. Donc je ne sais pas s'il a choisi Enregistrer ou Annuler. tu vois ?
-----Message d'origine----- As-tu essayé d'utiliser cette méthode (détails dans
l'aide) ?
Application.GetSaveAsFilename
-- Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur
suite à
l'ouverture de la boite de dialogue enregistrer
sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique c'est que je veux cette info dans
l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As
Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu Fichier-> Enregistrer sous...
C'est assez clair?
Merci Eryck
.
l'événnement Enregistrer sous est provoqué par
l'utilisateur lorqu'il passe par Fichier Enregistrer sous.
La boite de dialogues'affiche.
Non, tu peux la court-circuiter (en utilisant le paramètre Cancel) et décider
ensuite du traitement à exécuter :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Path = "" Then
Cancel = True
MsgBox "coucou"
'là, c'est toi qui décides des événements.. par exemple :
' Application.GetSaveAsFilename
End If
End Sub
--
Gaenonius
l'événnement Enregistrer sous est provoqué par
l'utilisateur lorqu'il passe par Fichier Enregistrer sous.
La boite de dialogues'affiche. Par contre il 'n'existe
pas de valeur, paramétre ou événnement suite au choix de
l'utilisateur. Donc je ne sais pas s'il a choisi
Enregistrer ou Annuler.
tu vois ?
-----Message d'origine-----
As-tu essayé d'utiliser cette méthode (détails dans
l'aide) ?
Application.GetSaveAsFilename
--
Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur
suite à
l'ouverture de la boite de dialogue enregistrer
sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se
complique c'est que je veux cette info dans
l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As
Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le
menu Fichier-> Enregistrer sous...
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche.
Non, tu peux la court-circuiter (en utilisant le paramètre Cancel) et décider ensuite du traitement à exécuter :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ThisWorkbook.Path = "" Then Cancel = True MsgBox "coucou" 'là, c'est toi qui décides des événements.. par exemple : ' Application.GetSaveAsFilename End If End Sub
-- Gaenonius
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche. Par contre il 'n'existe pas de valeur, paramétre ou événnement suite au choix de l'utilisateur. Donc je ne sais pas s'il a choisi Enregistrer ou Annuler. tu vois ?
-----Message d'origine----- As-tu essayé d'utiliser cette méthode (détails dans
l'aide) ?
Application.GetSaveAsFilename
-- Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur
suite à
l'ouverture de la boite de dialogue enregistrer
sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique c'est que je veux cette info dans
l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As
Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu Fichier-> Enregistrer sous...
C'est assez clair?
Merci Eryck
.
Gaenonius
Précision, si tu veux utiliser ce code avec n'importe quel classeur (dont des classeurs déjà enregistrés), supprime le test If, qui restreint l'utilisation aux seuls nouveaux classeurs.
-- Gaenonius
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche.
Non, tu peux la court-circuiter (en utilisant le paramètre Cancel) et décider ensuite du traitement à exécuter :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ThisWorkbook.Path = "" Then Cancel = True MsgBox "coucou" 'là, c'est toi qui décides des événements.. par exemple : ' Application.GetSaveAsFilename End If End Sub
-- Gaenonius
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche. Par contre il 'n'existe pas de valeur, paramétre ou événnement suite au choix de l'utilisateur. Donc je ne sais pas s'il a choisi Enregistrer ou Annuler. tu vois ?
-----Message d'origine----- As-tu essayé d'utiliser cette méthode (détails dans
l'aide) ?
Application.GetSaveAsFilename
-- Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur
suite à
l'ouverture de la boite de dialogue enregistrer
sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique c'est que je veux cette info dans
l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As
Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu Fichier-> Enregistrer sous...
C'est assez clair?
Merci Eryck
.
Précision,
si tu veux utiliser ce code avec n'importe quel classeur (dont des classeurs
déjà enregistrés), supprime le test If, qui restreint l'utilisation aux seuls
nouveaux classeurs.
--
Gaenonius
l'événnement Enregistrer sous est provoqué par
l'utilisateur lorqu'il passe par Fichier Enregistrer sous.
La boite de dialogues'affiche.
Non, tu peux la court-circuiter (en utilisant le paramètre Cancel) et
décider ensuite du traitement à exécuter :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If ThisWorkbook.Path = "" Then
Cancel = True
MsgBox "coucou"
'là, c'est toi qui décides des événements.. par exemple :
' Application.GetSaveAsFilename
End If
End Sub
--
Gaenonius
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il
passe par Fichier Enregistrer sous.
La boite de dialogues'affiche. Par contre il 'n'existe pas de valeur,
paramétre ou événnement suite au choix de l'utilisateur. Donc je ne
sais pas s'il a choisi Enregistrer ou Annuler.
tu vois ?
-----Message d'origine-----
As-tu essayé d'utiliser cette méthode (détails dans
l'aide) ?
Application.GetSaveAsFilename
--
Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur
suite à
l'ouverture de la boite de dialogue enregistrer
sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique
c'est que je veux cette info dans
l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As
Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu
Fichier-> Enregistrer sous...
Précision, si tu veux utiliser ce code avec n'importe quel classeur (dont des classeurs déjà enregistrés), supprime le test If, qui restreint l'utilisation aux seuls nouveaux classeurs.
-- Gaenonius
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche.
Non, tu peux la court-circuiter (en utilisant le paramètre Cancel) et décider ensuite du traitement à exécuter :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ThisWorkbook.Path = "" Then Cancel = True MsgBox "coucou" 'là, c'est toi qui décides des événements.. par exemple : ' Application.GetSaveAsFilename End If End Sub
-- Gaenonius
l'événnement Enregistrer sous est provoqué par l'utilisateur lorqu'il passe par Fichier Enregistrer sous. La boite de dialogues'affiche. Par contre il 'n'existe pas de valeur, paramétre ou événnement suite au choix de l'utilisateur. Donc je ne sais pas s'il a choisi Enregistrer ou Annuler. tu vois ?
-----Message d'origine----- As-tu essayé d'utiliser cette méthode (détails dans
l'aide) ?
Application.GetSaveAsFilename
-- Gaenonius
Bonjour,
Je voudrais récupérer la réponse de l'utilisateur
suite à
l'ouverture de la boite de dialogue enregistrer
sous... ,
s'il a cliqué sur Enregistrer ou Annuler. Là où ça se complique c'est que je veux cette info dans
l'événnement
Private Sub App_WorkbookBeforeSave(ByVal Wb As
Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
déclenché par l'utilisateur lorsqu'il à cliqué dans le menu Fichier-> Enregistrer sous...
