VBA -> VB, modifier un fichier Word

Bonjour a tous.
sous vba excel il y a quelque temps j'avais fait un petit code pour modifier un document Word.
En fait je créé un fichier type de word je l'ouvret et je modifier les signets sous vba E.
Maintenant que je me suis lancé dans le VB6 j'aurais voulu savoir sil le code marché quand meme ou si il y avais quelque chose d'autre a faire, si ce n'est de rajouter la référence a Word.
voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Lettre = ThisWorkbook.Path & "\salut1.doc" Set ObjWord = CreateObject("Word.Application") ObjWord.Visible = True Set LeDocWord = ObjWord.Documents.Open(Lettre) nom = [A1] prenom = [B1] With LeDocWord .Bookmarks("nom").Range.Text = nom .Bookmarks("prenom").Range.Text = prenom End With   'LeDocWord.Save 'ObjWord.Quit   Set ObjWord = Nothing

---

Y a t'il des chose particulière a savoir?
merci d'avance

Il m'a l'air bon ce code, mais si tu ne veux pas t'embêter, j'ai carrément un contrôle que j'ai construit, les fonctions y sont programmées (tabulation, interligne, signets ...) et si jamais il en manquait on a accès à la variable qui correspond à ton ObjWord mais la mienne s'appelle Application. A toi de voir, perso je trouve ca mieux car ca allège le code du programme :lol:

Edit : j'ai oublié de dire que mon contrôle était sur mon site (voir mon profil)

Bonjour,

Il y a qu'en même un souci au niveau de la définition de la variable lettre.

Essaie ceci :

Code:

---

Lettre = App.Path & "\salut1.doc"

---

au lieu de :

Code:

---

Lettre = ThisWorkbook.Path & "\salut1.doc"

---

Une autre question : A quoi correspondent [A1] et [B1] ?


+

Théo

Exacte je n'avais pas vu. Travaillant sous Excel tu avait le tableur pour tes saisies, maintenant tu devra utiliser des textbox par exemple et remplacer [A1] ... par Text1.text par exemple.

merci bien a vous deux, je devrais m'en sortir je pense :)