Comment convertir un tableau word en excel

Natl Messages postés 1 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,merci de m'avoir accepte comme membre de ce groupe.j espere avoir des reponses a ma question qui de savoir comment convertir un tableau word en excel

1 réponse

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Dans cet exemple le classeur se trouve dans le même dossier que le document Word et se nomme essai. Si il y a un message d'alerte, continuer.
    Voici le code: 

    'cochez la référence Microsoft Excel, 11.0 Object Library
    Private Sub CommandButton1_Click()
     'selection du texte
     Selection.WholeStory
        Selection.Copy
    'coller dans Excel
     Dim objExcel As New Excel.Application
        Dim wb As Excel.Workbook
        Set wb = objExcel.Workbooks.Open(ThisDocument.Path & "\" & "essai" & ".xls") 'ouvre le classeur Excel
      With wb.Sheets(1)
           .Paste
            End With
          objExcel.Quit
    End Sub


    Il faut faire altF11 pour acceder au code, insérer une UserForm avec un button. Allez dans Outils Références et cochez la référence nommée au début du code
    0