Compter les tableaux d'un document word pour les ajuster [Résolu]

Signaler
Messages postés
47
Date d'inscription
mardi 3 juillet 2007
Statut
Membre
Dernière intervention
26 décembre 2013
-
Messages postés
29545
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 septembre 2020
-
Bonjour,

Je souhaite ajuster à la fenêtre tous les tableaux d'un document word.

J'ai donc ecrit ceci :

Sub tableau_compte()

Dim nbtab As Integer
nbtab = ActiveDocument.Tables.Count

MsgBox ("le nombre de tableaux est : " & nbtab)


For i = 1 To nbtab
Selection.Tables(i).AutoFitBehavior (wdAutoFitWindow)
Next i

End Sub

Quand j'execute la macro, le code bute sur :
Selection.Tables(i).AutoFitBehavior (wdAutoFitWindow)
et me renvoie : Erreur d'execution 5941 - le membre de la collection requis n'existe pas.

Pourtant cette ligne m'est fourni par l'enregistreur de macro ! (sauf pour le i !)
Auriez vous une idée ?

Davance merci ... et bonnes fêtes de fin d'année
--

1 réponse

Messages postés
29545
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 septembre 2020
336
Bonjour,

Déjà, merci de penser à utiliser la coloration syntaxique lorsque tu postes du code :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Ensuite.. essayes ceci :
Sub tableau_compte()
Dim Tbl As Table
Dim nbtab As Integer
nbtab = ActiveDocument.Tables.Count
MsgBox ("le nombre de tableaux est : " & nbtab)

For Each Tbl In ActiveDocument.Tables
 Tbl.AutoFitBehavior (wdAutoFitWindow)
Next

End Sub

Messages postés
47
Date d'inscription
mardi 3 juillet 2007
Statut
Membre
Dernière intervention
26 décembre 2013

Merci beaucoup Jordane45 ... c'a marche tip top !

Pour la partie insertion du code ... je le ferais la prochaine fois promis ...

Bonne journée
Messages postés
29545
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 septembre 2020
336
;-)