[WD-2007] [Débutant] code non fonctionnel

[Débutant] code non fonctionnel

Bonjour,

J'aurais besoin d'aide pour faire fonctionner ce code.
Je comprends qu'il n'est pas écrit correctement, mais je ne vois pas mon erreur.
Ce code utilise une cellule nommée dans Excel et copie le contenu dans un textbox dans un fichier Word au signet du même nom.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim H As Integer
        Dim Tabloo
        Tablo = Array("CampiondeMexico_MexicoVolume", "CampiondeMexico_PAC", "CampiondeMexico_UnitsSold", "CampiondeMexico_PWC", _
            "CampiondeMexico_ATV", "CampiondeMexico_SSV", "CampiondeMexico_Road")
        For H = 0 To UBound(Tabloo)
            With wrd.Selection
                If ActiveDocument.Bookmarks.Exists(Tabloo(H)) = True Then
                    ActiveDocument.Bookmarks(Tabloo(H)).Select
                    Set Tabloo(H) = wLATAM.Bookmarks(Tabloo(H)).Range
                    Tabloo(H).InsertAfter (Range(Tabloo(H)).Text)
                End If
            End With
        Next

Merci d'avance pour vos conseils!
Nomorerulz8-)

Bonjour,

À moins qu'il y ait du code ailleurs qui ferait que cela marcherait, il y a apparemment un "o" qui manque:

Dim Tabloo <====
Tablo = <====

Wow, merci.
Je pensais avoir bien regardé, mais il semble que non haha!

Merci beaucoup