Listbox transferer dans word
Fermé
ocejade17
Messages postés
12
Date d'inscription
samedi 8 novembre 2008
Statut
Membre
Dernière intervention
25 février 2009
-
18 déc. 2008 à 18:44
ocejade17 Messages postés 12 Date d'inscription samedi 8 novembre 2008 Statut Membre Dernière intervention 25 février 2009 - 19 déc. 2008 à 18:16
ocejade17 Messages postés 12 Date d'inscription samedi 8 novembre 2008 Statut Membre Dernière intervention 25 février 2009 - 19 déc. 2008 à 18:16
Bonjour,a tous
je souhaite transféré le contenue de ma listbox vers un document word a un emplacement précis grasse a un signer
je pensais a ça mais rien ne se passe a par une erreur 424
MonWd.ActiveDocument.Bookmarks("list").Select
MonWd.Selection.InsertAfter list1.Text
quelqu'un un de sympa pourrez me donnais la réponse a ce problème
merci pour vos réponse
je souhaite transféré le contenue de ma listbox vers un document word a un emplacement précis grasse a un signer
je pensais a ça mais rien ne se passe a par une erreur 424
MonWd.ActiveDocument.Bookmarks("list").Select
MonWd.Selection.InsertAfter list1.Text
quelqu'un un de sympa pourrez me donnais la réponse a ce problème
merci pour vos réponse
A voir également:
- Listbox transferer dans word
- Supprimer une page dans word - Guide
- Espace insécable word - Guide
- Tabulation word - Guide
- Tableau word - Guide
- Organigramme word - Guide
1 réponse
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
19 déc. 2008 à 12:20
19 déc. 2008 à 12:20
Bonjour,
Tu veux transférer une ListBox, mais d'où vient-elle ? et de quel appli ?
A+
Tu veux transférer une ListBox, mais d'où vient-elle ? et de quel appli ?
A+
19 déc. 2008 à 18:16
donc je veux transferer le contenue de ma listbox qui se trouve sur ma form 1 dans word via un bouton donc je te mais mon code
Private Sub Command1_Click()
Set MonWd = CreateObject("Word.Application")
MonWd.Visible = True
MonWd.Documents.Open App.Path & "\apercu.doc"
MonWd.ActiveDocument.Bookmarks("nom").Select
MonWd.Selection.InsertAfter Text1.Text
MonWd.ActiveDocument.Bookmarks("moi").Select
MonWd.Selection.InsertAfter Combo1.Text
MonWd.ActiveDocument.Bookmarks("relever").Select
MonWd.Selection.InsertAfter LaListe.Text
'Impression du courrier
'MonWd.ActiveDocument.PrintOut
MonWd.ActiveDocument.GoTo
end sub
merci pour t on dévouement au autres et a bientot