XL 2019 Bug VBA evenementielle

[SamLion91]

Bonjour à tous
j'ai un petit souci
J'ai intégré une macro évènementielle sur mon fichier Excel
Sur mon ordi personnel, elle fonctionne parfaitement mais dès que je l'installe sur l'ordi du travail, la macro je marche plus, la première ligne se colorie en jaune
Qui peux m'aider?

Voici ma macro

Private Sub Workbook_Open()

MsgBox "Bienvenue dans le Dossier" & Chr(13) & Chr(10) & _

STOCK MAGASIN 11, vbInformation, "XXX INTERNATIONAL"

Cordialement

 

[Dranreb]

Bonsoir.
Il ne doit pas y avoir d'espace dans un nom de variable. Appelez la plutôt StockMagasin11 et initialisez la, surtout.

 

[SamLion91]

Merci
Mais pourquoi ça marche sur mon pc perso mais pas sur celui du boulot

C'est surtout le "privatif sub workbook_open() qui est surligner en jaune pour indiquer une erreur

 

[vgendron]

Bonsoir

la question est plutot. pourquoi ca marche alors que ca ne devrait pas

 

[SamLion91]

Le souci c'est que ça marche sur mon pc
Mais pas sur celui du boulot
Quid: peut-être que Excel est l'ancienne version sur celui du pc et il reconnaît pas le private sub workbook_open() ?

 

[vgendron]

Le souci c'est que ça marche sur mon pc
Mais pas sur celui du boulot
Quid: peut-être que Excel est l'ancienne version sur celui du pc et il reconnaît pas le private sub workbook_open() ?

non, ce n'et pas une piste.. l'évnènement _open est déjà existant (sur toutes les versions d'excel

avant de chercher des pistes à tout va. essaie déjà de faire ce que tu dis bernard
un nom de variable ne doit pas contenir d'espace

Stock magasin, n'est pas valide
Stock_Magasin, est valide
tu peux aussi ajouter en haut du module: Option explicit

 

[SamLion91]

Merci je vais essayer ça demain matin
Je reviendrai vers vous
Merci du soutien

 

[SamLion91]

Bonjour
Cela fonctionne à merveille grâce à vous.
J'ai une autre question
Comment mettre la phrase stock magasin 11 en dessous de la première ligne ?
Merci

 

[TooFatBoy]

Bonjour,

Je ne suis pas sûr vu d'ici... mais je crois que ton problème initial vient du manque de guillemets :

Private Sub Workbook_Open()
MsgBox "Bienvenue dans le Dossier" & Chr(13) & Chr(10) & _
"STOCK MAGASIN 11", vbInformation, "XXX INTERNATIONAL"

 

[Dranreb]

Bonjour.
C'était trop évident ! On ne pouvait pas savoir que c'était une constante String dont les guillemets délimiteurs avaient été oubliés !

 

[Phil69970]

Bonjour à tous

@SamLion91

J'ai une autre question
Comment mettre la phrase stock magasin 11 en dessous de la première ligne ?

Tu as eu la réponse dans la réponse de ton 1er post ici il suffit juste de faire de la recopie !!! 😉

Tu as d'ailleurs repris le principe (très mal) dans ton post #1

Rappel du principe du forum c'est :
==>une question ==> une ou plusieurs réponses ==> je valide la réponse qui me va et que j'ai retenu
==> Nouvelle question ==> une ou plusieurs réponses==> je valide la réponse qui me va et que j'ai retenu....

Je te conseille d'aller lire la charte ici

Bonne lecture

@Phil69970

 

[TooFatBoy]

C'était trop évident ! On ne pouvait pas savoir que c'était une constante String dont les guillemets délimiteurs avaient été oubliés !

Sans fichier on ne peut effectivement que faire des suppositions (d'où mon "vu d'ici").

 

[SamLion91]

Bonjour.
C'était trop évident ! On ne pouvait pas savoir que c'était une constante String dont les guillemets délimiteurs avaient été oubliés !

Merci a tous pour vos réponses
Effectivement comme la suggéré @Dranber il fallait pas mettre d'espace entre les mots
La macro fonctionne parfaitement maintenant
Merci
Fin du post.