Private Sub Workbook_BeforeClose(Cancel As Boolean) If Me.Saved Then MsgBox "J'ai été sauvegardé" End If End Sub
docm
"leo" a écrit dans le message news: 428a551d$0$11688$
Bonsoir, En quittant mon fichier, je souhaite ne faire une action que si le fichier a
été sauvegardé.
Sauvegardé directement pendant l'utilisation. ou Sauvegardé après la boite de dialogue avant sortie du fichier.
Je vous remercie d'avance,
-- Amicalement, Leo
leo
Bonsoir, Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na fonctionne toujours pas, car alors : Il me demande si je veux sauvegarder et suivant le cas je ne peux pas savoir si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" a écrit dans le message de news:
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Me.Saved Then MsgBox "J'ai été sauvegardé" End If End Sub
docm
"leo" a écrit dans le message news: 428a551d$0$11688$
Bonsoir, En quittant mon fichier, je souhaite ne faire une action que si le fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation. ou Sauvegardé après la boite de dialogue avant sortie du fichier.
Je vous remercie d'avance,
-- Amicalement, Leo
Bonsoir,
Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans
sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na fonctionne
toujours pas, car alors :
Il me demande si je veux sauvegarder et suivant le cas je ne peux pas savoir
si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
u4rV3EyWFHA.3188@TK2MSFTNGP09.phx.gbl...
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.Saved Then
MsgBox "J'ai été sauvegardé"
End If
End Sub
docm
"leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message news:
428a551d$0$11688$8fcfb975@news.wanadoo.fr...
Bonsoir,
En quittant mon fichier, je souhaite ne faire une action que si le
fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation.
ou Sauvegardé après la boite de dialogue avant sortie du fichier.
Bonsoir, Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na fonctionne toujours pas, car alors : Il me demande si je veux sauvegarder et suivant le cas je ne peux pas savoir si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" a écrit dans le message de news:
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Me.Saved Then MsgBox "J'ai été sauvegardé" End If End Sub
docm
"leo" a écrit dans le message news: 428a551d$0$11688$
Bonsoir, En quittant mon fichier, je souhaite ne faire une action que si le fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation. ou Sauvegardé après la boite de dialogue avant sortie du fichier.
Je vous remercie d'avance,
-- Amicalement, Leo
docm
Bonsoir.
Voici qui vérifie s'il y a eu modification et sauvegarde.
Dim Modifier As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Modifier = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Modifier = True Then If Me.Saved Then MsgBox "J'ai été modifié et sauvegardé" End If End If End Sub
docm
"leo" a écrit dans le message news: 428a5a23$0$11687$
Bonsoir, Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na fonctionne
toujours pas, car alors : Il me demande si je veux sauvegarder et suivant le cas je ne peux pas savoir
si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" a écrit dans le message de news:
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Me.Saved Then MsgBox "J'ai été sauvegardé" End If End Sub
docm
"leo" a écrit dans le message news: 428a551d$0$11688$
Bonsoir, En quittant mon fichier, je souhaite ne faire une action que si le fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation. ou Sauvegardé après la boite de dialogue avant sortie du fichier.
Je vous remercie d'avance,
-- Amicalement, Leo
Bonsoir.
Voici qui vérifie s'il y a eu modification et sauvegarde.
Dim Modifier As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Modifier = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Modifier = True Then
If Me.Saved Then
MsgBox "J'ai été modifié et sauvegardé"
End If
End If
End Sub
docm
"leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message news:
428a5a23$0$11687$8fcfb975@news.wanadoo.fr...
Bonsoir,
Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans
sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na
fonctionne
toujours pas, car alors :
Il me demande si je veux sauvegarder et suivant le cas je ne peux pas
savoir
si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
u4rV3EyWFHA.3188@TK2MSFTNGP09.phx.gbl...
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.Saved Then
MsgBox "J'ai été sauvegardé"
End If
End Sub
docm
"leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message news:
428a551d$0$11688$8fcfb975@news.wanadoo.fr...
Bonsoir,
En quittant mon fichier, je souhaite ne faire une action que si le
fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation.
ou Sauvegardé après la boite de dialogue avant sortie du fichier.
Voici qui vérifie s'il y a eu modification et sauvegarde.
Dim Modifier As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Modifier = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Modifier = True Then If Me.Saved Then MsgBox "J'ai été modifié et sauvegardé" End If End If End Sub
docm
"leo" a écrit dans le message news: 428a5a23$0$11687$
Bonsoir, Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na fonctionne
toujours pas, car alors : Il me demande si je veux sauvegarder et suivant le cas je ne peux pas savoir
si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" a écrit dans le message de news:
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Me.Saved Then MsgBox "J'ai été sauvegardé" End If End Sub
docm
"leo" a écrit dans le message news: 428a551d$0$11688$
Bonsoir, En quittant mon fichier, je souhaite ne faire une action que si le fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation. ou Sauvegardé après la boite de dialogue avant sortie du fichier.
Je vous remercie d'avance,
-- Amicalement, Leo
leo
Ok, Merci pour votre aide.
LEO
"docm" a écrit dans le message de news: e#
Bonsoir.
Voici qui vérifie s'il y a eu modification et sauvegarde.
Dim Modifier As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Modifier = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Modifier = True Then If Me.Saved Then MsgBox "J'ai été modifié et sauvegardé" End If End If End Sub
docm
"leo" a écrit dans le message news: 428a5a23$0$11687$
Bonsoir, Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na fonctionne
toujours pas, car alors : Il me demande si je veux sauvegarder et suivant le cas je ne peux pas savoir
si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" a écrit dans le message de news:
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Me.Saved Then MsgBox "J'ai été sauvegardé" End If End Sub
docm
"leo" a écrit dans le message news: 428a551d$0$11688$
Bonsoir, En quittant mon fichier, je souhaite ne faire une action que si le fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation. ou Sauvegardé après la boite de dialogue avant sortie du fichier.
Je vous remercie d'avance,
-- Amicalement, Leo
Ok,
Merci pour votre aide.
LEO
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
e#glkpyWFHA.2912@TK2MSFTNGP10.phx.gbl...
Bonsoir.
Voici qui vérifie s'il y a eu modification et sauvegarde.
Dim Modifier As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Modifier = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Modifier = True Then
If Me.Saved Then
MsgBox "J'ai été modifié et sauvegardé"
End If
End If
End Sub
docm
"leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message news:
428a5a23$0$11687$8fcfb975@news.wanadoo.fr...
Bonsoir,
Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans
sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na
fonctionne
toujours pas, car alors :
Il me demande si je veux sauvegarder et suivant le cas je ne peux pas
savoir
si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
u4rV3EyWFHA.3188@TK2MSFTNGP09.phx.gbl...
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.Saved Then
MsgBox "J'ai été sauvegardé"
End If
End Sub
docm
"leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message news:
428a551d$0$11688$8fcfb975@news.wanadoo.fr...
Bonsoir,
En quittant mon fichier, je souhaite ne faire une action que si le
fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation.
ou Sauvegardé après la boite de dialogue avant sortie du
fichier.
Voici qui vérifie s'il y a eu modification et sauvegarde.
Dim Modifier As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Modifier = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Modifier = True Then If Me.Saved Then MsgBox "J'ai été modifié et sauvegardé" End If End If End Sub
docm
"leo" a écrit dans le message news: 428a5a23$0$11687$
Bonsoir, Cette solution ne fonctionne qu'en partie.
En effet, si je rentre dans le fichier et que je quitte sans sauvegarder, alors il me dit qu'il a été sauvegardé !!!!!
De plus, si dans le Workbook_Open, je met Me.saved à false, ça na fonctionne
toujours pas, car alors : Il me demande si je veux sauvegarder et suivant le cas je ne peux pas savoir
si le classeur sera sauvegardé !!!
Comment faire ?????
"docm" a écrit dans le message de news:
Bonsoir.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Me.Saved Then MsgBox "J'ai été sauvegardé" End If End Sub
docm
"leo" a écrit dans le message news: 428a551d$0$11688$
Bonsoir, En quittant mon fichier, je souhaite ne faire une action que si le fichier
a
été sauvegardé.
Sauvegardé directement pendant l'utilisation. ou Sauvegardé après la boite de dialogue avant sortie du fichier.
