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

Messages postés
47
Date d'inscription
mardi 3 juillet 2007
Dernière intervention
26 décembre 2013
- 26 déc. 2013 à 11:41 - Dernière réponse :
Messages postés
23284
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
19 novembre 2018
- 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

3 réponses

Messages postés
23284
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
19 novembre 2018
- 26 déc. 2013 à 11:51
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

Messages postés
47
Date d'inscription
mardi 3 juillet 2007
Dernière intervention
26 décembre 2013
- 26 déc. 2013 à 11:57
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
23284
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
19 novembre 2018
- 26 déc. 2013 à 12:00
;-)
Commenter la réponse de jordane45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.