Discussion :

[progaide]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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 Sub

Je voudrais savoir 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

[alsimbad]

tu peux essayer apres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Paste

tu insere

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("a:a").Insert Shift:=xlToRight
    Columns("C:C").Cut Columns("A:A")

joyeux noël ainsi qu'au forum

[progaide]

salut Alsimbad merci pour votre réponse ça marche très bien maintenat merci c'est superrrr .
bonne fête pour vous aussi et pour tous le monde