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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!
Nomorerulz
Partager