OVH Cloud OVH Cloud

Creer un tableau word via access

2 réponses
Avatar
Cedric
Tout est dans le titre , j'ai teste mon code sous forme de macro dans word
et ca fonctionne mais sous access j'obtiens une erreur sur cette instruction
voici mon code
wdapp.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5,
NumColumns:=3
' replissage des en-têtes
Selection.TypeText Text:="N°article"
Selection.MoveRight Unit:=wdCell
si je retire wdapp et que je l'utilise dans word cela fonctionne mais pas
dans access si qqn a une idee . Merci d'avance.

2 réponses

Avatar
Gafish
Bonjour aussi,

Il faut que sous Access tu déclares une instance de Word.
Regarde ici :
http://officesystem.access.free.fr/vba/word.htm
Tu auras tous les détails.

Arnaud

"Cedric" a écrit dans le message news:
4211eebb$0$17417$
Tout est dans le titre , j'ai teste mon code sous forme de macro dans word
et ca fonctionne mais sous access j'obtiens une erreur sur cette
instruction

voici mon code
wdapp.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5,
NumColumns:=3
' replissage des en-têtes
Selection.TypeText Text:="N°article"
Selection.MoveRight Unit:=wdCell
si je retire wdapp et que je l'utilise dans word cela fonctionne mais pas
dans access si qqn a une idee . Merci d'avance.




Avatar
Jessy Sempere [MVP]
Bonjour

Selection est une propriété de l'objet Application Word (ou Excel)
Donc essais :

wdapp.ActiveDocument.Tables.Add Range:=wdapp.Selection.Range, NumRows:=5,
NumColumns:=3
' replissage des en-têtes
wdapp.Selection.TypeText Text:="N°article"
wdapp.Selection.MoveRight Unit:=wdCell

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Cedric" a écrit dans le message news:
4211eebb$0$17417$
Tout est dans le titre , j'ai teste mon code sous forme de macro dans word
et ca fonctionne mais sous access j'obtiens une erreur sur cette
instruction

voici mon code
wdapp.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5,
NumColumns:=3
' replissage des en-têtes
Selection.TypeText Text:="N°article"
Selection.MoveRight Unit:=wdCell
si je retire wdapp et que je l'utilise dans word cela fonctionne mais pas
dans access si qqn a une idee . Merci d'avance.