Tom's Guide > Forum > Programmation > [VBA Excel]Créer un tableau sous Word ?

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

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

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
gryphus71   19-12-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 :

Code :
  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.


Message édité par gryphus71 le 21-12-2007 à 08:26:45
Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
gryphus71   21-12-2007 à 08:25:42
- 0 +

un petit up, s'il vous plait !?

Répondre à gryphus71
gryphus71   24-12-2007 à 11:18:10
- 0 +

up :whistle:


Message édité par gryphus71 le 24-12-2007 à 11:18:41
Répondre à gryphus71
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > [VBA Excel]Créer un tableau sous Word ?
Aller à :

Il y a 2398 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,154 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens