J'ai dans ma feuil1 dans la ligne 2 diverses cellules remplies,
exemple :
B2 : titi
D2 : mimi
E2 : riri
H2 : sisi
ce ne sont pas toujours les meme cellules de remplies ni le meme nombre,
mais c'est tjrs sur la ligne 2
Je souhaite copier les valeurs de chaque cellule remplie de cette ligne 2 de
la Feuil1 dans la col C de la feuil2 les unes en dessous des autres en
passant tjrs une ligne et en commencant par C2.
Je devrais donc avoir en Feuil2 :
C2 : titi
C4 : mimi
C6 : riri
C8 : sisi
oui, il faut créer l'objet word et l'objet pointant vers ton fichier
Dim WordApp As Object Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:2011toto.docx") WordApp.Visible = True WordDoc.Bookmarks("MonBookmarks").Select
-- isabelle
Manu
Merci Isabelle,
Je n'arrive pas à mettre cette procedure en place,
J'ai mis cela, mais ca bug tjrs
Sub word() Dim WordApp As Object Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:2011toto.docx") WordApp.Visible = True WordDoc.Bookmarks("MonBookmarks").Select ActiveDocument.Bookmarks("MonBookmarks").Select For Each c In MyRange pos1 = Selection.Range.Start char = Selection.EndOf(Unit:=wdWord, Extend:=wdExtend) ActiveDocument.Range(Start:=pos1, End:=pos1 + char) = c Selection.MoveDown Unit:=wdLine, Count:=1 Next
End Sub
Mais ne t'en fais pas, je crois que je vais mettre en place mon doc word dans excel, ce sera plus simple.
Merci encore
Manu
"isabelle" a écrit dans le message de news: j0eh1m$ctf$
oui, il faut créer l'objet word et l'objet pointant vers ton fichier
Dim WordApp As Object Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:2011toto.docx") WordApp.Visible = True WordDoc.Bookmarks("MonBookmarks").Select
-- isabelle
Merci Isabelle,
Je n'arrive pas à mettre cette procedure en place,
J'ai mis cela, mais ca bug tjrs
Sub word()
Dim WordApp As Object
Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open("C:2011toto.docx")
WordApp.Visible = True
WordDoc.Bookmarks("MonBookmarks").Select
ActiveDocument.Bookmarks("MonBookmarks").Select
For Each c In MyRange
pos1 = Selection.Range.Start
char = Selection.EndOf(Unit:=wdWord, Extend:=wdExtend)
ActiveDocument.Range(Start:=pos1, End:=pos1 + char) = c
Selection.MoveDown Unit:=wdLine, Count:=1
Next
End Sub
Mais ne t'en fais pas, je crois que je vais mettre en place mon doc word
dans excel, ce sera plus simple.
Merci encore
Manu
"isabelle" <i@v.org> a écrit dans le message de news:
j0eh1m$ctf$1@speranza.aioe.org...
oui, il faut créer l'objet word et l'objet pointant vers ton fichier
Dim WordApp As Object
Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open("C:2011toto.docx")
WordApp.Visible = True
WordDoc.Bookmarks("MonBookmarks").Select
Je n'arrive pas à mettre cette procedure en place,
J'ai mis cela, mais ca bug tjrs
Sub word() Dim WordApp As Object Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:2011toto.docx") WordApp.Visible = True WordDoc.Bookmarks("MonBookmarks").Select ActiveDocument.Bookmarks("MonBookmarks").Select For Each c In MyRange pos1 = Selection.Range.Start char = Selection.EndOf(Unit:=wdWord, Extend:=wdExtend) ActiveDocument.Range(Start:=pos1, End:=pos1 + char) = c Selection.MoveDown Unit:=wdLine, Count:=1 Next
End Sub
Mais ne t'en fais pas, je crois que je vais mettre en place mon doc word dans excel, ce sera plus simple.
Merci encore
Manu
"isabelle" a écrit dans le message de news: j0eh1m$ctf$
oui, il faut créer l'objet word et l'objet pointant vers ton fichier
Dim WordApp As Object Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:2011toto.docx") WordApp.Visible = True WordDoc.Bookmarks("MonBookmarks").Select
-- isabelle
isabelle
quel est le bug ?
-- isabelle
Le 2011-07-24 12:50, Manu a écrit :
Merci Isabelle,
Je n'arrive pas à mettre cette procedure en place,
J'ai mis cela, mais ca bug tjrs
quel est le bug ?
--
isabelle
Le 2011-07-24 12:50, Manu a écrit :
Merci Isabelle,
Je n'arrive pas à mettre cette procedure en place,