Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Message à l'ouverture

Message à l'ouverture

9 réponses
Avatar
Jo-Julie
Bonjour à tous et à Rai qui m'as aidé dans un précédent message.

J'ai appliquer la formule suivante dans le ThisWorkBook de mon projet pour
avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O") & " de
profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me manque t'il?

Merci encore à Rai pour ton aide... En passant Rai pour ce qui est du
message à la fermeture tout fonctionne parfaitement merci!!!

Julie
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
Jo-Julie
OK tout le monde!!!

J'ai trouvé mon bug!!!

Merci à tous

Julie :)



Bonjour à tous et à Rai qui m'as aidé dans un précédent message.

J'ai appliquer la formule suivante dans le ThisWorkBook de mon projet pour
avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O") & " de
profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me manque t'il?

Merci encore à Rai pour ton aide... En passant Rai pour ce qui est du
message à la fermeture tout fonctionne parfaitement merci!!!

Julie


Avatar
MichDenis
Bonsoir Julie,

Essaie ceci : Si tu observes bien la procédure que tu as présenté, tu avais écrite la lettre "O" en lieu et place du
chiffre "0" dans l'adresse suivante : .Range("H20") .... Et ça excel n'a pas apprécié.

'------------------------------------
Private Sub Workbook_Open()

Dim P As String

With Sheets("Coûts")
P = "Bonjour," & vbNewLine
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5") & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.") _
.Range("H20") & " de profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End With
End Sub
'------------------------------------


Salutations!



"Jo-Julie" a écrit dans le message de news:

Bonjour à tous et à Rai qui m'as aidé dans un précédent message.

J'ai appliquer la formule suivante dans le ThisWorkBook de mon projet pour
avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O") & " de
profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me manque t'il?

Merci encore à Rai pour ton aide... En passant Rai pour ce qui est du
message à la fermeture tout fonctionne parfaitement merci!!!

Julie
Avatar
jps
ouais, denis, mais quoi que tu fasses ou dises, y a que Rai qui a droit aux
mercis de julie...l'a bien du pot, ce Rai...
bon, ben, viens denis, on va noyer notre amertume dans une coup de chabrol,
des fois que ça fasse s'activer un peu plus l'ineffable AV
jps

"MichDenis" a écrit dans le message de
news:OMN$g$
Bonsoir Julie,

Essaie ceci : Si tu observes bien la procédure que tu as présenté, tu
avais écrite la lettre "O" en lieu et place du

chiffre "0" dans l'adresse suivante : .Range("H20") .... Et ça excel n'a
pas apprécié.


'------------------------------------
Private Sub Workbook_Open()

Dim P As String

With Sheets("Coûts")
P = "Bonjour," & vbNewLine
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5") & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.") _
.Range("H20") & " de profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End With
End Sub
'------------------------------------


Salutations!



"Jo-Julie" a écrit dans le message de
news:


Bonjour à tous et à Rai qui m'as aidé dans un précédent message.

J'ai appliquer la formule suivante dans le ThisWorkBook de mon projet pour
avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O") & " de
profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me manque t'il?

Merci encore à Rai pour ton aide... En passant Rai pour ce qui est du
message à la fermeture tout fonctionne parfaitement merci!!!

Julie




Avatar
MichDenis
Bonjour JPS,

Je suppose que Julie est très occupé... elle veut arriver à Pâques en même temps que les autres ... et surtout ne pas
laisser aux autres sa portion de chocolat ! ;-) Que ferait-on pas pour du chocolat ?


Salutations!



"jps" a écrit dans le message de news: O$
ouais, denis, mais quoi que tu fasses ou dises, y a que Rai qui a droit aux
mercis de julie...l'a bien du pot, ce Rai...
bon, ben, viens denis, on va noyer notre amertume dans une coup de chabrol,
des fois que ça fasse s'activer un peu plus l'ineffable AV
jps

"MichDenis" a écrit dans le message de
news:OMN$g$
Bonsoir Julie,

Essaie ceci : Si tu observes bien la procédure que tu as présenté, tu
avais écrite la lettre "O" en lieu et place du

chiffre "0" dans l'adresse suivante : .Range("H20") .... Et ça excel n'a
pas apprécié.


'------------------------------------
Private Sub Workbook_Open()

Dim P As String

With Sheets("Coûts")
P = "Bonjour," & vbNewLine
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5") & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.") _
.Range("H20") & " de profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End With
End Sub
'------------------------------------


Salutations!



"Jo-Julie" a écrit dans le message de
news:


Bonjour à tous et à Rai qui m'as aidé dans un précédent message.

J'ai appliquer la formule suivante dans le ThisWorkBook de mon projet pour
avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O") & " de
profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me manque t'il?

