Se connecter / S'enregistrer
Votre question

[VBA Excel]Créer un tableau sous Word ?

Tags :
  • Microsoft Excel
  • Programmation
Dernière réponse : dans Programmation
19 Décembre 2007 15:52:09

:hello:  Salut :hello: 

Bon, j'ai généré automatiquement une macro Word pour créer un tableau 1 ligne, 1 colonne et vide, puis je l'ai nettoyée de toutes les choses inutiles et voilà ce que j'ai placé dans mon code vba excel et qui me pose souci :

  1. Word.Application.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
  2. With Word.Application.Selection.Tables(1)
  3. .Columns.PreferredWidth = CentimetersToPoints(10)
  4. If .Style <> "Grille du tableau" Then
  5. .Style = "Grille du tableau"
  6. End If
  7. .ApplyStyleHeadingRows = True
  8. .ApplyStyleLastRow = True
  9. .ApplyStyleFirstColumn = True
  10. .ApplyStyleLastColumn = True
  11. End With
  12. Word.Application.Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
  13. Word.Application.Selection.Range.Cells(1).VerticalAlignment = wdCellAlignVerticalCenter
  14. Word.Application.Selection.TypeText Text:="Test :"
  15. Word.Application.Selection.HomeKey Extend:=wdExtend
  16. Word.Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  17. With Word.Application.Selection.Font
  18. .Size = 14
  19. .Bold = True
  20. End With


J'obtiens un message d'erreur :
Microsoft Visual Basic
Erreur d'exécution '450':
Nombre d'arguments incorrext ou affectation de pripriété incorrecte

Le débogage m'indique une erreur dans la première ligne...
J'ai testé en mettant la macro pure et dur (=sans aucune retouche) dans mon excel en prenant soin d'y ajouter simplement un "Word.Application." devant les fonctions mais j'ai le même message d'erreur, situé au même endroit dans le code ...

J'ai bien ajouté la librairie Word dans excel. Je ne comprend vraiment pas pourquoi ca ne fonctionne pas :-(

Merci d'avance de votre aide.

Autres pages sur : vba excel creer tableau word

21 Décembre 2007 08:25:42

un petit up, s'il vous plait !?
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS