[WD-2007] Piloter QueryTables, liaison tardive

[Liz99]

Bonjour à tous,

J'essaie de faire une macro Word qui insère le contenu de fichiers txt dans Excel. Je crée une nouvelle feuille à chaque fichier (équivalent de « Données - À partir du texte » dans Excel).

Je suis peu familière avec la liaison tardive. J'ai fait une macro dans Excel et j'essaie de l'adapter pour Word.

Entre autres, par quoi dois-je remplacer Destination:=Range("$A$1") pour éviter le message Sub ou fonction non définie ?

Dois-je ajouter des objEx partout ?

Code :

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
 
    feuille = "Feuil" & Trim(Str(compteur))
    objEx.Worksheets.Add
    Set objExFeuille = objEx.Worksheets(feuille)
    With objExFeuille.QueryTables.Add(Connection:= _
        nomDuFichier, Destination:=Range("$A$1"))
        .Name = nom2
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = 1
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = 1
        .TextFileTextQualifier = 1
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Enfin bref, si quelqu'un pouvait m'aider, ce serait grandement apprécié.

Merci!

[Heureux-oli]

Salut,

Si tu pouvais nous donner le début du code.

en général, lorsque tu déclares un objet, même en liaison tardive, tu as accès à toutes ses méthodes et propriétés.

Ce que je fais lorsque je dois utiliser un LateBinding, j'écris mon code en EarlyBinding et quand tout fonctionne, je le modifie pour le passer en LateBinding.

Mais ici, il nous manque les déclarations et affectation des objets.

[Liz99]

Envoyé par Heureux-oli

Ce que je fais lorsque je dois utiliser un LateBinding, j'écris mon code en EarlyBinding et quand tout fonctionne, je le modifie pour le passer en LateBinding.

Merci pour cette réponse. Je vais essayer cette méthode et je vous reviens avec tous les détails si jamais je n'y arrive pas.

Mais si tout va bien... Joyeux Noël!