Merci encore à Rai pour ton aide... En passant Rai pour ce qui est du
message à la fermeture tout fonctionne parfaitement merci!!!

Julie




Avatar
Clément Marcotte
Bonjour,

Hier, François Chartier disait à la télé que ce n'est pas évident de
marier le chocolat et le vin. Cela fait qu'IL va devoir choisir.

Mais, faut quand même dire que Chartier n'a pas parlé du Beaujolais
dans son affaire.




"MichDenis" a écrit dans le message de
news:u$
Bonjour JPS,

Je suppose que Julie est très occupé... elle veut arriver à Pâques
en même temps que les autres ... et surtout ne pas

laisser aux autres sa portion de chocolat ! ;-) Que ferait-on pas
pour du chocolat ?



Salutations!



"jps" a écrit dans le message de news:
O$

ouais, denis, mais quoi que tu fasses ou dises, y a que Rai qui a
droit aux

mercis de julie...l'a bien du pot, ce Rai...
bon, ben, viens denis, on va noyer notre amertume dans une coup de
chabrol,

des fois que ça fasse s'activer un peu plus l'ineffable AV
jps

"MichDenis" a écrit dans le message de
news:OMN$g$
Bonsoir Julie,

Essaie ceci : Si tu observes bien la procédure que tu as présenté,
tu


avais écrite la lettre "O" en lieu et place du
chiffre "0" dans l'adresse suivante : .Range("H20") .... Et ça
excel n'a


pas apprécié.

'------------------------------------
Private Sub Workbook_Open()

Dim P As String

With Sheets("Coûts")
P = "Bonjour," & vbNewLine
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5") & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.") _
.Range("H20") & " de profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End With
End Sub
'------------------------------------


Salutations!



"Jo-Julie" a écrit dans le
message de


news:

Bonjour à tous et à Rai qui m'as aidé dans un précédent message.

J'ai appliquer la formule suivante dans le ThisWorkBook de mon
projet pour


avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O") &
" de


profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me manque
t'il?



Merci encore à Rai pour ton aide... En passant Rai pour ce qui est
du


message à la fermeture tout fonctionne parfaitement merci!!!

Julie








Avatar
Jacquouille
Tudieu, quelle insulte à mon Pays !
Clément, peux-tu faire parvenir cette réponse à l'infidèle, au mécréant ?
-----------
Vin et Chocolat

Passionné de chocolat depuis toujours et de vin depuis plus de 20 ans, c'est
très logiquement qu'en 1996, Jean Galler associe ces deux produits nobles.
Vous pourrez apprécier le fruit de certaines dégustations soit grâce au
coffret "Vin et Chocolat" soit dans nos Chocolat-Thé en choisissant
"L'initiation vin et chocolat".


http://www.galler.com/langue.aspx

Et comme nous sommes à Pâques, je vous envoie à tous une tonne de petits
zoeufs en....chocolat.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Hier, François Chartier disait à la télé que ce n'est pas évident de
marier le chocolat et le vin. Cela fait qu'IL va devoir choisir.

Mais, faut quand même dire que Chartier n'a pas parlé du Beaujolais
dans son affaire.




"MichDenis" a écrit dans le message de
news:u$
Bonjour JPS,

Je suppose que Julie est très occupé... elle veut arriver à Pâques
en même temps que les autres ... et surtout ne pas

laisser aux autres sa portion de chocolat ! ;-) Que ferait-on pas
pour du chocolat ?



Salutations!



"jps" a écrit dans le message de news:
O$

ouais, denis, mais quoi que tu fasses ou dises, y a que Rai qui a
droit aux

mercis de julie...l'a bien du pot, ce Rai...
bon, ben, viens denis, on va noyer notre amertume dans une coup de
chabrol,

des fois que ça fasse s'activer un peu plus l'ineffable AV
jps

"MichDenis" a écrit dans le message de
news:OMN$g$
Bonsoir Julie,

Essaie ceci : Si tu observes bien la procédure que tu as présenté,
tu


avais écrite la lettre "O" en lieu et place du
chiffre "0" dans l'adresse suivante : .Range("H20") .... Et ça
excel n'a


pas apprécié.

'------------------------------------
Private Sub Workbook_Open()

Dim P As String

With Sheets("Coûts")
P = "Bonjour," & vbNewLine
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5") & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.") _
.Range("H20") & " de profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End With
End Sub
'------------------------------------


Salutations!



"Jo-Julie" a écrit dans le
message de


news:

Bonjour à tous et à Rai qui m'as aidé dans un précédent message.

J'ai appliquer la formule suivante dans le ThisWorkBook de mon
projet pour


avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O") &
" de


profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me manque
t'il?



