Problème: modules qui font planter mes fonctions

Bonjour,

Je souhaite créer deux modules qui m'afficherai deux msgbox à deux moments différents de mon appli. Pour cela j'utilise le générateur de msgbox de loufab qui marche très bien.
Sauf que:
Dans mon appli les modules ne marche jamais j'ai toujour un message d'erreur tel qu'il soit
De plus quand je crée un module j'ai toute mes fonction qui plante. Même une fonction toute bête qui met la date du jour ( Date()) dans mon formulaire d'accueil

La je sèche vraiment

Bonjour

Citation:

---

Envoyé par Piccou

Dans mon appli les modules ne marche jamais

---

C'est à dire ?

Citation:

---

j'ai toujour un message d'erreur tel qu'il soit

---

Lequel ?

Comment est-ce que l'on peut deviner ce qui ne va pas, sans code sans plus de détails ?

Philippe

Oui désolé ça pourrai accesoirement servir:

avant je vous donne mon code pour ma msgbox:

Code:

---

1 2 3 4 5 6

If MsgBox("ouvrir le fichier monfichier.xls, mettre à jour les données, enregistrer et fermer excel, puis importer les données dans la table interpolation SCTC fichier>données externes>importer",vbOkOnly + vbDefaultButton1,"interpoler les données")= Then   Else   End If

---

alors comme message j'ai le droit à "nom de procédure incorrect", ensuite quand je l'ajoute à ma macro qui me ferme mon formulaire,
puisque je voudrai qu'a la fermeture ce msg s'affiche, donc dans mon formulaire toutes les fonctions de date ne marche plus.

A savoir une fonction qui me permettait avant de vérifier que la date saisie était une date de fin de moi, jour([Date]+1)=1 et une fonction
qui m'affiche simplement la date du jour dans une zone de texte =Date()

Voilà ce qui se passe quand j'ajoute ce module, en revanche quand je le suprime tout rentre dans l'ordre, mais ça ne résous pas mon problème
j'ai besoin de cetet boite de dialogue

Pardon pour le manque d'information sur mon premier post, et je vous remercie pour votre aide

Avec un vbOKOnly pas besoin de test puisqu'il ne retourne que la valeur vbOk il faut donc utiliser la commande msgbox et non la fonction.

Code:

---

1 2	msgbox "ton message",vbokonly,"mon titre" ... traitement

---

Citation:

---

Envoyé par loufab

Avec un vbOKOnly pas besoin de test puisqu'il ne retourne que la valeur vbOk il faut donc utiliser la commande msgbox et non la fonction.

Code:

---

1 2	msgbox "ton message",vbokonly,"mon titre" ... traitement

---

---

Mais encore je ne vois pas de quoi tu parles:?, c'est quoi la différence entre une commande et une fonction?

Mais en fait mon code que j'obtiens dans le générateur je le copie colle dans un nouveau module c'est ça, et je l'ajoute à une macro c'est ça?

Coridalement

(ps: merci loufab pour le générateur c'est pratique)

Le générateur génére ce qu'on lui demande, pour l'instant il ne prévient pas l'utilisateur si celui-ci souhaite générer un type de code inutile.

Une commande ne renvoi rien à la différence de la fonction qui elle renvoie une valeur.

le type commande :

Code:

---

msgbox "message", options ,"titre"

---

Le type fonction :

Code:

---

msgbox("message", options ,"titre")

---

Dans ce dernier cas il faut soit faire une affectation soit l'inclure dans une structure d'analyse comme If, Select case, Do while...

Exemple :

Code:

---

1 2 3 4

if msgbox(.....)=vb... then ou encore rep = msgbox(.....) if rep=vb... then

---

Comme vbokonly n'affiche qu'un bouton OK le test est inutile puisque la valeur renvoyée sera TOUJOURS vbok.

Cordialement,