MsgBox en ouverture de fichier

Bonjour Excellent amis ,

Je fais appelle a vos lumières. J'aurais souhaité qu'une Msg Box s'ouvre à l'ouverture de mon fichier excel.

Et pose 4 questions à la suite . saisir votre nom saisir la date saisir le numéro d'affaire et saisir le PK

Afin de préremplir respectivement les case E1 C2 E2 et C1 de ma feuille à la fermeture de la MsgBox. Cela parais simple mais pour un débutant c'est déjà coton.

Merci de votre aide.

Ci dessous ce que j'ai essayé de faire.

Private Sub Worksheet_Activate()
Sub donnees_fixe()
Dim Initiator As String
Dim Date As String
Dim Sale As String
Dim numero PK As String

'Saisie du nom du créateur
Initiator = InputBox("Saisissez votre nom", "Saisie Initiator")
'Saisie du date
date = InputBox("Saisissez la date de création", "Saisie Date")
'Saisie du numéro de vente de l'affaire
Sale = InputBox("Saissez le numéro de SP", "Saisie Sale")
'Saisie du numéro du plan qualité
PK = InputBox("Saisissez du numero de PK", "Saisie plan qualite")

rep = MsgBox(Initiator & date & Sale & PK, vbOKCancel)

Range("E1") = Initiator
Range("C2") = date
Range("E2") = sale
Range("C1") = PK

End If

Bonjour

Un fichier aurai été le bienvenu...

Ci joint ma solution par userform (macro)

A+ François

Ps: 1 erreur corrigé à 10h24

Bonjour

Lorsque vous postez un code, veillez à utiliser les balises de codes (</>) disponibles dans le menu en plaçant votre code dans la fenêtre. (j'ai remis les balises de code dans votre 1er post.

Sinon pour votre demande :
- Supprimez --> Sub donnees_fixes() au début du code
- remplacez Private Sub Worksheet_Activate() par Private Sub Workbook_Open()

si ok...

Cordialement

Merci FANFAN38, comment fais tu pour copier la macro et la boite sur mon fichier ?

Merci Dan, j'ai fais les changement mais rien ne s'ouvre a l'ouverture du fichier.

j'ai fais les changement mais rien ne s'ouvre a l'ouverture du fichier.

Comment cela rien ne s'ouvre ???
Votre code est bien placé dans THISWORKBOOK ??

edit : Oui juste. Il est placé dans une feuille je présume. Déplacez le code qui est dans votre feuille et coller le dans THISWORKBOOK.
Vous devez aussi spécifier le nom de la feuille qui doit recevoir les informations

With sheets("nomfeuille")
.Range("E1") = Initiator
.Range("C2") = date
.Range("E2") = sale
.Range("C1") = PK
end with

Tu ouvres les 2 fichiers

Tu appuie sur ALT+F11 pour aller dans l'éditeur VBA

Tu sélectionnes mon userform et tu le fait glisser sur ton projet

tu ouvres thisworkbook et tu fais glisser la macro dans to thisworkbook

A+ François

je l'ai collé ici

Non ce n'est pas juste. j'ai dit dans THISWORKBOOK. Là vous êtes dans votre feuille

Merci messieurs, ca marche nickel. bonne journée à vous