VBA -> VB modifier un fichier Word [Résolu]

lolpop 211 Messages postés mercredi 4 août 2004Date d'inscription 18 octobre 2010 Dernière intervention - 4 juil. 2006 à 19:50 - Dernière réponse : mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention
- 5 juil. 2006 à 20:29
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:


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

<hr />Y a t'il des chose particulière a savoir?
merci d'avance
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 4 juil. 2006 à 23:07
3
Merci
Salut,

je t'avoue que je comprends pas certaines choses :

1/ tu parles de Word et tu mets "Lettre = ThisWorkbook.Path & "\salut1.doc""
c'est plutôt Lettre = ThisDocument.Path & "\salut1.doc"

2/ dans "nom = [A1]", c'est quoi pour toi [A1] ?
________________________________________

Oui, pour répondre à ta question, il suffit de référencer mais le code est le même que dans Word, pour avoir les propriétés et méthodes qui s'affichent, fais référence à MS Word Library


@++

--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Merci mortalino 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de mortalino
Meilleure réponse
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 5 juil. 2006 à 08:52
3
Merci
>647037 mortalino: Tu n'as pas bien lu ce qu a mis =317991 lolpop. le code exemple est un code qui FONCTIONNAIT sous EXCEL. donc pas de souci de comprehension (1 et 2)

Ensuite lolpop je pense que le plus simple est encore d'essayer avant de demander si cela fonctionne en VB6.

Dejà il te faudra peu etre changer L'affectation de Lettre, Nom et Prenom (qui dépendait de Excel)

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de jrivet
Meilleure réponse
tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 5 juil. 2006 à 11:25
3
Merci
le code parait à peu prés similaire à celui que tu aura sous VB. J'ai moi même fait la même chose avec les signets et il me semble qu'il y a plusieurs questions dans ce foruml su le sujet qui pourront t'aider, au cas ou le code serait un peu différent
(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>

Merci tof008 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de tof008
lolpop 211 Messages postés mercredi 4 août 2004Date d'inscription 18 octobre 2010 Dernière intervention - 5 juil. 2006 à 12:48
0
Merci
merci beaucoup a vous 3, je n'étais pas chez moi hier soir pour tester le code.
je testerai dans l'aprés midi.
encore merci
Commenter la réponse de lolpop
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 5 juil. 2006 à 20:29
0
Merci
Arf, salut Julien !

C'est clair, ça saute aux yeux mais hier j'étais pas réveillé...
(je me comprends)

Ca ira mieux ce soir ! lol

Désolé lolpop .

@++

--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !
Commenter la réponse de mortalino

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.