Hello le forum,
à partir d'un fichier Excel donné, j'aimerai récupérer des infos qui sont dans les cellules A1 des plusieurs fichiers CSV. Pour cela, je crée une fonction Worbook_Open() de cette manière :
mais ensuite de ça je suis bloqué...
Est-ce que quelqu'un peut me donner un coup de pouce ?
Merci d'avance,
Bap
à partir d'un fichier Excel donné, j'aimerai récupérer des infos qui sont dans les cellules A1 des plusieurs fichiers CSV. Pour cela, je crée une fonction Worbook_Open() de cette manière :
Code:
Sub Workbook_open()
Dim CsvFiles As String
Dim CsvPathFolder As String
Dim fso As Object
CsvPathFolder = GetDirectory("Select the folder, please")
Set fso = CreateObject("Scripting.FileSystemObject")
CsvFiles = Dir(CsvPathFolder & "\*.csv")
Do While CsvFiles <> ""
Application.Workbooks.Open
...
Loop
End Sub
mais ensuite de ça je suis bloqué...
Est-ce que quelqu'un peut me donner un coup de pouce ?
Merci d'avance,
Bap