Permutation de colonne

[AL]

Bonjour le forum

J' ai un fichier csv que je recupere sous le format xls, et ensuite j' insere ces données sur une autre feuille dans un autre classeur, mais à chaque fois je suis obligé de bouger mes colonnes manuellmenet.
N' y a t-il pas une macro qui puisse déplacer les colonnes et faire l' exportation ou l' iimportation automatiquement sans ecraser les données
présentes.


AL

 

[Bernard]

Bonjour AL

Pour permettre ton opération d'importation, il faut d'abord faire la place à son inportation. Ci dessous une macro qui insère deux colonnes dans le classeur1 puis qui copie les deux colonnes de données dans le classeur 2 et qui les copie dans le classeur 1. Cette macro est placée dans le classeur 1.

Sub COPIECOLONNE()
'Insertion des colonnes vides nécessaires dans le premier classeur
Windows("Classeur1.xls").Activate
Columns("C").Insert Shift:=xlToRight
'Récupération des deux colonnes à insérer dans le second classeur
Windows("Classeur2.xls").Activate
Columns("F:G").Copy
'ICollage des colonnes dans le premier classeur
Windows("Classeur1.xls").Activate
Range("C1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Salut

Bernard

 

[Al]

Bonjour bernard

Je te remercie pour ta macro mais j( ai du mal explisuer mon pb. En fait ce
je veux déja bouger les colonnes de la feuille csv tranforme en xls afin que
les colonnes de cette feuille soient en phase avec le classeur Initial avant d' injecter les données.
J' ai une quinzaine de colonnes

AL