Re : Macro copie de données dans un autre format
Bonjour,
Une 1ère piste:
Sheets("Fichier source").Select
Columns("D
").Select
Selection.Copy
Sheets("Fichier resultat").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Fichier source").Select
Columns("A:C").Select
Selection.Copy
Sheets("Fichier resultat").Select
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-4],[Chemin\Nom du fichier.xls]Nom de l'onglet du fichier!Plage où se trouve les données dans cet onglet,N de la colonne catégorie par rapport à la colonne catégorie,FALSE)),"""",VLOOKUP(RC[-4],[6411101.xls]Feuil1!R2C1:R20C4,3,FALSE))"
Range("G2").Select
Selection.Copy
Range("G3:G aussi loin que tu veux").Select
ActiveSheets.Paste
A toi de préciser les noms manquants...
Bonne journée...