Discussion :

[morgan47]

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 :

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

[avigeilpro]

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

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

[Theocourant]

Bonjour,

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

Essaie ceci :

Code :

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

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

au lieu de :

Code :

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

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

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


+

Théo

[avigeilpro]

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.

[morgan47]

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