Discussion :

[ftrouve]

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 :

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

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 :

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

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

excel et word 2010

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[clementmarcotte]

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 :

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

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

[Theze]

Bonjour,

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

Code :

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

1
2
3
4
5
6
 
Sub test()
 
    MsgBox wdAutoFitWindow
 
End Sub

Hervé.

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[ftrouve]

la derniere solution était bien sur la plus simple
merci

[Marc-L]

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