Discussion :

[tignou]

Bonjour à tous,
premièrement je suis désolé si la solution se trouve sur le forum mais je l'ai parcouru assidument (particulièrement la FAQ très bien faite) et je n'arrive pas à solutionner mon problème.

Voila j'ai fait une macro qui ouvre un doc word pour un positionner des tableaux ainsi que compléter des phrases avec des valeurs issues de cellules d'excel.
Mon problème c'est que lorsque je copie les cellules d'excel dans les "trous" (à la facon d'un publipostage), cela copie la cellule et change la mise en forme du paragraphe.
J'ai donc décidé de bricoler pour ne prendre que la valeur du texte. Ca fonctionne quand la valeur de la cellule est un string Mais pas quand celle ci est un nombre, j'ai l'erreur 13" incompatibilité d'exécution"

Auriez vous des idées?
Merci d'avance
Ci joint le code, avec la ligne qui plante :

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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Sub CreerDocumentWordNONStat()

Dim wdApp As Object 'Word.Application

Dim DerniereLigne As Integer

Dim aEntete As Variant
Dim aNbCSF_1er As Variant
Dim aMethodeUtilisee As Variant
Dim aNiveauAssurance As Variant
Dim aNiveauAssuranceChiffre As Variant


aEntete = Worksheets("Non-ST Non-statistical (EP)").Range("C1").Value
aNbCSF_1er = Worksheets("Non-ST Non-statistical (EP)").Range("C5").Value
aMethodeUtilisee = Worksheets("Non-ST Non-statistical (EP)").Range("A40").Value
aNiveauAssuranceChiffre = Worksheets("Non-ST Non-statistical (EP)").Range("C11").Value

If (aNiveauAssuranceChiffre > 1) Then
        If (aNiveauAssuranceChiffre > 2) Then
              If (aNiveauAssuranceChiffre > 3) Then
                 aNiveauAssurance = Worksheets("Non-ST Non-statistical (EP)").Range("B37").Value
               Else: aNiveauAssurance = Worksheets("Non-ST Non-statistical (EP)").Range("B36").Value
        End If
        Else: aNiveauAssurance = Worksheets("Non-ST Non-statistical (EP)").Range("B35").Value
     End If
     Else: aNiveauAssurance = Worksheets("Non-ST Non-statistical (EP)").Range("B34").Value
End If


Set wdApp = CreateObject("Word.Application")
 'Set WordDoc = wdApp.Documents.Open("MonDoc.docx")    'ouvre le document Word
  
    With wdApp
       .Visible = True
       .Activate
    
          .Documents.Add "Z:\Compte rendu 1er tirage XXXX_v2.dotx"
           
 '------------------------------------------------------------------------------
          'insertion de l'entête  PB SIGNET DANS ENTETE !!
          '  .Selection.Goto what:=-1, Name:="EnTete"
         '   .Selection.TypeText Text:=aEntete
             
             'insertion du nom
            .Selection.Goto what:=-1, Name:="NomProgramme"
            .Selection.TypeText Text:=aNomProg
        
            'insertion de la Methode Utilisee
            .Selection.Goto what:=-1, Name:="MéthodeUtilisee"
            .Selection.TypeText Text:=aMethodeUtilisee
       
            'insertion du NiveauAssuranceChiffre PB CONVERSION!!
            .Selection.Goto what:=-1, Name:="NiveauAssuranceChiffre"
            .Selection.TypeText Text:=aNiveauAssuranceChiffre
            
            'insertion du NiveauAssurance
            '.Selection.Goto what:=-1, Name:="NiveauAssurance"
            '.Selection.TypeText Text:=aNiveauAssurance
            
            
            'insertion du TauxCouverture
           ' .Selection.Goto what:=-1, Name:="TauxCouverture"
           ' .Selection.TypeText Text:=aTauxCouverture
            
            
            'insertion du MontantCouverture
           ' .Selection.Goto what:=-1, Name:="MontantCouverture"
           ' .Selection.TypeText Text:=aMontantCouverture
            
            'insertion de l'meplacement
            '.Selection.Goto what:=-1, Name:="NbCSF"
            '.Selection.TypeText Text:=aNbCSF_1er
       
  '------------------------------------------------------------------------------
        'insertion du tableau général d'info sur le tirage
         Worksheets("2 synthèse écarts SFC SYNERGIE").Range("B2:l7").Copy
           ' .Selection.InlineShapes(1).LockAspectRatio = msoTrue
           ' .Selection.InlineShapes(1).Width = 510.25
            .Selection.Goto what:=-1, Name:="TableauDivergenceSFCSynergie"
        .Selection.Paste
       
             
         'insertion du tableau général d'info sur le tirage
         Worksheets("Non-ST Non-statistical (EP)").Range("A1:C16").Copy
           ' .Selection.InlineShapes(1).LockAspectRatio = msoTrue
           ' .Selection.InlineShapes(1).Width = 510.25
            .Selection.Goto what:=-1, Name:="TabInfoTirage"
        .Selection.Paste
        
   '------------------------------------------------------------------------------
         'insertion de la liste des CSF à controler
            Worksheets("Non-ST Non-statistical (EP)").Select
        Range("K1000000").Select
        Selection.End(xlUp).Select
        DerniereLigne = ActiveCell.Row
               Worksheets("Non-ST Non-statistical (EP)").Range(Cells(40, 4), Cells(DerniereLigne, 14)).Copy
                   .Selection.Goto what:=-1, Name:="ListeCSFSelectionnes"
         .Selection.Paste
        
    End With

End Sub

[clementmarcotte]

Bonjour,

Essaie avec :

Code :

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

.Selection.TypeText Text:=Cstr(aNiveauAssuranceChiffre)

[tignou]

Bonjour Clément

mille mercis, ça marche!!
Tant que j'y suis et sans vouloir abuser, j'ai aussi un autre problème concernant le signet placé dans l'entête. Il n'est pas reconnu dans la macro. Aurais-tu une idée?