Discussion :

[Mod77]

Bonsoir,

Je n'arrive pas à me dépatouiller avec un code que j'ai repris pour sauvegarder une feuille excel sur un doc word. Voici le code après de multiple changement mais qui m'affiche une erreur "91, variable non définie":

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
 
Sub CopierDesCellulesDansWord() 'copie une plage de cellule sous word
Dim WdApp As Word.Application
Dim WdDoc As Word.Document
Dim i
Dim Nom, ChemRep As String
Dim DerLg As Long
 
    ChemRep = "D:\SAUVEGARDE\Mes FICHIERS\perso\Copro\3C\"
    Nom = Sheets("PV").Range("B3")
    DernLigne = Sheets("PV").Range("A" & Rows.Count).End(xlUp).Row
 
    WdApp.Visible = True                                    'masque Word pdt opération
    Set WdApp = CreateObject("word.application")            'ouvre la session Word
 
    Set WdDoc = WdApp.Documents.Add                         'crée un nouveau document
    WdDoc.SaveAs ChemRep & Nom                              'enregistre le nouveau doc
 
    Set WdDoc = WdApp.Documents.Open(ChemRep & Nom)         'ouvre le doc
 
    'WdApp.Visible = True
 
    Sheets("PV").Range("A1:F" & DerLg).Copy                 'plage copiée
    DoEvents                    'laisse au système le temps de copier la plage
 
    With WdApp
        .Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
          wdInLine, DisplayAsIcon:=False        'colle la copie
        WdDoc.InlineShapes(1).Height = 172.9    'Règle la hauteur dans Word
        WdDoc.InlineShapes(1).Width = 453.55    'Règle la largeur dans Word
    End With
 
    WdDoc.Close True        'Enregistre et ferme le doc word
    DoEvents                'Laisse au système le temps d'enregistrer le fichier
    WdApp.Quit              'ferme la session
 
    Set WdApp = Nothing
    Set WdDoc = Nothing
End Sub

Quelqu'un^peut-il m'aider à trouver le bon ordre svp?

[unparia]

Bonjour
DerLg est inconnue (non intitialisée) dans :

Code :

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

Sheets("PV").Range("A1:F" & DerLg).Copy

Serait-ce DernLigne (que tu as initialisée, mais non déclarée, par contre) ?

[Mod77]

Bonsoir,

Merci unparia, effectivement. Mais malgré cela j'ai une "erreur 91: variable objet ou variable bloc with non définie"

quezako ?

[clementmarcotte]

Bonjour,

Commence par remplacer les nomd de constantes par leur valeurs numériques dans ce bloc:

Code :

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

1
2
3
4
5
6
With WdApp
        .Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
          wdInLine, DisplayAsIcon:=False        'colle la copie
        WdDoc.InlineShapes(1).Height = 172.9    'Règle la hauteur dans Word
        WdDoc.InlineShapes(1).Width = 453.55    'Règle la largeur dans Word
    End With

True et False pourraient probablement passer, mais wdPasteOLEObject et wdInLine, sûrement pas.

Ou bien, tu définis tes deux constantes avec leur valeur numérique au début de ton code.

Pour augmenter tes chances de trouver les valeurs numériques dans ton aide, tu cliques sur ta constante dans l'éditeur et tu appuies sur

[kiki29]

Salut, cela ce produit quand l'on est en Late Binding, pas en Early, et qui est ici, comme d'habitude, mélangé allègrement par Mod77 .
Sinon juste pour info voir modèle objet Word
rubrique énumération
WdPasteDataType

Ou plus simple : Enumérer les constantes Office pour les utiliser en Late Binding d'Oliv-.

[Mod77]

Bonjour,
merci de votre aide.

Je ne maitrise pas du tout ce que vous me dites. Je me trompe car je prends du code quand cela répond à la question posée sur un site et que ça marche.
Donc, évidemment, je mélange sans le savoir.

J'essaie donc de corriger et reviens après. Merci de votre indulgence.