Message à l'ouverture et fermeture

Bonjour à tous,

J'implore encore une fois votre générosité de temps et de connaissance.

J'aimerais faire apparaite un message à l'ouverture de mon ficher qui me
dirait quelque chose du genre
___________________

Bonjour
Nous somme le (date du jour)
Vous ouvrez le projet (valeur de la cellule "C2" de la "feuil1") débuté le
(valeur de la cellule D4 de "feuil1")

voir la fonction :
Workbook_Open

Vous en ête à (valeur de la cellle "C10" de la "feuil2") de profits sur
votre projets

Je ne connais pas votre banquier :-)

____________________

Et à la fermeture :

Au revoir!
Avez vous actualisé vos données avant de quitter?
(clic oui ou non, si oui sauvegarde et fermeture, si non retour au document)

voit la fonction :
Workbook_BeforeClose(Cancel As Boolean)

____________________

Je sais que c'est une grosse commande mais si quelqu'un peux me mettre sur
la voie j'en serait... Encore une fois... très reconnaissante

Salutations à tous

Julie


AU revoir

--
Cordialement,

Jacques.

Bonjour,

Il faut utiliser les évennements de ton WorkBook.
TU vas dans l'éditeur VBE (ALT+F11) et tu double_cliques sur
'ThisWorkbook' (à gauche de l'écran) et insères le code suivant :

Private Sub Workbook_Open()
P$ = "Bonjour," & vbNewLine
With Sheets("Feuil1")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("C2") & vbNewLine
P = P & "débuté le " & .Range("D4").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Feuil2").Range("C1O") & " de profits
sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
P$ = "Au revoir!" & vbNewLine
P = P & "Avez vous actualisé vos données avant de quitter?"
reponse = MsgBox(P, vbQuestion + vbYesNo, "Confirmation")
If reponse = vbNo Then
Cancel = True
Else
ThisWorkbook.Save
End If
End Sub


------

Ca convient ?


Rai

Bonjour à tous,

J'implore encore une fois votre générosité de temps et de connaissance.

J'aimerais faire apparaite un message à l'ouverture de mon ficher qui me
dirait quelque chose du genre
___________________

Bonjour
Nous somme le (date du jour)
Vous ouvrez le projet (valeur de la cellule "C2" de la "feuil1") débuté le
(valeur de la cellule D4 de "feuil1")
Vous en ête à (valeur de la cellle "C10" de la "feuil2") de profits sur
votre projets

____________________

Et à la fermeture :

Au revoir!
Avez vous actualisé vos données avant de quitter?
(clic oui ou non, si oui sauvegarde et fermeture, si non retour au document)
____________________

Je sais que c'est une grosse commande mais si quelqu'un peux me mettre sur
la voie j'en serait... Encore une fois... très reconnaissante

Salutations à tous

Julie


AU revoir

Bonjour, pour être plus précis,

Bonjour à tous,

J'implore encore une fois votre générosité de temps et de connaissance.

J'aimerais faire apparaite un message à l'ouverture de mon ficher qui me
dirait quelque chose du genre
___________________

Bonjour
Nous somme le (date du jour)
Vous ouvrez le projet (valeur de la cellule "C2" de la "feuil1") débuté le
(valeur de la cellule D4 de "feuil1")
Vous en ête à (valeur de la cellle "C10" de la "feuil2") de profits sur
votre projets

Private Sub Workbook_Open()
MsgBox "Bonjour nous sommes le : " & Now() & vbCrLf & "Vous ouvrez le
projet : " & Range("C2") & vbCrLf & "débuté le : " & Range("D4") &
vbCrLf & "et nous sommes à : " & Range("C10") & " de profits sur vos
projets"
End Sub

____________________

Et à la fermeture :

Au revoir!
Avez vous actualisé vos données avant de quitter?
(clic oui ou non, si oui sauvegarde et fermeture, si non retour au document)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rep As Integer
Rep = MsgBox("Au revoir!" & vbCrLf & "Avez vous actualisé vos données
avant de quitter?", vbYesNoCancel)
If Rep <> vbYes Then
Cancel = True
End If
End Sub


Mais en principe, Excel se charge de vous prévenir.

___________________

Je sais que c'est une grosse commande mais si quelqu'un peux me mettre sur
la voie j'en serait... Encore une fois... très reconnaissante

Salutations à tous

Julie


AU revoir

--
Cordialement,

Jacques.

et pour éviter que la boîte "voulez-vous enregister...." ne s'affiche :

et qu'est-ce qu'on dit, julie?
jps


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rep As Integer
Rep = MsgBox("Au revoir!" & vbCrLf & "Avez vous actualisé vos données
avant de quitter?", vbYesNoCancel)
If Rep = vbNo Then Cancel = True
If Rep = vbYes Then ActiveWorkbook.Save
End Sub


"Jacques" <jacques.le-goc_ENLEVER@wanadoo.fr> a écrit dans le message de
news:Ok1faOQMFHA.2940@TK2MSFTNGP15.phx.gbl...

Bonjour, pour être plus précis,

Bonjour à tous,

J'implore encore une fois votre générosité de temps et de connaissance.

J'aimerais faire apparaite un message à l'ouverture de mon ficher qui me
dirait quelque chose du genre
___________________

Bonjour
Nous somme le (date du jour)
Vous ouvrez le projet (valeur de la cellule "C2" de la "feuil1") débuté
le

(valeur de la cellule D4 de "feuil1")
Vous en ête à (valeur de la cellle "C10" de la "feuil2") de profits sur
votre projets

Private Sub Workbook_Open()
MsgBox "Bonjour nous sommes le : " & Now() & vbCrLf & "Vous ouvrez le
projet : " & Range("C2") & vbCrLf & "débuté le : " & Range("D4") &
vbCrLf & "et nous sommes à : " & Range("C10") & " de profits sur vos
projets"
End Sub

____________________

Et à la fermeture :

Au revoir!
Avez vous actualisé vos données avant de quitter?
(clic oui ou non, si oui sauvegarde et fermeture, si non retour au
document)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rep As Integer
Rep = MsgBox("Au revoir!" & vbCrLf & "Avez vous actualisé vos données
avant de quitter?", vbYesNoCancel)
If Rep <> vbYes Then
Cancel = True
End If
End Sub


Mais en principe, Excel se charge de vous prévenir.

___________________

Je sais que c'est une grosse commande mais si quelqu'un peux me mettre
sur

la voie j'en serait... Encore une fois... très reconnaissante

Salutations à tous

Julie


AU revoir

--
Cordialement,

Jacques.

et pour éviter que la boîte "voulez-vous enregister...." ne s'affiche :

et qu'est-ce qu'on dit, julie?
jps


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rep As Integer
Rep = MsgBox("Au revoir!" & vbCrLf & "Avez vous actualisé vos données
avant de quitter?", vbYesNoCancel)
If Rep = vbNo Then Cancel = True
If Rep = vbYes Then ActiveWorkbook.Save
End Sub

Rai l'avait déja prévenu, trop tard jps ... :-P,


--
Cordialement,

Jacques.

je suis donc victime d'une nouvelle rai...llerie
jps
PS sois gentil, jacques, écris ta réponse au-dessus de la question comme le
veut la coutume sur ce forum-ci

"Jacques" <jacques.le-goc_ENLEVER@wanadoo.fr> a écrit dans le message de
news:ePs51JRMFHA.4092@tk2msftngp13.phx.gbl...

et pour éviter que la boîte "voulez-vous enregister...." ne s'affiche :

et qu'est-ce qu'on dit, julie?
jps


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rep As Integer
Rep = MsgBox("Au revoir!" & vbCrLf & "Avez vous actualisé vos données
avant de quitter?", vbYesNoCancel)
If Rep = vbNo Then Cancel = True
If Rep = vbYes Then ActiveWorkbook.Save
End Sub

Rai l'avait déja prévenu, trop tard jps ... :-P,


--
Cordialement,

Jacques.

Bonjour,
Désolé, lisant plus les forums WindowsXP ou Windows2000 où l'usage est
généralement l'inverse, j'ai pris le pli. Je ferais plus attention à vos
coutumes dorénavant :-)

je suis donc victime d'une nouvelle rai...llerie
jps
PS sois gentil, jacques, écris ta réponse au-dessus de la question comme le
veut la coutume sur ce forum-ci

--
Cordialement,

Jacques.