aaliyan
Messages postés104Date d'inscriptionsamedi 12 mars 2005StatutMembreDernière intervention30 avril 2007
-
12 avril 2007 à 17:52
aaliyan
Messages postés104Date d'inscriptionsamedi 12 mars 2005StatutMembreDernière intervention30 avril 2007
-
12 avril 2007 à 22:00
Je veux copier une ligne sous word à partir d'un signet jusqu'à la fin de la ligne. Voilà le début de mon code, je bloque sur la copie.
'On ouvre le fichier
Chemin = "C:" & Fichier & ".doc"
Set Wd = CreateObject("Word.Application")
With Wd
.Visible = True
.Documents.Open Chemin
.Activate
End With
Set MyDoc = Wd.ActiveDocument
'On pose le signet
If MyDoc.Bookmarks.Exists("Nom") = True Then
MyDoc.Bookmarks("Nom").Select
End If