[VBA-A]Insérer du texte depuis Access

Version imprimable

10/03/2006, 13h57
soad029

[VBA-A]Insérer du texte depuis Access

Bonjour tout le monde !!

Voilà, je dois réaliser une application sous Access devant
- Ouvrir de nombreux document Excel
- Sélectionner les cellules, les graphiques désirés et les collé dans un document Word.

Bon, pour l'instant, j'arrive à ouvrir les fichiers Excel et les fichiers Word et à sélectionner ce que je veux dans les fichiers excel.

Par contre je n'arrive même pas à insérer la moindre ligne dans le fichier word que j'ouvre.

J'ai chercher dans le faq VB et VBA et ça n'est pas mentionner.

Quelqu'un saurait t'il comment insérer dans le fichier word un texte avec une taille, un alignement, et une couleur prédéfini.

J'imagine qu'il faut utilser un
with....

End with...

mais un with quoi ?

D'avance un grand merci, et bon week end !!!
10/03/2006, 14h03
Petogaz

salut,

as-tu fais une recherche avancée dans le Forum Access ?
pour insérer du texte interesses-toi à la méthode

Code:

.Range.InsertAfter

de ton objet document.

exemple :

Code:

appliword.document_word.Range.InsertAfter ("coucou !!!")
10/03/2006, 14h56
soad029
Salut Petogaz et merci de ta réponse !

Je ne pensais pas que j'aurais pu trouver un morceau de réponse dans la catégorie Access, mais en effet, j'ai effectivement trouvé ce que tu as indiqué, par contre je sais toujours pas comment mettre en forme ce texte.

J'ai vu sur un autre topic que l'on pouvait utiliser la méthode Selection, mais j'ai le message "variable non définie"
Code:

1 2 3 Selection.TypeText Text:="Mon texte" Selection.Font.Size = 44 Selection.Font.Color = wdColorWhite

si tu lis tout le topic tu comprendra pourquoi s'il est possible d'éviter l'utilisation de l'objet selection (d'ailleurs il ya des explications à ce sujet dans la FAQ VBA Excel).

un exemple qui fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
Dim application_word As Word.Application
Dim document_word As Word.Document
Set application_word = CreateObject("Word.application")
 
application_word.Visible = False
Set document_word = application_word.Documents.Add
 
document_word.Range.Font.Size = 21 '<-----utilisation de la taille de police 21
document_word.Range.Font.ColorIndex = wdRed '<---------mettre le texte en rouge
document_word.Range.InsertAfter ("coucou !!!" & vbCrLf & "je suis là !!!") '<------inséser le texte
 
document_word.SaveAs "c:/coco.doc" '<-----j'enregistre mon document word en lui donnant comme nom coco !
document_word.Close '<------je ferme le document
application_word.Quit '<----je quitte l'application
Set document_word = Nothing '<---je libère l'objet
Set application_word = Nothing '<----idem que la précédente
End Sub

ps : sans oublié la référence Microsoft word 10.0 library

10/03/2006, 15h27
soad029

Oui... en effet, ça marche très bien !! Merci beacoup !!

Au sujet de la méthode 'Sélection' non reconnue j'ai fait word.selection.font.size = 44 et ça marche aussi.
10/03/2006, 15h32
Petogaz

Citation:

Envoyé par soad029

Au sujet de la méthode 'Sélection' non reconnue j'ai fait word.selection.font.size = 44 et ça marche aussi

c'est pas que ça marche pas mais c'est à éviter si possible car ça peut très vite être source de pb. :wink: