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
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
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
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" a écrit dans le 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
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
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" <didier.novarin@club-internet.fr> a écrit dans le message
de news: e37RY9OQIHA.3556@TK2MSFTNGP03.phx.gbl...
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
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
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" a écrit dans le 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
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
Bonsoir Le pb ne provient pas du msgbox, mais du lancement de celui-ci Merci Didier
"Jacky" a écrit dans le message de news: %
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" a écrit dans le 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
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
Bonsoir
Le pb ne provient pas du msgbox, mais du lancement de celui-ci
Merci
Didier
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23L3HwXPQIHA.1164@TK2MSFTNGP02.phx.gbl...
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" <didier.novarin@club-internet.fr> a écrit dans le message
de news: e37RY9OQIHA.3556@TK2MSFTNGP03.phx.gbl...
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
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
Bonsoir Le pb ne provient pas du msgbox, mais du lancement de celui-ci Merci Didier
"Jacky" a écrit dans le message de news: %
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" a écrit dans le 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
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
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" a écrit dans le message de news:
Bonsoir Le pb ne provient pas du msgbox, mais du lancement de celui-ci Merci Didier
"Jacky" a écrit dans le message de news: %
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" a écrit dans le 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
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
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" <didier.novarin@club-internet.fr> a écrit dans le message
de news: uTMOa5ZQIHA.4276@TK2MSFTNGP06.phx.gbl...
Bonsoir
Le pb ne provient pas du msgbox, mais du lancement de celui-ci
Merci
Didier
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23L3HwXPQIHA.1164@TK2MSFTNGP02.phx.gbl...
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" <didier.novarin@club-internet.fr> a écrit dans le
message de news: e37RY9OQIHA.3556@TK2MSFTNGP03.phx.gbl...
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
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
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" a écrit dans le message de news:
Bonsoir Le pb ne provient pas du msgbox, mais du lancement de celui-ci Merci Didier
"Jacky" a écrit dans le message de news: %
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" a écrit dans le 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
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
Ok merci beaucoup, C'est parfait ! Bonne soirée Didier
"Jacky" a écrit dans le message de news:
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" a écrit dans le message de news:
Bonsoir Le pb ne provient pas du msgbox, mais du lancement de celui-ci Merci Didier
"Jacky" a écrit dans le message de news: %
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" a écrit dans le 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
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
Ok merci beaucoup,
C'est parfait !
Bonne soirée
Didier
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ushADZaQIHA.280@TK2MSFTNGP03.phx.gbl...
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" <didier.novarin@club-internet.fr> a écrit dans le message
de news: uTMOa5ZQIHA.4276@TK2MSFTNGP06.phx.gbl...
Bonsoir
Le pb ne provient pas du msgbox, mais du lancement de celui-ci
Merci
Didier
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23L3HwXPQIHA.1164@TK2MSFTNGP02.phx.gbl...
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" <didier.novarin@club-internet.fr> a écrit dans le
message de news: e37RY9OQIHA.3556@TK2MSFTNGP03.phx.gbl...
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
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
Ok merci beaucoup, C'est parfait ! Bonne soirée Didier
"Jacky" a écrit dans le message de news:
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" a écrit dans le message de news:
Bonsoir Le pb ne provient pas du msgbox, mais du lancement de celui-ci Merci Didier
"Jacky" a écrit dans le message de news: %
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" a écrit dans le 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
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