OVH Cloud OVH Cloud

Erreur dans les macros sur un autre PC

7 réponses
Avatar
Perceval973
Bonjour a tous

Grace a vous j'ai développé des macros dans mes fichiers excel mais j'ai un
soucis quand je transfert mon fichier a un collegue.

S'il lance la macro il a un message d'erreur de compilation qui précise
qu'un projet ou une librairie sont manquantes.
Si on supprime la commande suivante la macro fonctionne normalement :

' Message d'avertissement
Reponse = MsgBox("Avant d'exécuter cette macro assurez vous que seul le
classeur Planning est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub

Pouvez-vous m'aider ?

Merci d'avance
Perceval

7 réponses

Avatar
Philippe.R
Bonjour,
A priori, pas de librairie invoquée par cette partie de code ; en revanche, si les retours à la ligne
sont comme dans le présent message, ce pourrait être la source du souci ; préférer par exemple :

Reponse = MsgBox("Avant d'exécuter cette macro," _
& " assurez vous que seul le classeur Plann" _
& "ing est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Perceval973" a écrit dans le message de news:
41c2b5ff$0$4668$
Bonjour a tous

Grace a vous j'ai développé des macros dans mes fichiers excel mais j'ai un
soucis quand je transfert mon fichier a un collegue.

S'il lance la macro il a un message d'erreur de compilation qui précise
qu'un projet ou une librairie sont manquantes.
Si on supprime la commande suivante la macro fonctionne normalement :

' Message d'avertissement
Reponse = MsgBox("Avant d'exécuter cette macro assurez vous que seul le
classeur Planning est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub

Pouvez-vous m'aider ?

Merci d'avance
Perceval




Avatar
Sitting Hoax \(BM\)
Bonjour,
ne peux tu pas simplifier l'instruction en mettant par exemple

If Workbooks.Count >1 then
MsgBox "fermez les autres fichiers"
Exit Sub
End If

?
Amicalement
Sitting Hoax
"Perceval973" a écrit dans le message de
news:41c2b5ff$0$4668$
Bonjour a tous

Grace a vous j'ai développé des macros dans mes fichiers excel mais j'ai
un

soucis quand je transfert mon fichier a un collegue.

S'il lance la macro il a un message d'erreur de compilation qui précise
qu'un projet ou une librairie sont manquantes.
Si on supprime la commande suivante la macro fonctionne normalement :

' Message d'avertissement
Reponse = MsgBox("Avant d'exécuter cette macro assurez vous que seul
le

classeur Planning est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub

Pouvez-vous m'aider ?

Merci d'avance
Perceval




Avatar
Paul V.
Bonjour,

Tu devrais préciser les versions d'Excel utilisées et si elles sont
différentes.
Les constantes Excel telles que VBNO ne sont pas disponibles dans les
versions anciennes.
Ou alors une librairie manquantes dans l'autre PC. A vérifier dans outils -
références .
A+
Paul V

"Perceval973" a écrit dans le message de news:
41c2b5ff$0$4668$
Bonjour a tous

Grace a vous j'ai développé des macros dans mes fichiers excel mais j'ai
un
soucis quand je transfert mon fichier a un collegue.

S'il lance la macro il a un message d'erreur de compilation qui précise
qu'un projet ou une librairie sont manquantes.
Si on supprime la commande suivante la macro fonctionne normalement :

' Message d'avertissement
Reponse = MsgBox("Avant d'exécuter cette macro assurez vous que seul le
classeur Planning est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub

Pouvez-vous m'aider ?

Merci d'avance
Perceval




Avatar
Perceval973
Moi j'ai Excel 2003 et mon collegue a Excel 2000
Je ne trouve pas le menu "outil/reference" dont tu parles

"Paul V." a écrit dans le message de
news:
Bonjour,

Tu devrais préciser les versions d'Excel utilisées et si elles sont
différentes.
Les constantes Excel telles que VBNO ne sont pas disponibles dans les
versions anciennes.
Ou alors une librairie manquantes dans l'autre PC. A vérifier dans
outils -

références .
A+
Paul V

"Perceval973" a écrit dans le message de news:
41c2b5ff$0$4668$
Bonjour a tous

Grace a vous j'ai développé des macros dans mes fichiers excel mais j'ai
un
soucis quand je transfert mon fichier a un collegue.

S'il lance la macro il a un message d'erreur de compilation qui précise
qu'un projet ou une librairie sont manquantes.
Si on supprime la commande suivante la macro fonctionne normalement :

' Message d'avertissement
Reponse = MsgBox("Avant d'exécuter cette macro assurez vous que seul
le


classeur Planning est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub

Pouvez-vous m'aider ?

Merci d'avance
Perceval








Avatar
Perceval973
Mais si je fais ca, je n'ai pas la boite de dialogue "oui/non" qui clos la
macro en cas de "non"


"Sitting Hoax (BM)" a écrit dans le
message de news:
Bonjour,
ne peux tu pas simplifier l'instruction en mettant par exemple

If Workbooks.Count >1 then
MsgBox "fermez les autres fichiers"
Exit Sub
End If

?
Amicalement
Sitting Hoax
"Perceval973" a écrit dans le message de
news:41c2b5ff$0$4668$
Bonjour a tous

Grace a vous j'ai développé des macros dans mes fichiers excel mais j'ai
un

soucis quand je transfert mon fichier a un collegue.

S'il lance la macro il a un message d'erreur de compilation qui précise
qu'un projet ou une librairie sont manquantes.
Si on supprime la commande suivante la macro fonctionne normalement :

' Message d'avertissement
Reponse = MsgBox("Avant d'exécuter cette macro assurez vous que seul
le

classeur Planning est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub

Pouvez-vous m'aider ?

Merci d'avance
Perceval








Avatar
Perceval973
Désolé c'est Outlook Express qui a coupé ma formule au mauvais endroit
néanmoins je n'ai pas les signes "&" en début de ligne apres les coupures,
je vais tester ca...

"Philippe.R" a écrit dans le message de
news:O6y%
Bonjour,
A priori, pas de librairie invoquée par cette partie de code ; en
revanche, si les retours à la ligne

sont comme dans le présent message, ce pourrait être la source du souci ;
préférer par exemple :


Reponse = MsgBox("Avant d'exécuter cette macro," _
& " assurez vous que seul le classeur Plann" _
& "ing est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Perceval973" a écrit dans le message de news:
41c2b5ff$0$4668$
Bonjour a tous

Grace a vous j'ai développé des macros dans mes fichiers excel mais j'ai
un


soucis quand je transfert mon fichier a un collegue.

S'il lance la macro il a un message d'erreur de compilation qui précise
qu'un projet ou une librairie sont manquantes.
Si on supprime la commande suivante la macro fonctionne normalement :

' Message d'avertissement
Reponse = MsgBox("Avant d'exécuter cette macro assurez vous que seul
le


classeur Planning est ouvert.", _
vbQuestion + vbYesNo, "ATTENTION !")
If Reponse = vbNo Then Exit Sub

Pouvez-vous m'aider ?

Merci d'avance
Perceval







Avatar
Clément Marcotte
Je ne trouve pas le menu "outil/reference" dont tu parles


Dans l'environnement de programmation, pas dans Excel
--
Boycottez BNP-PARIBAS