Ouverture personnalisée de Excel

[PATSAB]

Bonsoir à tout le forum

Je travaille de plus en plus sous excel et vba, et je recherche aujourd'hui la manière d'afficher un message à l'ouverture de l'application EXCEL, et non seulement à l'ouverture d'un fichier particulier. Par exemple en lançant l'application Excel affichier "Bonjour, nous sommes le 24/10/2008"
Avec mes remerciements à tous ceux qui auront quelques idées et aussi aux autrs qui chercheront tout de même.

 

[Kotov]

Re : Ouverture personnalisée de Excel

Bonsoir Patsab,

Une macro à insérer dans le module ThisWorkbook du classeur choisi

Private Sub Workbook_Open()
MsgBox "Bonjour, nous sommes le " & CStr(Date), vbInformation, "Hello ..."
End Sub

Bonne soirée
Kotov

 

[Cousinhub]

Re : Ouverture personnalisée de Excel

Bonsoir,

ou dans un Perso.xls, à placer dans le xlStart........

Private Sub Workbook_Open()
MsgBox "Bonjour, nous sommes le : " & Format(Date, "dddd dd mmmm yyyy")
End Sub

 

[Kotov]

Re : Ouverture personnalisée de Excel

Bonjour Bhbh,

J'ai lu trop rapidement la demande de Patsab, et je n'ai pas percuté sur la nécessité du message à l'ouverture de chaque fichier et non pas à l'ouverture d'un fichier précis :

Effectivement, avec la macro dans le fichier Perso.xls du xlstart, le message sera présent à chaque lancement d'Excel.

Merci pour ton intervention
Kotov

 

[PATSAB]

Re : Ouverture personnalisée de Excel

Bonsoir Kotov, bonsoir BHBH, bonsoir à tous
Tout d'abord, merci pour vous intéresser à ma question.
Malheureusement je ne connais pas le xlstart. Il existe bien un fichier perso.xls contenant les macros privées, mais je ne sais pas où trouver le xlstart;
Merci et à bientôt, j'espère

 

[jeanpierre]

Re : Ouverture personnalisée de Excel

Bonsoir PATSAB, Kotov, bhbh,

Le XLStart, sous XP, se trouve dans Document and settings, ton dossier personnel, généralement le deuxième, après All Users et Microsoft/Excel/XLStart.

Pour les versions antérieures de Win., je ne m'en souviens pas.

Voilà pour moi.

Jean-Pierre

 

[PATSAB]

Re : Ouverture personnalisée de Excel

Merci à tous
Le fichier perso.xls de xlstart est le même que celui qui apparaît normalement dans excel.
J'ai testé en mettant un code type

Private Sub Workbook_Open()
MsgBox "Bonjour " & Chr(10) & "Il est " & Time, vbInformation, "CHEZ NOUS"
End Sub.
Ce code ne fonctionne pas à l'ouverture d' excel mais uniquement à l'ouverture du fichier contenant ce code.
Je vous remercie de m'apprendre à apprendre.
Bonne soirée à tous. Je vais me reposer pour la nuit

 

[kjin]

Re : Ouverture personnalisée de Excel

Bonsoir,
Au lancement d'Excel, il va chercher dans XLSTART s'il existe un fichier ou non dans ce répertoire, qu'il s'appel perso.xls ou gloubiboulga.xls, et s'il trouve il sera ouvert (s'il y en a plusieurs ils seront tous ouverts),
Il est donc normal de voir ton fichier à l'ouverture et par conséquent que le message s' affiche si tu as suivi les indications de Bhbh et Kotov
A+
kjin

 

[MJ13]

Re : Ouverture personnalisée de Excel

Bonjour à tous,

On peut aussi faire un Xla.

 

[PATSAB]

Re : Ouverture personnalisée de Excel

Bonjour à tous et principalement à ceux qui m'ont aidé.

C'est parfait ! Tout fonctionne !
Merci et à bientôt, au hasard de mes recherches !🙂