comment selectioner plusieurs fichiers en meme temps vba

[lord of Schwarzi Code]

Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = True
Application.FileDialog(msoFileDialogFilePicker).Show


Dim Path_File_Gestion As String
Path_File_Gestion = Application.GetOpenFilename("Provisions mensuelles Gaz Italie V4,*.xlsx")

Dim wbGest As Workbook
Dim tmp As String
Dim boolopen As Boolean


If IsWorkbookOpen(Path_File_Gestion) = False Then
Set wbGest = Workbooks.Open(Path_File_Gestion, UpdateLinks:=False)

Else

tmp = GetWorkbookOpen(Path_File_Gestion)
Set wbGest = Workbooks(tmp)
boolopen = True
End If

 

[lord of Schwarzi Code]

je n'arrive pas a prendre en compte les fichiers selectionés

 

[zeb]

Plop,

moderator dixit : "merci d'utiliser la balise

 pour présenter du code."