bonjour
J’ai un programme qui me permet le transfert d’un tableau de Word vers Excel par exemple
Tableau en Word :
NOM \ ID
Adnan \ 1
Anna \ 2
resultat de transfert
Tableau en Excel :
NOM \ ID
Adnan \ 1
Anna \ 2
le code :
Je voudrais savoir svp si il est possible d'inverser les colonnes de mon tableau c'est à dire la 1er colonne NOM et la 2eme le ID
pour avoir un tableau en excel comme ce exemple :
ID \ NOM
1 \ Adnane
2 \ Anna
merci d'avance pour vos repones
J’ai un programme qui me permet le transfert d’un tableau de Word vers Excel par exemple
Tableau en Word :
NOM \ ID
Adnan \ 1
Anna \ 2
resultat de transfert
Tableau en Excel :
NOM \ ID
Adnan \ 1
Anna \ 2
le code :
Code:
Sub copieTableauWordVersExcel()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As String
'le document Word est supposé fermé avant le lancement de la macro
Fichier = "C:\Documents and Settings\bureau\ projet \excel.doc" 'adapter le chemin
Set WordApp = CreateObject("Word.Application") 'creation session Word
WordApp.Visible = False 'pour que word reste masqué pendant l'opération
Set WordDoc = WordApp.Documents.Open(Fichier) 'ouverture du fichier Word
WordDoc.Tables(1).Range.Copy 'copie du tableau Word
'dans Word chaque tableau est indexé
'ici l'index est à 2 car le premier index correspond au cadre autour du titre du
'document Word
Range("A2").Select
ActiveSheet.Paste 'collage des données dans Excel
WordDoc.Close False 'ferme le document Word sans sauvegarde
WordApp.Quit 'ferme l'application Word
End SubJe voudrais savoir svp si il est possible d'inverser les colonnes de mon tableau c'est à dire la 1er colonne NOM et la 2eme le ID
pour avoir un tableau en excel comme ce exemple :
ID \ NOM
1 \ Adnane
2 \ Anna
merci d'avance pour vos repones
