Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir Toto, Peux être trouveras tu de quoi t'inspirer icic :
http://perso.wanadoo.fr/frederic.sigonneau/
avec par exemple ceci comme point de départ ?
Sub CopieDansWord() Dim Wrd As Object
Range("A1:B10").Copy 'la plage à copier On Error Resume Next Set Wrd = GetObject(Class:="Word.Application") On Error GoTo 0 If Wrd Is Nothing Then Set Wrd = CreateObject("Word.Application") Wrd.Visible = True End If Wrd.Documents.Open Filename:="d:test01.doc" 'ou autre SendKeys "^{END}" Wrd.Selection.Paste Wrd.Selection.TypeParagraph Wrd.ActiveDocument.Save Wrd.Quit Application.CutCopyMode = False
End Sub
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Toto" a écrit dans le message de news:
Bonjour
Je voudrais modifier la valeur d'une checkbox dans Word a partir d'excel
Comment faire
Bonsoir Toto,
Peux être trouveras tu de quoi t'inspirer icic :
http://perso.wanadoo.fr/frederic.sigonneau/
avec par exemple ceci comme point de départ ?
Sub CopieDansWord()
Dim Wrd As Object
Range("A1:B10").Copy 'la plage à copier
On Error Resume Next
Set Wrd = GetObject(Class:="Word.Application")
On Error GoTo 0
If Wrd Is Nothing Then
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = True
End If
Wrd.Documents.Open Filename:="d:test01.doc" 'ou autre
SendKeys "^{END}"
Wrd.Selection.Paste
Wrd.Selection.TypeParagraph
Wrd.ActiveDocument.Save
Wrd.Quit
Application.CutCopyMode = False
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Toto" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:B0C53D3C-219D-4C7D-8722-C1F02FDA0035@microsoft.com...
Bonjour
Je voudrais modifier la valeur d'une checkbox dans Word a partir d'excel
Bonsoir Toto, Peux être trouveras tu de quoi t'inspirer icic :
http://perso.wanadoo.fr/frederic.sigonneau/
avec par exemple ceci comme point de départ ?
Sub CopieDansWord() Dim Wrd As Object
Range("A1:B10").Copy 'la plage à copier On Error Resume Next Set Wrd = GetObject(Class:="Word.Application") On Error GoTo 0 If Wrd Is Nothing Then Set Wrd = CreateObject("Word.Application") Wrd.Visible = True End If Wrd.Documents.Open Filename:="d:test01.doc" 'ou autre SendKeys "^{END}" Wrd.Selection.Paste Wrd.Selection.TypeParagraph Wrd.ActiveDocument.Save Wrd.Quit Application.CutCopyMode = False
End Sub
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Toto" a écrit dans le message de news:
Bonjour
Je voudrais modifier la valeur d'une checkbox dans Word a partir d'excel