Merci encore à Rai pour ton aide... En passant Rai pour ce qui est
du


message à la fermeture tout fonctionne parfaitement merci!!!

Julie











Avatar
Clément Marcotte
Bonjour,

En fait François Chartiier est un des meilleurs sommeliers du monde.
Son propos n'est absolument pas d'éviter de combiner vin et chocolat,
mais de faire les bonnes combinaisons de vin et de chocolat.

Entre autres, il disait de ne pas combiner le chocolat noir pur et le
champagne.



"Jacquouille" a écrit dans le message
de news:%
Tudieu, quelle insulte à mon Pays !
Clément, peux-tu faire parvenir cette réponse à l'infidèle, au
mécréant ?

-----------
Vin et Chocolat

Passionné de chocolat depuis toujours et de vin depuis plus de 20
ans, c'est

très logiquement qu'en 1996, Jean Galler associe ces deux produits
nobles.

Vous pourrez apprécier le fruit de certaines dégustations soit grâce
au

coffret "Vin et Chocolat" soit dans nos Chocolat-Thé en choisissant
"L'initiation vin et chocolat".


http://www.galler.com/langue.aspx

Et comme nous sommes à Pâques, je vous envoie à tous une tonne de
petits

zoeufs en....chocolat.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Clément Marcotte" a écrit dans le
message

de news:
Bonjour,

Hier, François Chartier disait à la télé que ce n'est pas évident
de


marier le chocolat et le vin. Cela fait qu'IL va devoir choisir.

Mais, faut quand même dire que Chartier n'a pas parlé du
Beaujolais


dans son affaire.




"MichDenis" a écrit dans le message de
news:u$
Bonjour JPS,

Je suppose que Julie est très occupé... elle veut arriver à
Pâques



en même temps que les autres ... et surtout ne pas
laisser aux autres sa portion de chocolat ! ;-) Que ferait-on
pas



pour du chocolat ?


Salutations!



"jps" a écrit dans le message de news:
O$

ouais, denis, mais quoi que tu fasses ou dises, y a que Rai qui a
droit aux

mercis de julie...l'a bien du pot, ce Rai...
bon, ben, viens denis, on va noyer notre amertume dans une coup
de



chabrol,
des fois que ça fasse s'activer un peu plus l'ineffable AV
jps

"MichDenis" a écrit dans le message de
news:OMN$g$
Bonsoir Julie,

Essaie ceci : Si tu observes bien la procédure que tu as
présenté,




tu
avais écrite la lettre "O" en lieu et place du
chiffre "0" dans l'adresse suivante : .Range("H20") .... Et ça
excel n'a


pas apprécié.

'------------------------------------
Private Sub Workbook_Open()

Dim P As String

With Sheets("Coûts")
P = "Bonjour," & vbNewLine
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5") & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.") _
.Range("H20") & " de profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End With
End Sub
'------------------------------------


Salutations!



"Jo-Julie" a écrit dans le
message de


news:

Bonjour à tous et à Rai qui m'as aidé dans un précédent
message.





J'ai appliquer la formule suivante dans le ThisWorkBook de mon
projet pour


avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O")
&




" de
profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me
manque




t'il?

Merci encore à Rai pour ton aide... En passant Rai pour ce qui
est




du
message à la fermeture tout fonctionne parfaitement merci!!!

Julie















Avatar
Jacquouille
Tu sais, Clément, quand on va à confesse, il faut confesser TOUS les péchés.
ici, tu n'as cité qu'une partie des propos de ce Monsieur. Alors, le démon
patriotique qui sommeille en moi s'est réveillé.
Bon, assez discuté. Là-dessus, on prend une barre de chocolat et un petit
blanc d'Alsace....

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

En fait François Chartiier est un des meilleurs sommeliers du monde.
Son propos n'est absolument pas d'éviter de combiner vin et chocolat,
mais de faire les bonnes combinaisons de vin et de chocolat.

Entre autres, il disait de ne pas combiner le chocolat noir pur et le
champagne.



"Jacquouille" a écrit dans le message
de news:%
Tudieu, quelle insulte à mon Pays !
Clément, peux-tu faire parvenir cette réponse à l'infidèle, au
mécréant ?

-----------
Vin et Chocolat

Passionné de chocolat depuis toujours et de vin depuis plus de 20
ans, c'est

très logiquement qu'en 1996, Jean Galler associe ces deux produits
nobles.

Vous pourrez apprécier le fruit de certaines dégustations soit grâce
au

coffret "Vin et Chocolat" soit dans nos Chocolat-Thé en choisissant
"L'initiation vin et chocolat".


http://www.galler.com/langue.aspx

Et comme nous sommes à Pâques, je vous envoie à tous une tonne de
petits

