Comment convertir un tableau word en excel

Natl Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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