Sujet Précédent Sujet Suivant

Comment convertir un tableau word en excel

Fermé
Natl Messages postés 1 Date d'inscription jeudi 3 avril 2014 Statut Membre Dernière intervention 3 avril 2014 - 3 avril 2014 à 10:51
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 3 avril 2014 à 11:03
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 avril 2014 à 11:03
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