Discussion :

[ronanmoule]

Bonjour à vous Développeurz !

Je fais appel à votre savoir pour m'enlever une belle épine du pied ! En effet, je suis en train de réaliser un formulaire sous VB 6 qui devra, après remplissage des champs par l'utilisateur, générer automatiquement un devis. Le modèle de devis est un .dot (modèle Word).

Etant novice dans la programmation, je me suis basé sur un code déjà existant que j'ai récupéré et qui fonctionne. Cependant lorsque je complète le code avec mes nouveaux champs cela ne fonctionne pas.

Malheureusement, je ne parviens pas à identifier la source de l'erreur, si vous pouviez y jeter un oeil, je vous joins le fichier zip complet de l'appli.

Petite précision :

Avec ce code, lorsque je lance le débogage, la UserForm3 s'affiche correctement seulement certaines cases ne fonctionnent pas : exemple du champs "modèle de document" qui devrait afficher le chemin du modèle du document et qui n'affiche rien.

De plus, une fois la UserForm3 affichée, lorsque je lance "générer devis" l'application me renvoit une message box : "Impossible de définir la propriété Text. Valeur de propriété non valide"

Je sais que ce n'est pas facile de voir le problème directement et je vous remercie du temps que vous m'accorderez pour résoudre ce problème, mais je galère réellement à identifier la source de l'erreur.

Je joins le zip de l'appli à ce mail.

Bien amicalement,

RONANMOULE

[zazaraignée]

Tu développes en VB6 ou en VBA avec MsOffice ?

[OhMonBato]

Code :

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

1
2
3
4
5
    If Me.Groupe_DSEIR.Text = "Groupe DSEIR" And Me.Numéro_devis.Text = "Numéro de devis" Then
      'Me.Groupe_DSEIR.Text = ""
      Groupe_DSEIR.ListIndex = -1
        Me.Numéro_devis.Text = ""
    End If

Tu essaye dans ton code de forcer la propriete Text d'une ComboBox, hors cette propriete Text est en lecture seule, il te faut donc remplacer cette ligne comme indiquee dans le code au dessus.
Je n'ai pas teste la suite, mais a priori tu auras des erreurs aussi si les champs sont mal ou non remplis, la par exemple :

Code :

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

    If Me.Montant_prestation_1.Text >= 0 And Me.Montant_prestation_2.Text >= 0 And Me.Montant_prestation_3.Text >= 0 And Me.Montant_prestation_4.Text >= 0 And Me.Montant_prestation_5.Text >= 0 And Me.Montant_prestation_6.Text >= 0 Then

[ronanmoule]

Bonjour Developperz

Tout d'abord merci beaucoup pour cette réponse, je tâcherais de remédier à tout ça dès que possible.

Par ailleurs, j'utilise VB6 et non VBA car je souhaite que cet outil soit compilable en .exe

Voilà pour l'instant je vous tiendrais au courant des évolutions.

Merci encore pour ces réponses et toutes celles à venir...

à plus tard