Macro à l'ouverture d'un fichier excel

E

Essart

XLDnaute Junior

• 3 Janvier 2013

• #2

Re : Macro à l'ouverture d'un fichier excel

Bonjour,

je crois que ce que tu recherches est bien expliqué par Jacques Boisgontier :
Gestion des événements


en y mettant une inpoutbox :
InputBox()

ce qui donnerait qqchose du genre :

Private Sub Workbook_Open()
Dim nom as String
boucle:
nom = InputBox("Quel est votre nom de projet ?", "nom du projet")
Range("A1").Value = nom
If nom = "" Then
MsgBox "Absence de nom"
GoTo boucle
end if
Range("A1").Value = nom
End Sub

 

Vote positif 0 Vote négatif

A

aqcic

XLDnaute Nouveau

• 3 Janvier 2013

• #3

Re : Macro à l'ouverture d'un fichier excel

Merci pour la réponse,

C'est bien ce que je voulais. Mais je souhaite rajouter, une fois le nom saisi, le fichier enregistré et fermé. Qu'à la prochaine réouverture du même fichier, l'invitation (inpoutbox) disparaît.

 

Vote positif 0 Vote négatif

E

Essart

XLDnaute Junior

• 3 Janvier 2013

• #4

Re : Macro à l'ouverture d'un fichier excel

ou plutôt en auto_open dans un module standard comme ceci

 

Pièces jointes

• toto.xls

  33.5 KB · Affichages: 40
• toto.xls

  33.5 KB · Affichages: 44
• toto.xls

  33.5 KB · Affichages: 49

Vote positif 0 Vote négatif

E

Essart

XLDnaute Junior

• 3 Janvier 2013

• #5

Re : Macro à l'ouverture d'un fichier excel

il suffit de rajouter un
If Range("A1").Value <> "" Then Exit Sub
comme dans cet exemple

 

Vote positif 0 Vote négatif

E

Essart

XLDnaute Junior

• 3 Janvier 2013

• #6

Re : Macro à l'ouverture d'un fichier excel

il suffit de rajouter un
If Range("A1").Value <> "" Then Exit Sub
comme dans cet exemple qui suit cette fois !

 

Pièces jointes

• toto.xls

  33.5 KB · Affichages: 38
• toto.xls

  33.5 KB · Affichages: 35
• toto.xls

  33.5 KB · Affichages: 42

Vote positif 0 Vote négatif

A

aqcic

XLDnaute Nouveau

• 3 Janvier 2013

• #7

Re : Macro à l'ouverture d'un fichier excel

Ça marche, merci beaucoup.

 

Vote positif 0 Vote négatif