Discussion :

[Piccou]

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

[Invité]

Bonjour

Dans mon appli les modules ne marche jamais

C'est à dire ?

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

[Piccou]

Oui désolé ça pourrai accesoirement servir:

avant je vous donne mon code pour ma msgbox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Piccou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[loufab]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox "message", options ,"titre"

Le type fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,