Alerte changement d'exercice

Le
Didier NOVARIN
Bonsoir,
J'ai un fichier par exercice.
Je souhaite que lorsque nous sommes sur un nouveau fichier 2008, que si un
utilisateur ouvre le fichier 2007, il y ai un msgbox qui prévient :
Attention vous êtes sur le fichier 2007 !
J'ai essayé cela mais sans résultat
Je vous remercie
Didier

'Année_en_cours est une cellule dans laquelle il y a 01/01/07

'A mettre dans le Workbook_Open

Mavar21 = Year(Date)
MsgBox Mavar21

Mavar22 = Year(CDate(Range("Année_en_cours")))
MsgBox Mavar22


If Mavar21 <> Mavar22 Then
MsgBox "Attention, vous êtes sur le fichier de l'année " &
Format(Mavar22, "yyyy") & " !" & vbNewLine & _
vbExclamation, " Fichier de l'année " & Mavar22
End If
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #5379091
Bonsoir,

Peut-être...
'----------
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & Chr(10) & "Fichier de l'année " & Mavar21 & "
demandé.", 48
OU
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & vbNewLine & "Fichier de l'année " & Mavar21 & "
demandé.", vbExclamation
'----------------

--
Salutations
JJ


"Didier NOVARIN" de news:
Bonsoir,
J'ai un fichier par exercice.
Je souhaite que lorsque nous sommes sur un nouveau fichier 2008, que si un
utilisateur ouvre le fichier 2007, il y ai un msgbox qui prévient :
Attention vous êtes sur le fichier 2007 !
J'ai essayé cela mais sans résultat
Je vous remercie
Didier

'Année_en_cours est une cellule dans laquelle il y a 01/01/07

'A mettre dans le Workbook_Open

Mavar21 = Year(Date)
MsgBox Mavar21

Mavar22 = Year(CDate(Range("Année_en_cours")))
MsgBox Mavar22


If Mavar21 <> Mavar22 Then
MsgBox "Attention, vous êtes sur le fichier de l'année " &
Format(Mavar22, "yyyy") & " !" & vbNewLine & _
vbExclamation, " Fichier de l'année " & Mavar22
End If



Didier NOVARIN
Le #5378361
Bonsoir
Le pb ne provient pas du msgbox, mais du lancement de celui-ci
Merci
Didier

"Jacky" %
Bonsoir,

Peut-être...
'----------
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & Chr(10) & "Fichier de l'année " & Mavar21 & "
demandé.", 48
OU
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & vbNewLine & "Fichier de l'année " & Mavar21 & "
demandé.", vbExclamation
'----------------

--
Salutations
JJ


"Didier NOVARIN" de news:
Bonsoir,
J'ai un fichier par exercice.
Je souhaite que lorsque nous sommes sur un nouveau fichier 2008, que si
un utilisateur ouvre le fichier 2007, il y ai un msgbox qui prévient :
Attention vous êtes sur le fichier 2007 !
J'ai essayé cela mais sans résultat
Je vous remercie
Didier

'Année_en_cours est une cellule dans laquelle il y a 01/01/07

'A mettre dans le Workbook_Open

Mavar21 = Year(Date)
MsgBox Mavar21

Mavar22 = Year(CDate(Range("Année_en_cours")))
MsgBox Mavar22


If Mavar21 <> Mavar22 Then
MsgBox "Attention, vous êtes sur le fichier de l'année " &
Format(Mavar22, "yyyy") & " !" & vbNewLine & _
vbExclamation, " Fichier de l'année " & Mavar22
End If







Jacky
Le #5378271
Re...
C'est que tel qu'il est écrit, il ne fonctionne pas chez moi.
'------------
Private Sub Workbook_Open()
Mavar21 = Year(Date)
MsgBox Mavar21
Mavar22 = Year([Année_en_cours])
MsgBox Mavar22
If Mavar21 <> Mavar22 Then
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & Chr(10) & "Fichier de l'année " & Mavar21 & "
demandé.", 48
End If
End Sub
'--------------
Voir ici
http://cjoint.com/?mstQobouqr
--
Salutations
JJ


"Didier NOVARIN" de news:
Bonsoir
Le pb ne provient pas du msgbox, mais du lancement de celui-ci
Merci
Didier

"Jacky" %
Bonsoir,

Peut-être...
'----------
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & Chr(10) & "Fichier de l'année " & Mavar21 & "
demandé.", 48
OU
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & vbNewLine & "Fichier de l'année " & Mavar21 & "
demandé.", vbExclamation
'----------------

--
Salutations
JJ


"Didier NOVARIN" message de news:
Bonsoir,
J'ai un fichier par exercice.
Je souhaite que lorsque nous sommes sur un nouveau fichier 2008, que si
un utilisateur ouvre le fichier 2007, il y ai un msgbox qui prévient :
Attention vous êtes sur le fichier 2007 !
J'ai essayé cela mais sans résultat
Je vous remercie
Didier

'Année_en_cours est une cellule dans laquelle il y a 01/01/07

'A mettre dans le Workbook_Open

Mavar21 = Year(Date)
MsgBox Mavar21

Mavar22 = Year(CDate(Range("Année_en_cours")))
MsgBox Mavar22


If Mavar21 <> Mavar22 Then
MsgBox "Attention, vous êtes sur le fichier de l'année " &
Format(Mavar22, "yyyy") & " !" & vbNewLine & _
vbExclamation, " Fichier de l'année " & Mavar22
End If











Didier NOVARIN
Le #5378221
Ok merci beaucoup,
C'est parfait !
Bonne soirée
Didier

"Jacky"
Re...
C'est que tel qu'il est écrit, il ne fonctionne pas chez moi.
'------------
Private Sub Workbook_Open()
Mavar21 = Year(Date)
MsgBox Mavar21
Mavar22 = Year([Année_en_cours])
MsgBox Mavar22
If Mavar21 <> Mavar22 Then
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & Chr(10) & "Fichier de l'année " & Mavar21 & "
demandé.", 48
End If
End Sub
'--------------
Voir ici
http://cjoint.com/?mstQobouqr
--
Salutations
JJ


"Didier NOVARIN" de news:
Bonsoir
Le pb ne provient pas du msgbox, mais du lancement de celui-ci
Merci
Didier

"Jacky" %
Bonsoir,

Peut-être...
'----------
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & Chr(10) & "Fichier de l'année " & Mavar21 & "
demandé.", 48
OU
MsgBox "Attention, vous êtes sur le fichier de l'année " _
& Mavar22 & " !" & vbNewLine & "Fichier de l'année " & Mavar21 & "
demandé.", vbExclamation
'----------------

--
Salutations
JJ


"Didier NOVARIN" message de news:
Bonsoir,
J'ai un fichier par exercice.
Je souhaite que lorsque nous sommes sur un nouveau fichier 2008, que si
un utilisateur ouvre le fichier 2007, il y ai un msgbox qui prévient :
Attention vous êtes sur le fichier 2007 !
J'ai essayé cela mais sans résultat
Je vous remercie
Didier

'Année_en_cours est une cellule dans laquelle il y a 01/01/07

'A mettre dans le Workbook_Open

Mavar21 = Year(Date)
MsgBox Mavar21

Mavar22 = Year(CDate(Range("Année_en_cours")))
MsgBox Mavar22


If Mavar21 <> Mavar22 Then
MsgBox "Attention, vous êtes sur le fichier de l'année " &
Format(Mavar22, "yyyy") & " !" & vbNewLine & _
vbExclamation, " Fichier de l'année " & Mavar22
End If


















Publicité
Poster une réponse
Anonyme