zoeufs en....chocolat.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Clément Marcotte" a écrit dans le
message

de news:
Bonjour,

Hier, François Chartier disait à la télé que ce n'est pas évident
de


marier le chocolat et le vin. Cela fait qu'IL va devoir choisir.

Mais, faut quand même dire que Chartier n'a pas parlé du
Beaujolais


dans son affaire.




"MichDenis" a écrit dans le message de
news:u$
Bonjour JPS,

Je suppose que Julie est très occupé... elle veut arriver à
Pâques



en même temps que les autres ... et surtout ne pas
laisser aux autres sa portion de chocolat ! ;-) Que ferait-on
pas



pour du chocolat ?


Salutations!



"jps" a écrit dans le message de news:
O$

ouais, denis, mais quoi que tu fasses ou dises, y a que Rai qui a
droit aux

mercis de julie...l'a bien du pot, ce Rai...
bon, ben, viens denis, on va noyer notre amertume dans une coup
de



chabrol,
des fois que ça fasse s'activer un peu plus l'ineffable AV
jps

"MichDenis" a écrit dans le message de
news:OMN$g$
Bonsoir Julie,

Essaie ceci : Si tu observes bien la procédure que tu as
présenté,




tu
avais écrite la lettre "O" en lieu et place du
chiffre "0" dans l'adresse suivante : .Range("H20") .... Et ça
excel n'a


pas apprécié.

'------------------------------------
Private Sub Workbook_Open()

Dim P As String

With Sheets("Coûts")
P = "Bonjour," & vbNewLine
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5") & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.") _
.Range("H20") & " de profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End With
End Sub
'------------------------------------


Salutations!



"Jo-Julie" a écrit dans le
message de


news:

Bonjour à tous et à Rai qui m'as aidé dans un précédent
message.





J'ai appliquer la formule suivante dans le ThisWorkBook de mon
projet pour


avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O")
&




" de
profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me
manque




t'il?

Merci encore à Rai pour ton aide... En passant Rai pour ce qui
est




du
message à la fermeture tout fonctionne parfaitement merci!!!

Julie


















Avatar
Jo-Julie
Haha les gars ... ca va.. :)

Merci, merci , merci encore... j'apprécie beaucoup chacune de vos réponses
qui me sont d'une utilité incroyable... Comme j'ai déjà dit dans d'autre
message... Merci pour votre patiente, votre disponibilité et tout le reste!!!!

Sincèrement ... et je suis très sincèrement sincère :)... Je suis
extrêmement reconnaissante à tout ceux qui prennent le temps de répondre à
mes messages et de m'aider

Salutation amicale et cordiale à rous!

Julie


Bonjour JPS,

Je suppose que Julie est très occupé... elle veut arriver à Pâques en même temps que les autres ... et surtout ne pas
laisser aux autres sa portion de chocolat ! ;-) Que ferait-on pas pour du chocolat ?


Salutations!



"jps" a écrit dans le message de news: O$
ouais, denis, mais quoi que tu fasses ou dises, y a que Rai qui a droit aux
mercis de julie...l'a bien du pot, ce Rai...
bon, ben, viens denis, on va noyer notre amertume dans une coup de chabrol,
des fois que ça fasse s'activer un peu plus l'ineffable AV
jps

"MichDenis" a écrit dans le message de
news:OMN$g$
Bonsoir Julie,

Essaie ceci : Si tu observes bien la procédure que tu as présenté, tu
avais écrite la lettre "O" en lieu et place du

chiffre "0" dans l'adresse suivante : .Range("H20") .... Et ça excel n'a
pas apprécié.


'------------------------------------
Private Sub Workbook_Open()

Dim P As String

With Sheets("Coûts")
P = "Bonjour," & vbNewLine
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5") & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.") _
.Range("H20") & " de profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End With
End Sub
'------------------------------------


Salutations!



"Jo-Julie" a écrit dans le message de
news:


Bonjour à tous et à Rai qui m'as aidé dans un précédent message.

J'ai appliquer la formule suivante dans le ThisWorkBook de mon projet pour
avoir un msgbox à l'oubverture de mon fichier.

___________________________________
Private Sub Workbook_Open2()

P$ = "Bonjour," & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine
P = P & "Vous ouvrez le projet " & .Range("D2") & vbNewLine
P = P & "débuté le " & .Range("K5").Text & vbNewLine
End With
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("H2O") & " de
profits sur votre projet."
MsgBox P, vbInformation, "Bienvenue"
End Sub
________________________________________

Mais quand j'ouvre , le message ne s'affiche pas.. que me manque t'il?

Merci encore à Rai pour ton aide... En passant Rai pour ce qui est du
message à la fermeture tout fonctionne parfaitement merci!!!

Julie