Discussion :

[guismoman33]

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
Private Sub CommandButton1_Click()
      Dim WdApp As Word.Application
      Dim WdDoc As Word.Document
      Dim i, hauteur As Double, plage As Range
      Dim j As Integer
      Dim k As Integer
      Dim nbre As Integer
 
      Set WdApp = CreateObject("word.application")
      Set WdDoc = WdApp.Documents.Open("C:\ah.doc")
 
      WdApp.Visible = True
 
 
      nbre = ActiveWorkbook.Sheets.Count
 
 
 
 
 
 
 
 
 
 For j = 2 To 11
             If Worksheets(j).Range(J25) <> 0 Or Worksheets(j).Range(J26) <> 0 Then
 
 
 
        Do                          'Sélection de la plage de cellules à copier
            On Error Resume Next                          'gère une plage nulle
            Set plage = Range("A1:L38")
           If plage Is Nothing Then GoTo Fin             'sortie si plage vide
             On Error GoTo 0
             Loop While InStr(plage.Address, ",") <> 0
             plage.Copy                                                'plage copiée
             DoEvents                  'laisse au system le temps de copier la plage
 
                                      'Place l'image sur le signet "Signet"
            With WdApp
                .Selection.Goto What:=wdGoToBookmark, Name:="Signet"
                .Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _
                Placement:=wdInLine, DisplayAsIcon:=False
                WdDoc.InlineShapes(1).Width = 132    'Règle la largeur dans Word
 
                       'Calcul de la hauteur de plage dans le document word
                 hauteur = 132 / WdDoc.InlineShapes(1).Width _
                             * WdDoc.InlineShapes(1).Height
                 WdDoc.InlineShapes(1).Height = Int(hauteur)       'Règle la hauteur
            End With
 
      End If
Next j
 
 
 
 
 
 
 
 If nbre > 15 Then
    For k = 16 To nbre
      If Worksheets(k).Range(J25) <> 0 Or Worksheets(k).Range(J26) <> 0 Then
 
 
 
    Do                          'Sélection de la plage de cellules à copier
        On Error Resume Next                          'gère une plage nulle
        Set plage = Range("A1:L38")
        If plage Is Nothing Then GoTo Fin             'sortie si plage vide
        On Error GoTo 0
    Loop While InStr(plage.Address, ",") <> 0
    plage.Copy                                                'plage copiée
    DoEvents                  'laisse au system le temps de copier la plage
 
                                      'Place l'image sur le signet "Signet"
    With WdApp
           .Selection.Goto What:=wdGoToBookmark, Name:="Signet"
           .Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _
                       Placement:=wdInLine, DisplayAsIcon:=False
           WdDoc.InlineShapes(1).Width = 132    'Règle la largeur dans Word
 
                          'Calcul de la hauteur de plage dans le document word
           hauteur = 132 / WdDoc.InlineShapes(1).Width _
                                * WdDoc.InlineShapes(1).Height
           WdDoc.InlineShapes(1).Height = Int(hauteur)       'Règle la hauteur
       End With
       End If
      Next k
 
 End If
    'WdApp.Visible = True 'Pour voir (Ne pas fermer le fichier depuis Word)
 
Fin::
    WdDoc.Close True                       'Enregistre et ferme le doc word
    DoEvents            'Laisse au system le temps d'enregistrer le fichier
    WdApp.Quit                                            'ferme la session
 
    Set plage = Nothing
    Set WdApp = Nothing
    Set WdDoc = Nothing
End Sub

Voila mon programme ce met en erreur d'application, j'ai fais la pas a pas.J'ai remarquer que c'était

Dim WdApp As Word.Application
Dim WdDoc As Word.Document

[random]

outils références cocher msword

[guismoman33]

J'ai pas trouver msword?est-ce l enom exact??

[guismoman33]

J'ai trouver avec des recherche ceci ici...Mais je ne comprend pas le code donc si cet article peut aidez a trouvez une solution a mon probleme sa serai genial...

[ouskel'n'or]

Regarde ici, tu as la méthode

[guismoman33]

Sa fait deux fois que je le voie ce truc je m'en suis inspirer pour programmez ce que j'ai fait...Mais mon problème, c'est que le programme s'arrete des le debut au niveau de :

Set WdApp = CreateObject("word.application")
Set WdDoc = WdApp.Documents.Open("C:\ah.doc")

Donc svp aidez moi

[guismoman33]

C'est bon j'ai résolue ce problème maintenant j'en est un autre, il bloque et me dit ,

Microsoft office excel attend la fin de l'exécution d'une action OLE d'une autre application.

Cela peut venir de ou??

[ilcocodrillo]

tu as ajouté la librairie Word dans l'éditeur VBA ? sinon lui pas comprendre du tout VBA word... Je sais j'ai fais la connerie la semaine dernière

tu vas dans outils puis référence et tu cherche la librairie word (la liste est très très longue)

[guismoman33]

Oui je les activé, sa doit être dans le programme que sa va pas...Mais pour corriger mon programme il faut être expert mdr car moi je comprend que la moitier et grâce au commentaire sinon je comprendrai rien c'est vraiment compliqué comme langage quand on mélange deux applications

[guismoman33]

J'avance à petit pas, je réctifie problème par problème maintenant je m'attaque à un autre problème...
Cette ligne :

With WdApp
.Selection.Goto What:=wdGoToBookmark, Name:="Signet"
.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:=False

Il me dit qu ele signet n'existe pas...Qu'est ce qu'un signet, à quoi il sert, comment faire pour enlever cette erreur??

[ouskel'n'or]

Un signet... Heu ! Ben... Oui, c'est un signet !
Si tu n'en as pas, supprime cette ligne.

.Selection.Goto What:=wdGoToBookmark, Name:="Signet"

Allez, pour le signet, vas dans Word (pas VBA, Word tout court) menu Insertion -> Insérer un signet... et là F1
Dans VBA Word (pas Word, VBA Word ) tu fais F1 sur "Bookmark"
Bref, un signet est un repère placé dans un document comme un nom est un repère placé dans Excel.
A+

Edit
Dans mon code le signet permettait de placer mon tableau là où je voulais qu'il soit

[guismoman33]

ok Mais sans signet sa marche aussi ou pas!!!Car m'on signet s'enleve tout le temps...

[guismoman33]

Sa marche sa marche sa marche ...Juste un petit problème, prenons l'exemple que je veux mettre mon tableau en largeur = 12 cm et 5cm en hauteur komment on fait????

[ouskel'n'or]

Il faudrait convertir tes cm mais ce n'est pas aisé, donc, tu le fais une fois à la main en enregistrant, tu relèves les bonnes mesures et tu les places dans ton code.
Et tu sais, si tu avais réfléchi 30 secondes de plus... tout seul

[guismoman33]

OUai mais le code je le place ou??et quel sont les ligne qui définissent les mesur

[ouskel'n'or]

Tu fais en enregistrant, tu regarde bien le code, après tu regardes le code dont tu t'es inspiré dans Contribuez et enfin tu corriges les Height et les Width en conséquence. Mais tant que tu n'as pas enregistré en faisant, tu n'auras les bonnes dimensions. On veut bien t'aider mais un minimum d'effort est tout de même requis. Et jusque là...

Edit
Malheureusement je vois venir la question suivante... Et là...
Bon, je vais prendre l'air !

[guismoman33]

Moi pas comprendre c'est pas dure je veux 13 centimetre en largeur et 9 en hauteur, j'ai fai un copier collez manuellement sur word et j'ai modifier comme je voulai, j'ai pris les mesures et il me donne celle la...