Ouvrir automatiquement une fenêtre à l'ouverture

Salut "victor"
un exemple a améliorer
A+++
Jean Marie

SAlut J-M,

C'est exactement cela qu'il me faut mais peux-tu copier coller le code que je puisse l'imprimer et le taper dans l'autre ordi, car sur celui-ci je ne peux même pas ouvrir BVA ou voir le code car il est bloque prof.
Il me faut juste savoir comment faire le code pour aller plus loin car une fois le nom inscrit et ok une autre fenêtre doit s'ouvrir qui demande autre chose etc et ceci au moins 5 fois.

Merci à toi. Victor

Salut"Victor"

le code dans ThisWorkBook
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Entrez votre nom"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "1" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Worksheets("Feuil1").Range("D2") = MyValue & Chr(10) & Now
End Sub

Private Sub Workbook_Open()
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Entrez votre nom"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "1" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Worksheets("Feuil1").Range("B2") = MyValue & Chr(10) & Now
End Sub
n'hésite pas
A+++
Jean marie

Re,
Pourquoi dans ThisWorkBook ?
si je suis dans la feuille 1 cela ne va pas ?

salut"Victor"
on travaille sur des évênements que gère ThisWorbook
Workbook_Open()
Workbook_BeforeClose
donc dans ThisWorkBook
A +++
Jean Marie

Re,
je vient de tapper dans ThisWorbook
ensuite copier coller dans feuille 1
mais quand j'appel la macro dans la feuille 1 rien n'est inscrit !!

re victor
tu n'as rien a coller dans feuil1
car cette procédure n'agit qu'a l'ouverture et à la fermeture de ThisWorkBook

A+++
Jean Marie

Désolé il est tard,
oui effectivement quand j'ouvre le classeur c'est OK

Que faut-il indiqué dessous le code pour qu'à la fermeture
une autre question vienne
par exemple " nombre de points"
et ceci toujours dans la même feuille mais dans une autre cellule
et en plus ( je suis difficile )
je ne veux ni la date ni l'heure.

encore merci à toi et te dit à demain car je suis nase.

A+ Victor

re et bonne nuit "VICTOR"
une petite modif
A PLUS
jean marie

Salut,

Je ne sait pas si tu as compris ma question,
après avoir mit le nom et clic OK
Je veux qu'une autre fenêtre vienne et demande le nombre de point
ensuite ok
ensuite une autre fenêtre vienne et demande son emplacement
etc etc
et à la fin
qu'un message lui dise qu'il peut aller chercher sa feuille sur l'imprimante
Encore merci à toi de me donner un coup de pouce.

pense de copier coller sur la feuille le code, car sur ^'ordi en ligne je ne peux rien voir tout est bloqué, je doit de nouveau tout tapper sur un autre.

A+ Victor

salut "Victor"
bonsoir le "FORUM"
je pense avoir compris
A+++
Jean Marie

Re CHti160

Tu es vraiment un pot, c'est super et exactement cela.

Le problème est que sur l'ordi en ligne je ne peux pas voir le code,
je doit tout inscrire sur un autre ordi, c'est pour cela que je te demande
de cpoier coller ici le code si cela ne t'ennui pas.

A+ et encore merci. Victor

Re "Victor"et le "FORUM"

le texte pour copie:
------------------------------------------
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Entrez votre nom"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "......" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Worksheets("Feuil1").Range("E2") = MyValue
End Sub

Private Sub Workbook_Open()
Dim Message, Title, Default, MyValue, Default1, Message1, Title1, MyValue1, Default2, Message2, Title2, MyValue2
' Définit le message.
Message = "Entrez votre nom"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "" ' Définition la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Worksheets("Feuil1").Range("A2") = MyValue
'--------------
Message1 = "Nombre de points Format 000 "
Title1 = "Démontration2 InputBox"
Default1 = "0"
' Affiche le message, le titre et la valeur par défaut.
MyValue1 = InputBox(Message1, Title1, Default1)
Worksheets("Feuil1").Range("B2") = MyValue1
'--------------
Message2 = "Emplacement "
Title2 = "Démontration2 InputBox"
Default2 = "0"
' Affiche le message, le titre et la valeur par défaut.
MyValue2 = InputBox(Message2, Title2, Default2)
Worksheets("Feuil1").Range("C2") = MyValue2
'--------------
MsgBox "Vous pouvez aller chercher votre Tirage sur L'imprimante", vbOKOnly, "INDICATION"
End Sub
peut sûrement être amélioré
A+++
Jean Marie

Re,

je vais tapper cela sur l'autre ordi et je te tient au courant

A+ Victor