Word vba - word vers excel [resolu]

Keran

XLDnaute Junior
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
VB:
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
 

Staple1600

XLDnaute Barbatruc
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.
 

soan

XLDnaute Barbatruc
Inactif
@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... :rolleyes:

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... :rolleyes: »

ç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
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo