none
VBA RRS feed

  • Question

  • Bonjour,

     

    Mon problème est le suivant:

    le PC sur lequel je travaille possède Windows XP datant de 2002 et Microsoft Office '97. Je tente actuellement de créer un petit programme en VBA qui devrait me permettre d'extraire un texte écrit dans une cellule d'une feuille d'un fichier excel, de le copier dans le presse-papier et de le coller dans un fichier Word existant. J'ai écris plusieurs pavés de code, mais rien ne marche!

    Est-ce que l'une ou l'un d'entre les membres de la communauté pourrait m'éclairer sur la procédure à suivre?

     

    Merci d'avance, phiphi

    mercredi 20 juin 2007 15:12

Toutes les réponses

  • Essai


    Code Snippet




    '
    '
    ' Penser à rajouter la référence à Microsoft Word
    ' Voir menu outils référence
    '
    Sub EcritDansWord()
     Dim st As String
     Dim oW As New Word.Application
     Dim oDoc As Word.Document
     oW.Visible = True

     st = ThisWorkbook.Sheets("Feuil1").Range("A1") 'Recupére texte à écrire
     Set oDoc = oW.Documents.Open("D:\Documents and Settings\toto.doc")
     oDoc.Range.InsertAfter st
     oDoc.Save
     oDoc.Close
     oW.Quit 'Quitte Word
     Set oDoc = Nothing
     Set oW = Nothing
     
    End Sub


    mardi 26 juin 2007 17:15