Bonjour,
Voici ma macro (Elle m'ouvre n'importe quel classeur ayant une extension .csv en .xls et me copie son contenu.
Mon problème est que je n'arrive pas à trouver de code pour englober n'importe quel non de fichier sur la ligne "Windows".
Sub Convertir_csv_xls()
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
'Converti *.csv en *.xls
Range("A1:ZZ10000").Select
Selection.Copy
'Copie toutes les cellules de A1 à ZZ10000
Windows("ILIKO_coulissant_Cosy_melamine.csv.xls").Activate
Range("A1").Select
ActiveSheet.Paste
'Colle en A1
Range("A1").Select
'Le curseur revient en A1
End Sub
Je cherche la meme chose que ce code ci-après " Windows("ILIKO_coulissant_Cosy_melamine.csv.xls").Activate " mais qui s'adapterait à n'importe quel nom de fichier.
Merci d'avance
Voici ma macro (Elle m'ouvre n'importe quel classeur ayant une extension .csv en .xls et me copie son contenu.
Mon problème est que je n'arrive pas à trouver de code pour englober n'importe quel non de fichier sur la ligne "Windows".
Sub Convertir_csv_xls()
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
'Converti *.csv en *.xls
Range("A1:ZZ10000").Select
Selection.Copy
'Copie toutes les cellules de A1 à ZZ10000
Windows("ILIKO_coulissant_Cosy_melamine.csv.xls").Activate
Range("A1").Select
ActiveSheet.Paste
'Colle en A1
Range("A1").Select
'Le curseur revient en A1
End Sub
Je cherche la meme chose que ce code ci-après " Windows("ILIKO_coulissant_Cosy_melamine.csv.xls").Activate " mais qui s'adapterait à n'importe quel nom de fichier.
Merci d'avance