Word vba - word vers excel [resolu]

[Keran]

Bonjour ,
Voila je me casse la tete a trouver un moyen depuis word de copier un signet du document word , de le coller dans une celulle precisse (h1) d'un document excel puis de copier la case (i8) pour le collet dans un signet word.

je ne sais pas si c'est claire.
j'ai fait cela

Sub test()
On Error Resume Next
   Dim MonApplication As Object
   Dim MonFichier As String
   Set MonApplication = CreateObject("Shell.Application")
 
   MonFichier = "\M.xlsx"
   Documents("evry.docm").Activate
    ActiveDocument.Tables(1).Rows(2).Cells(4).Select
    Selection.range.Case = wdTitleSentence
    ActiveDocument.Tables(1).Rows(2).Cells(4).Select
    Selection.Copy
 
   MonApplication.Open (MonFichier)
    ActiveDocument.sheet(1).range("H1").Select
    Selection.Paste
    ActiveDocument.sheet(1).range("I8").Select
    Selection.Copy
 
    Documents("evry.docm").Activate
    Selection.GoTo What:=wdGoToBookmark, Name:="ville2"
    Selection.PasteAndFormat (wdFormatPlainText)
 
   Set MonApplication = Nothing
End Sub

merci d'avance

 

[Keran]

ce que je vois c'est qu'il arrive bien a remplir la celulle (h1) avec le bookmark 'ville2' mais il n'arrive pas inserer (i8) dans le bookmark ville3

 

[Keran]

C'est l'adaptation de Keran qui produit cela.

ce que je comprend pas c'est que j'ai une page vierge avec uniquement les 2 signet ville2 et ville3 , et j'ai juste changer le chemin du fichier . desoler de vous embeter

 

[Staple1600]

Re

=>Keran
Comme je l'ai déjà test Ok chez moi.
Donc reproduit simplement le test sur un document Word simple
en testant avec mon code VBA tel quel
NB: Les deux signets sont préexistants dans le document Word (donc insérés manuellement)

PS; Tu ne m'embêtes nullement.
Simplement si tu reproduis simplement mon test tel qu'il est décrit cela doit fonctionner.

 

[Keran]

re j'ai reussi merci desoler .... c'etait juste le signet qui ne voulais garder son nom bref merci !

 

[Staple1600]

Re

=>Keran
Donc au final, mon code faisait correctement ce qu'il devait faire
Au moins cela m'aurait permis d'écrire le mot billevesées un samedi après-midi (ce que je fais rarement) )

 

[Keran]

merci en tous cas !

 

[soan]

@Staple1600

sur ton post #15, tu as écris : « [billevesées soaniennes] »

mais non, ce ne sont pas des billevesées ! c'est juste ma prosodie !
alors quand toi tu fais des prosodies, c'est pas des billevesées,
mais si moi je fais des prosodies, c'est des billevesées ? merci !
(serait-ce un poids deux mesures ? je croyais que tu étais féru d'équité...)

---

maint'nant, si t'es jaloux que le demandeur a mis un Like
sur mon post #13, je peux comprendre...

comme toi aussi tu as eu un Like sur ton post #20,
t'as plus d'raison d'être jaloux !

---

t'as aussi écrit : « Au moins mon code t'aura permis d'incrémenter
ton compteur de post à peu de frais... »

ça y'est, dès qu't'es un peu vexé, faut qu'tu m'accuses de chercher
à augmenter mon compteur ! c'est vraiment pas sympa ! de plus,
j'te signale que si ça peut être amusant de l'faire au début pour
passer d'échelon en échelon, comme pour passer d'un niveau à
l'autre d'un jeu vidéo, à quoi bon chercher à le faire si on a déjà
atteint le dernier niveau « Barbatruc » ? ou serait-ce qu'il y a
un niveau caché que je ne connais pas ? (tout comme dans les jeux
vidéos) ; et à combien de posts est ce niveau caché ? 40 000 ?
50 000 ? 60 000 ?

---

tu oublies aussi que j'ai pas hésité à descendre de « Barbatruc »
à « Accro » quand j'ai supprimé plein de posts dans les quatre
conversations de jonathandupret ! puis je suis remonté ; alors
merci de ne plus m'accuser de chercher à augmenter mon
compteur de posts, à peu de frais ou non.

---

on dirait bien que tu as zappé mon post #14 ; je donnais une info
importante : c'est peut-être un marque-page et pas une page ?

---

tout ça est dit gentiment : je ne t'en veux pas.

soan

 

[Staple1600]

Re

[aparté]
Pour les soliloques, le MP est plus approprié.
Ajoute-moi à ta liste de contacts.
[/aparté]
J'ai simplement écrit que mon code fonctionnait.
Si tu l'avais testé, ton message eut été.
"Test OK chez moi aussi avec Excel 2007 et Word 2007"

Bref, le principal étant que Keran ait réussi à faire fonctionner mon code.