Souci avec la méthode AutoFitBehavior en vba dans excel

Bonjour,

j'ai fais une macro qui copie des TCD dans un fichier word à différents endroits via des signets insérés préalablement dans word.
Je voulais aussi sur mes tableaux activer l'option d'ajustement auto : Ajustement automatique de la fenetre
Mais il ne se passe rien. J'ai essayé plusieurs choses rien n'y faire. Si quelqu'un peut m'éclairer merci

Code:

---

1 2	oWdDoc.Bookmarks("BAILLEURS").Range.PasteExcelTable False, False, False oWdDoc.Tables(1).AutoFitBehavior (wdAutoFitWindow)

---

Quand j'enregistre une macro sous word pour gérer cet ajustement, voici le code :

Code:

---

1 2	Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow) Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)

---

excel et word 2010

Bonjour,

non apparemment …

Mais cela n'a l'air d'être qu'une toute simple p'tite question de logique !
Dans Word, que vaut wdAutoFitWindow ? Et dans Excel ? …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour,

Quand on fait de l'Automation entre des applications Office, on doit utiliser la valeur numérique des constantes et non pas le "nom" des constantes. On peut "tricher" un peu en "transformant" le nom de la constante en variable.

Code:

---

1 2	dim wdAutoFitWindow as integer wdAutoFitWindow = Un_nombre_que_l'on_peut_trouver_dans_l'aide_de_VBA_et_que_je_n'ai_pas_envie_de_chercher

---

Bonjour,

La valeur de "wdAutoFitWindow" est 2. Il suffit tout simplement d'exécuter une petit proc dans le VBE de Word :

Code:

---

1 2 3 4 5 6

Sub test()   MsgBox wdAutoFitWindow   End Sub

---

Hervé.

L'autre solution évidente est de lier directement Word au projet Excel en y cochant sa référence via le menu Outils,
ainsi les constantes de Word y sont directement accessibles.

MsgBox Word.wdAutoFitWindow …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

la derniere solution était bien sur la plus simple
merci

Tant que tu ne changes pas de version d'Office …