Discussion :

[soad029]

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 !!!

[Petogaz]

salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range.InsertAfter

de ton objet document.

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

appliword.document_word.Range.InsertAfter ("coucou !!!")

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Petogaz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Petogaz]

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.