Discussion :

[Swam.logx3]

Bonjour, J'ai un problème avec l'ouverture de mon fichier Word.

Voici le Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Option Explicit


    Public Sub GenererConvoc(piLig As Integer)

    Dim iRep As VbMsgBoxResult
    Dim sModele As String
    Dim oShSource As Worksheet
    Dim oWAFinal As Object
    Dim oWBFinal As Object
    Dim sNomPrenom As String
    Dim sFichierFinal As String

    
      Set oShSource = Worksheets("Convocation")
     
     
    If (oShSource.Range("A" & piLig).Value = "P") Then
    sModele = ThisWorkbook.Path & "\" & "ConvocationP.docx"
    ElseIf oShSource.Range("A" & piLig).Value = "R" Then
    sModele = ThisWorkbook.Path & "\" & "ConvocationR.docx"
    End If
    
    
    If Dir(sModele) = "" Then
    MsgBox "Modèle absent : " & vbCrLf & sModele, vbExclamation
    Exit Sub
    End If

    
    sNomPrenom = oShSource.Range("C" & piLig).Value

    'sFichierFinal
    
    sFichierFinal = ThisWorkbook.Path & "\" & sNomPrenom & ".docx"
    
    If Dir(sFichierFinal) = "" Then
        iRep = MsgBox("Voulez-vous générer la convocation de [" & sNomPrenom & "] ?", vbOKCancel + vbExclamation)
    Else
       iRep = MsgBox("Une convocation existe déjà pour [" & sNomPrenom & "] : " & vbCrLf & vbCrLf & sFichierFinal & vbCrLf & vbCrLf & _
                "Voulez-vous la remplacer ?", vbOKCancel + vbExclamation)
    End If
    
    If iRep <> vbOK Then
        Exit Sub
    End If
    
    'Ouverture
    
Set oWAFinal = CreateObject(Word.Application)
Set oWBFinal = oWAFinal.Document.Open(sFichierFinal)


    'alimentation du fichier final avec signets
    
oWBFinal.Bookmarks("Signet1").Range.Text = oShSource.Range("G1" & piLig).Value 'N° Dossier
oWBFinal.Bookmarks("Signet2").Range.Text = oShSource.Range("G2" & piLig).Value 'Affaire suivi par :
oWBFinal.Bookmarks("Signet3").Range.Text = oShSource.Range("G3" & piLig).Value 'Jour RDV
oWBFinal.Bookmarks("Signet4").Range.Text = oShSource.Range("G4" & piLig).Value 'Convoc envoyée le
oWBFinal.Bookmarks("Signet5").Range.Text = oShSource.Range("G5" & piLig).Value 'NOM Propriété
oWBFinal.Bookmarks("Signet6").Range.Text = oShSource.Range("B" & piLig).Value 'Genre
oWBFinal.Bookmarks("Signet62").Range.Text = oShSource.Range("B" & piLig).Value 'Genre2
oWBFinal.Bookmarks("Signet7").Range.Text = oShSource.Range("C" & piLig).Value 'Nom Prénom
oWBFinal.Bookmarks("Signet8").Range.Text = oShSource.Range("D" & piLig).Value 'Section
oWBFinal.Bookmarks("Signet82").Range.Text = oShSource.Range("D" & piLig).Value 'Section2
oWBFinal.Bookmarks("Signet9").Range.Text = oShSource.Range("E" & piLig).Value 'Parcelles
oWBFinal.Bookmarks("Signet92").Range.Text = oShSource.Range("E" & piLig).Value 'Parcelles2
oWBFinal.Bookmarks("Signet10").Range.Text = oShSource.Range("G" & piLig).Value 'Adresse
oWBFinal.Bookmarks("Signet11").Range.Text = oShSource.Range("H" & piLig).Value 'Code postal
oWBFinal.Bookmarks("Signet12").Range.Text = oShSource.Range("I" & piLig).Value 'Commune
oWBFinal.Bookmarks("Signet122").Range.Text = oShSource.Range("I" & piLig).Value 'Commune2
oWBFinal.Bookmarks("Signet13").Range.Text = oShSource.Range("J" & piLig).Value 'Lieu dit
oWBFinal.Bookmarks("Signet14").Range.Text = oShSource.Range("K" & piLig).Value 'Heure RDV


 
    
    Set oWAFinal = Nothing
    Set oWBFinal = Nothing
    Set oShSource = Nothing
    
    MsgBox "Le bon est disponible !" & vbCrLf & vbCrLf & sFichierFinal, vbInformation, "Bon disponible !"

End Sub

Si quelqu'un peut m'aider à découvrir ce qu'il bloque ...?

[Menhir]

"J'ai un problème", c'est un peu court comme description...
Qu'est-ce qui se passe exactement ?
S'il y a une erreur, quel est le message d'erreur ? Quelle ligne de code est désignée par le débugueur ?
Si le résultat obtenu n'est pas celui souhaité, quel résultat souhaitais-tu et quel résultat obtiens-tu ?

[Swam.logx3]

Désolé ...
J'ai une erreur d’exécution 429 : Un composant Active X ne peut pas créer d'objet.
Sur la ligne :

Code :

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

Set oWAFinal = CreateObject(Word.Application)

J'ai regarder sur forum les sujets en question ils expliquent qu'il y a deux solution ou par word.appli / word.document ou par word.objet.
Il me reste, normalement, juste cette exécution pour faire fonctionner mon programme.

Je souhaiterai ouvrir mon fichier word à partir d'excel. Avec le remplissage automatique de signet.

[Menhir]

Il me semble plus simple d'ouvrir directement le fichier Word plutôt que d'essayer d'ouvrir une cession Word puis d'y ouvrir le fichier.

Code :

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

1
2
3
4
   Dim oWBFinal As Word.Document
 
   Set oWBFinal = GetObject(sFichierFinal)
   oWBFinal.Application.Visible = True

Ne pas oublier de charger la bibliothèque d'objet Word.

[Swam.logx3]

C'est ce qu'il me semblait.

[Swam.logx3]

Il me semble plus simple d'ouvrir directement le fichier Word plutôt que d'essayer d'ouvrir une cession Word puis d'y ouvrir le fichier.

Code :

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

1
2
3
4
   Dim oWBFinal As Word.Document
 
   Set oWBFinal = GetObject(sFichierFinal)
   oWBFinal.Application.Visible = True

Ne pas oublier de charger la bibliothèque d'objet Word.

Maintenant il m'indique une erreur d’exécution 432 : Nom du fichier ou de la classe introuvable lors de l'opération sur la même ligne de code.

[Menhir]

Maintenant il m'indique une erreur d’exécution 432 : Nom du fichier ou de la classe introuvable lors de l'opération sur la même ligne de code.

Etant donné qu'avec la méthode que je t'ai indiquée, la ligne de ton message #3 ne devrait plus exister, il est étrange que l'erreur se produise "sur la même ligne".