Bonjour à tous,
Voilà j'ai un petit problème concernant l'import de données venant d'autres fichiers... je dois faire un programme qui permet de choisir où si situe les données que l'on voudra importer. Celle-ci seront importés dans un nouvel onglet.
Set wbdest = ActiveWorkbook
'fichier = Dir(" C:\Users\samsung\Documents\Import\*.xls ")
'Do While fichier <> " "
'Set wbsource = Workbooks.Open(fichier)
'Set wksNewSheet = wbsource.Sheets("sheet1")
'wksNewSheet.Activate
'wksNewSheet.Select
'Range(Cells(2, 1), Cells(3, 3)).Select
'Selection.Copy
'wbdest.Activate
'i = ActiveSheet.UsedRange.Rows.Count
'Cells(i + 1, 1).Select
'ActiveSheet.Paste
'wbsource.Close
'fichier = Dir
'Loop
'wbdest.Activate
J'ai essayé ce code sans succès.
Merci d'avance & bonne journée