J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que quand
je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait cette
boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils
ouvrent l'original, et non une copie. Et le problème est que ma boîte
s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux
pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom
du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une copie
(double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook :
Private Sub Workbook_Open()
alert = MsgBox("bla bla bla", vbOKOnly, "")
End Sub
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
michdenis
Bonjour Aife1,
Essaie ceci :
'-------------------- Private Sub Workbook_Open()
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then MsgBox "Attention, c'est le classeur modèle qui est ouvert." End If
End Sub '--------------------
Salutations!
"aife1" a écrit dans le message de news:ex% Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que quand je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait cette boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils ouvrent l'original, et non une copie. Et le problème est que ma boîte s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une copie (double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook : Private Sub Workbook_Open() alert = MsgBox("bla bla bla", vbOKOnly, "") End Sub
Merci d'avance pour tous vos conseils.
Bonjour Aife1,
Essaie ceci :
'--------------------
Private Sub Workbook_Open()
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then
MsgBox "Attention, c'est le classeur modèle qui est ouvert."
End If
End Sub
'--------------------
Salutations!
"aife1" <aife1@wanadoo.fr> a écrit dans le message de news:ex%23zM2IpEHA.3900@TK2MSFTNGP10.phx.gbl...
Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que quand
je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait cette
boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils
ouvrent l'original, et non une copie. Et le problème est que ma boîte
s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux
pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom
du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une copie
(double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook :
Private Sub Workbook_Open()
alert = MsgBox("bla bla bla", vbOKOnly, "")
End Sub
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then MsgBox "Attention, c'est le classeur modèle qui est ouvert." End If
End Sub '--------------------
Salutations!
"aife1" a écrit dans le message de news:ex% Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que quand je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait cette boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils ouvrent l'original, et non une copie. Et le problème est que ma boîte s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une copie (double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook : Private Sub Workbook_Open() alert = MsgBox("bla bla bla", vbOKOnly, "") End Sub
Merci d'avance pour tous vos conseils.
Emcy
Salut,
Private Sub Workbook_Open() if ActiveWorkbook.Path="c:temp" then if ActiveWorkbook.Name="MonClasseur" then alert = MsgBox("attention c'est l'original", vbOKOnly, "") end if end if end sub
ça te va ?
-----Message d'origine----- Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que quand
je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait cette
boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils
ouvrent l'original, et non une copie. Et le problème est que ma boîte
s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux
pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom
du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une copie
(double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook : Private Sub Workbook_Open() alert = MsgBox("bla bla bla", vbOKOnly, "") End Sub
Merci d'avance pour tous vos conseils.
.
Salut,
Private Sub Workbook_Open()
if ActiveWorkbook.Path="c:temp" then
if ActiveWorkbook.Name="MonClasseur" then
alert = MsgBox("attention c'est l'original",
vbOKOnly, "")
end if
end if
end sub
ça te va ?
-----Message d'origine-----
Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et
j'aimerais que quand
je l'ouvre, une boîte de dialogue apparraisse. Ca j'y
arrive, en fait cette
boîte permettrait aux utilisateurs de ce modèle d'être
informé lorsqu'ils
ouvrent l'original, et non une copie. Et le problème est
que ma boîte
s'ouvre tout le temps, qu'on ouvre l'original ou la
copie, mais je ne veux
pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le
code), de mettre le nom
du fichier où la boîte doit s'ouvrir, étant donné que si
on ouvre une copie
(double clic et non menu contextuel), le nom du fichier
est suivi par "1".
Voila mon code dans ThisWorbook :
Private Sub Workbook_Open()
alert = MsgBox("bla bla bla", vbOKOnly, "")
End Sub
Private Sub Workbook_Open() if ActiveWorkbook.Path="c:temp" then if ActiveWorkbook.Name="MonClasseur" then alert = MsgBox("attention c'est l'original", vbOKOnly, "") end if end if end sub
ça te va ?
-----Message d'origine----- Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que quand
je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait cette
boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils
ouvrent l'original, et non une copie. Et le problème est que ma boîte
s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux
pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom
du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une copie
(double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook : Private Sub Workbook_Open() alert = MsgBox("bla bla bla", vbOKOnly, "") End Sub
Merci d'avance pour tous vos conseils.
.
aife1
Re Bonjour !
Merci pour tout, c'est impecable !
Amicalement ...
"michdenis" a écrit dans le message de news:
Bonjour Aife1,
Essaie ceci :
'-------------------- Private Sub Workbook_Open()
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then MsgBox "Attention, c'est le classeur modèle qui est ouvert." End If
End Sub '--------------------
Salutations!
"aife1" a écrit dans le message de news:ex%
Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que quand
je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait cette
boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils ouvrent l'original, et non une copie. Et le problème est que ma boîte s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une copie
(double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook : Private Sub Workbook_Open() alert = MsgBox("bla bla bla", vbOKOnly, "") End Sub
Merci d'avance pour tous vos conseils.
Re Bonjour !
Merci pour tout, c'est impecable !
Amicalement ...
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eBuJVDJpEHA.3464@tk2msftngp13.phx.gbl...
Bonjour Aife1,
Essaie ceci :
'--------------------
Private Sub Workbook_Open()
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then
MsgBox "Attention, c'est le classeur modèle qui est ouvert."
End If
End Sub
'--------------------
Salutations!
"aife1" <aife1@wanadoo.fr> a écrit dans le message de
news:ex%23zM2IpEHA.3900@TK2MSFTNGP10.phx.gbl...
Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que
quand
je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait
cette
boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils
ouvrent l'original, et non une copie. Et le problème est que ma boîte
s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux
pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom
du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une
copie
(double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook :
Private Sub Workbook_Open()
alert = MsgBox("bla bla bla", vbOKOnly, "")
End Sub
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then MsgBox "Attention, c'est le classeur modèle qui est ouvert." End If
End Sub '--------------------
Salutations!
"aife1" a écrit dans le message de news:ex%
Bonjour !
J'aurais une petite question, j'ai un modèle Excel, et j'aimerais que quand
je l'ouvre, une boîte de dialogue apparraisse. Ca j'y arrive, en fait cette
boîte permettrait aux utilisateurs de ce modèle d'être informé lorsqu'ils ouvrent l'original, et non une copie. Et le problème est que ma boîte s'ouvre tout le temps, qu'on ouvre l'original ou la copie, mais je ne veux pas qu'elle s'ouvre lorsque c'est une copie.
J'ai pensé à mettre dans ThisWorbook (où il y a le code), de mettre le nom du fichier où la boîte doit s'ouvrir, étant donné que si on ouvre une copie
(double clic et non menu contextuel), le nom du fichier est suivi par "1".
Voila mon code dans ThisWorbook : Private Sub Workbook_Open() alert = MsgBox("bla bla bla", vbOKOnly, "") End Sub
