Discussion :

[estampille]

bon c'est toujours et encore moi...
oui je sais..
bref je recapitule au cas ou, j'ai un fichier excel avec le nom d'etablissements, je dois faire une lettre a certain en recuperant des donnees.
le doc se cré pas de pb.
pour la mise en page j'ai reussi a:
-aligner a gauche, droite, centrer.. (pas sans difficulté) :o
-colorier le texte
..
MAIS:
marche pas de mettre en gras, italique...
changer la taille du texte
inserer une image (la mm pour tous les docs)
.. pis je crois pas avoir besoin d'autre chose

j'ai testé ca:
italique:

Code :

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

MonWorld.Selection.Font.Italic = wdToggle

ou =True
ou =0
rien marche....

size:

Code :

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

MonWorld.Selection.Font.Size=22

marche po

image:

Code :

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

MonWorld.Selection.InlineShapes.AddPicture Filename:="C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\Nénuphars.jpg"

bref si vous avez des idées..

le debut de mon code est le suivant:

Code :

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

1
2
3
4
5
'creation de l'objet word
        Dim MonWord As Object
        Set MonWord = CreateObject("Word.Application")
    'ajout dans l'objet
        MonWord.Documents.Add

voila,
suivant les sites je trouve plein de reponses differentes, mais ca marche pas ..
y a des sites qui proposent de mettre des balises du style texte pour mettre en gras??? mais ca donne rien du tout et ca ressemble pas du tout au reste du code en plus?? ca vient d'ou ca??

siouplé!.....
bon de toute facon vous zavez juska demain avant que je releve les copies.. la journée est finie..
merci et bonne soirée!

[ouskel'n'or]

La question a été posée hier, tu peu chercher, elle n'est pas loin
C'est là que ça ne va pas

'creation de l'objet word
Dim MonWord As Object
Set MonWord = CreateObject("Word.Application")
'ajout dans l'objet
MonWord.Documents.Add

Tu dois également déclarer l'objet document

Code :

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

1
2
3
4
Dim appWord as objet
Dim DocWord as objet
Set appWord = CreateObject("Word.Application") 
Set DocWord = appWord.Documents.Add

Vérifie, je n'ai pas VB6 mais je crois me souvenir

Si ça ne fonctionne pas, supprime les deux déclarations
Dans un cas il les faut (VB ou VBA)
Dans l'autre il les faut pas (VBA ou VB)...

C'est toi qui va me dire...

A+

Edit
Je crois que les déclaration sont inutiles (pas de dim... objet)

[AlainTech]

Je suppose qu'il y a faute de frappe mais on ne sait jamais:

MonWorld.Selection.Font.Italic = wdToggle

[estampille]

bon voila comment on prend un sacré coup dans la gueule....
putain depuis hier je bloque parce que je trouve pas l'erreur, que sur tous les sites on me dit de tester des trucs qui marchent jamais chez moi et ca a cause d'une maudite erreure de frappe....
monWorld a la place de MonWord....
si c'est pas navrant...
bref au moins merci AlainTech pour cette remarque pertinente...
sois je vais me pendre tout de suite sois je change de metier...
donc je sais pas a quand

[AlainTech]

Allez, reste avec nous, on va te soigner

[AlainTech]

Ah oui, encore une question...

As-tu mis Option Explicit dans la partie déclaration?

Ca permet d'éviter les fautes de frappes.

[estampille]

non non j'ai aps mis option explicit ...
faut le mettre ou ?
la partie declaration je vois pas trop a quoi ca correspond...
pit etre ca m'evitera a l'avenir de me prendre trop la tete sur des erreurs stupides..
enfin bon tout marche c'est deja ca..

[AlainTech]

La partie Declarations est la portion de code AVANT toutes les fonctions et les routines.

Dans l'éditeur VBA, il y a même une option pour le forcer dans tous les projets.

Je viens d'aller voir dans VB6 et je l'ai trouvée aussi.
Pour la version anglaise:
Dans Tools - Options
Onglet Editor
Case à cocher: Require variable declaration