VB vers MsWord

Question

Bonjours,
  Je désire implémenter un document word à partir de code VB, cela fonctionne dans un cas, mais dans un autre je déclare (avec Dim) le Word.Application et le Word.Document. Le fait de déclarer ceux-ci fait complétement bugger mon formulaire (par ex: la procedure aprés modification d'une liste déroulante me génére l'erreur Type définit par l'utilisateur non défini) et lorsque je passe ces déclarations en commentaire, le formulaire fonctionne bien.

  Je ne comprend pas alors que dans un autre formulaire ce principes fonctionne à merveille.

  Aidez moi, plzzzz

Gk@O0o

econs · Answer

Peux-tu déposer ton code ici stp ??
Sinon, on aura du mal à te dire où tu te plantes ...

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

geko321 · Answer

Voici le code Option Compare Database Dim Urgent As Boolean Dim strWord As String Dim tmp As Integer Dim Word As New Word.Application Dim Word_Doc As Word.Document ' Private Sub Commande11_Click() If MsgBox("Voulez-vous enregistrer la demande d'intervention informatique ?", 20, "Nouvelle_Intervention") <> 6 Then Else If [Forms]![Form_NouvelleIntervention]![Texte16].Value = "Vrai" Then DoCmd.OpenQuery "Enr_NouvelleInterventionUrgente" Forms.Form_Accueil.Liste64.Requery Else DoCmd.OpenQuery "Enr_NouvelleIntervention" Forms.Form_Accueil.Liste41.Requery End If tmp = DCount("Type", "Sel_InterObjet") If tmp = 0 Then DoCmd.OpenQuery "Enr_InterObjet" End If strWord = "C:\Documents and Settings\mathieu\Mes documents\Projets\Prj04 - Base informatique\G2-028.doc" Set Word = New Word.Application Set Word_Doc = Word.Documents.Open(strWord) Word.Visible = True ' Word.ActiveDocument.Bookmarks("Demandeur").Select ' Word.Selection.InsertAfter ([Forms]![Form_NouvelleIntervention]![Texte3]) Word.ActiveDocument.SaveAs Me![Devis] & "_S3 CD01 L_" & [Forms]![Accueil]![Liste44].Column(2, varI) & ".doc" Word.Application.PrintOut Range:=wdPrintCurrentPage While Word.BackgroundPrintingStatus <> 0 Wend Word.ActiveDocument.Close DoCmd.Close acForm, "Form_NouvelleIntervention" End If End Sub Private Sub Modifiable5_Change() 'MsgBox [Forms]![Form_NouvelleIntervention]![Modifiable5] [Forms]![Form_NouvelleIntervention]![Modifiable7].Requery End Sub Private Sub Option12_Click() If [Forms]![Form_NouvelleIntervention]![Texte16].Value = "Vrai" Then [Forms]![Form_NouvelleIntervention]![Texte16].Value = "Faux" [Forms]![Form_NouvelleIntervention]![Texte14].Visible = True Else [Forms]![Form_NouvelleIntervention]![Texte16].Value = "Vrai" [Forms]![Form_NouvelleIntervention]![Texte14].Visible = False End If End Sub Gk@O0o

geko321 · Answer

re:

VB vers MsWord

3 réponses

Discussions similaires