Mise à jour Signets Word via Excel

[julien91080]

Bonjour,

J’ai actuellement un tableau Excel d’information client avec en cellule A2 le nom du client, en B2 l’adresse de celui-ci, en C2 le contact…
Avec une première macro, en sélectionnant la cellule du nom et en cliquant sur un bouton, j’affiche un document Word qui est la « Fiche client ». Cette première macro impacte dans cette fiche client via des signets, les informations du client (exemple, on retrouve les informations de la cellule B2 dans le signet2).
J’aimerais avoir deuxième macro qui puisse mettre à jour les informations présentes dans les signets du document Word. Par là j’entends, écraser les informations existantes sans détruire le signet ou alors en le recréant.

Pensez-vous cela possible ?

Merci par avance

 

[julien91080]

Re : Mise à jour Signets Word via Excel

Mon besoin n'est pas réalisable?

 

[Staple1600]

Re : Mise à jour Signets Word via Excel

Bonjour à tous

julien91080
Où sont les fichiers exemples (excel et word) qui facilite grandement l'aide qu'on pourrait t'apporter?
Où est le code VBA?

Bien au chaud sur ton disque dur, certainement...

Tu sais ce qu'il te reste à faire désormais, non ?

NB: Penses à anonymiser et alléger tes fichiers avant de les joindre à la discussion.
(Tu peux même les mettre dans un *.zip et joindre uniquement celui-ci)

 

[Yaloo]

Re : Mise à jour Signets Word via Excel

Bonjour Julien, Staple,

Tu trouveras les fichiers ici le problème que l'on avait rencontré au moment de ce post, c'est que la mise à jour ne se fait qu'une seule fois, si l'on fait la mise à jour d'une fiche, ça va. S'il faut en faire une seconde, la macro ne fonctionne pas

A+

Martial

 

[Staple1600]

Re : Mise à jour Signets Word via Excel

Bonjour Yaloo

Merci pour le lien (même si maintenant je sais que je viens de tomber dans un double-post
(A la décharge de julien, ce point n'est plus spécifié dans la charte du forum )

La question désormais c'est de savoir si on réponds dans le post initial (qui lui possède des pj) ou si on continue ici?

 

[Yaloo]

Re : Mise à jour Signets Word via Excel

Re,

Puisque tu passes par là, peux-tu regarder pourquoi à la seconde mise à jour cela ne fonctionne pas. Avec mes simples compétences je n'ai pas réussi à trouver.

A+

 

[Staple1600]

Re : Mise à jour Signets Word via Excel

Re

Je vais voir cela.
J'ai édité mon précédent message.
Et suite à cette édition, je trouve plus logique de répondre dans le fil initial, non ?

 

[Yaloo]

Re : Mise à jour Signets Word via Excel

Re,

A l'origine le post initial n'était pas spécialement fait pour la mise à jour, il y avait 3 points à solutionner. Pour les 2 premiers, c'est OK, pour le dernier la solution n'est pas totale, il me semble que l'on peut considérer ce post comme une question à part entière.

A+

 

[julien91080]

Re : Mise à jour Signets Word via Excel

Bonjour à tous,

Merci à Yaloo de te repencher sur "mon cas" et merci à toi Staple1600.

Nous n'avions pas solutionné mon point 3 sur le poste précédent malgré l'énorme aide de Yaloo. Et comme je suis un noob sur le forum, je n'ai pas trouvé mieux que de faire un nouveau poste, je m'en excuse.
Effectivement, Yaloo à raison au sens où je cherche uniquement à mettre à jour des signets Word via Excel tout en ne supprimant pas les signets (en vue à les remettre à jour si besoin).

Voulez-vous que je mette les fichiers sur cette conversation?

Merci à vous.
Cordialement;

 

[Yaloo]

Re : Mise à jour Signets Word via Excel

Re,

Staple et moi, nous nous sommes remis sur ton premier post, puisque les fichiers étaient sur celui-ci.

A+

 

[job75]

Re : Mise à jour Signets Word via Excel

Bonjour à tous,

J'annule, ça ne va pas.

A+

 

[job75]

Re : Mise à jour Signets Word via Excel

Re,

En fait ça va bien je pense.

Téléchargez les fichiers Excel et Word joints et ouvrez-les.

Sur Excel, en cliquant sur le bouton, exécutez :

Sub ModifierWord()
'---cocher la référence Microsoft Word xx.x Object Library---
Dim Appli As Word.Application, WordDoc As Word.Document
Dim s As Object, pos As Long
On Error Resume Next
Set Appli = GetObject(, "Word.Application")
Set WordDoc = Appli.Documents("Doc1.doc")
If WordDoc Is Nothing Then MsgBox "'Doc1.doc' est fermé !": Exit Sub
Set s = WordDoc.Bookmarks(ActiveCell)
If s Is Nothing Then MsgBox "Signet inexistant !": Exit Sub
On Error GoTo 0
WordDoc.Activate
s.Select
Appli.Options.ReplaceSelection = True
Appli.Selection.TypeText ActiveCell(1, 2)
pos = Appli.Selection.Range.End
Set s = WordDoc.Range(pos - Len(ActiveCell(1, 2)), pos)
WordDoc.Bookmarks.Add ActiveCell, s
s.Select 'facultatif
End Sub

A+

 

[julien91080]

Re : Mise à jour Signets Word via Excel

Bonjour Job75,

Je vais tester ta solution dans l'après midi et je te ferais un retour.

Merci à toi.

Cordialement

 

[julien91080]

Re : Mise à jour Signets Word via Excel

Job75,

C'est parfait!

Merci pour ton aide.

Cordialement,

Julien