|
|
| Le forum de référence en programmation et développement. Articles, cours et tutoriels du débutant au chef de projet et DBA confirmé. | |||||||
|
|||||||
 |
|
|
Outils de la discussion |
14/11/2008, 08h36
|
#1 (permalink) |
|
Candidat au titre de Membre du Club
 Date d'inscription: mars 2007
Messages: 23
|
Redimension automatique de tableaux
Bonjour,
Je copie d'une feuille excel automatiquement des tableaux dans un document word. Ensuite je voudrais que ces tableaux s'adaptent à la page automatiquement. Côté word j'ai essayé la macro suivante mais j'ai une erreur comme quoi il ne connais pas : Code :
Selection.PasteExcelTable False, False, False Selection.TypeParagraph Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow) 'LIGNE QUI DECONNE Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Merci Cdlt Adrien |
|
|
|
14/11/2008, 08h39
|
#2 (permalink) |
  
Date d'inscription: juin 2002
Localisation: Argenteuil (95)
Âge: 39
Messages: 3 586
  |
essaie de virer les () autour de wdAutoFitWindow
__________________
MVP Office Systems - Access Je ne réponds pas aux questions techniques par MP surtout ne cliquez pas >>là<< je vous aurai prévenu ! Profil LinkedIn <=> Viadeo Pour une formation de qualité : 1formaxion |
|
|
|
|
14/11/2008, 09h22
|
#3 (permalink) |
|
Candidat au titre de Membre du Club
Date d'inscription: mars 2007
Messages: 23
|
Non, j'ai toujours le message le membre de la collection n'existe pas. Pour obtenir ce code j'ai fait l'essai à l'aide de l'enregistreur de macro en ayant sélectionné préalablement mon tableau mais la syntaxe reste elle la même quand il s'agit en fait du contenu du presse papier ?
Merci Adrien |
|
|
|
|
14/11/2008, 10h43
|
#4 (permalink) |
Date d'inscription: février 2006
Localisation: Morlanwelz (Carnières)
Âge: 44
Messages: 10 459
|
Salut,
As-tu une table dans ta sélection ? Essaie avec Code :
ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ? Ne posez pas de question par MP, c'est inutile. Les rubriques Office recrutent. Ma page d'accueil Consultez nos FAQ !! Word ; Access ; Outlook ; Excel ; PowerPoint ; SharePoint Si vous pensez que certains sujets manquent dans la FAQ, aidez nous ! Des images |
|
|
|
|
14/11/2008, 17h03
|
#5 (permalink) |
|
Candidat au titre de Membre du Club
Date d'inscription: mars 2007
Messages: 23
|
Dans ma sélection j'ai une plage de cellule enfin une plage de cellule repérée par un nom dans Excel.
Le morceau de code que tu m'a donné n'as l'air d'avoir aucune influence sur les tableaux. |
|
|
|
|
14/11/2008, 17h15
|
#6 (permalink) |
|
Date d'inscription: février 2006
Localisation: Morlanwelz (Carnières)
Âge: 44
Messages: 10 459
|
Si, il a une influence sur le premier tableau de ton document, j'ai regardé le code que tu as mis, le tableau n'est pas dans la sélection et c'est pour cette raison que rien ne se passe.
Est-ce une modification de l'alignement de tous les tableaux du document, ou simplement un seul tableau ? Si c'est pour tous les tableaux, on peut faire une boucle.
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ? Ne posez pas de question par MP, c'est inutile. Les rubriques Office recrutent. Ma page d'accueil Consultez nos FAQ !! Word ; Access ; Outlook ; Excel ; PowerPoint ; SharePoint Si vous pensez que certains sujets manquent dans la FAQ, aidez nous ! Des images |
|
|
|
|
14/11/2008, 21h03
|
#8 (permalink) |
|
Date d'inscription: février 2006
Localisation: Morlanwelz (Carnières)
Âge: 44
Messages: 10 459
|
Si c'est pour tous les tableaux, tu peux lancer une boucle à la fin de tes imports qui va modifier le style des tableaux.
Code :
Dim oTbl as Table For Each oTbl in ActiveDocument.Tables oTbl.AutoFitBehavior wdAutoFitWindow Next oTbl
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ? Ne posez pas de question par MP, c'est inutile. Les rubriques Office recrutent. Ma page d'accueil Consultez nos FAQ !! Word ; Access ; Outlook ; Excel ; PowerPoint ; SharePoint Si vous pensez que certains sujets manquent dans la FAQ, aidez nous ! Des images |
|
|
|
|
|
 |
||
Redimension automatique de tableaux
|
||
| Outils de la discussion | |
|
|
