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

Messages postés
47
Date d'inscription
mardi 3 juillet 2007
Statut
Membre
Dernière intervention
26 décembre 2013
- - Dernière réponse : jordane45
Messages postés
25629
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
27 mai 2019
- 26 déc. 2013 à 12:00
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
--
Afficher la suite 

Votre réponse

1 réponse

Messages postés
25629
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
27 mai 2019
311
0
Merci
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

gerardcjf
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
jordane45
Messages postés
25629
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
27 mai 2019
311 -
;-)
Commenter la réponse de jordane45