[COLOR=blue]Sub[/COLOR] ImportXLSFile()
[COLOR=blue]Dim[/COLOR] ceclasseur [COLOR=blue]As String[/COLOR]
[COLOR=blue]Dim[/COLOR] monrépertoire [COLOR=blue]As String[/COLOR]
[COLOR=blue]Dim[/COLOR] ii [COLOR=blue]As Integer[/COLOR]
monrépertoire = "nom du répertoire contenant les fichiers .txt à importer"
choisirRepertoire[COLOR=green] '????[/COLOR]
ceclasseur = ThisWorkbook.Name
[COLOR=blue]Set[/COLOR] fc = CreateObject("Scripting.FileSystemObject").GetFolder(chemin).Files[COLOR=green] ' Chemin n'est jamais déclaré ????[/COLOR]
[COLOR=blue]If[/COLOR] fc.Count > 0 [COLOR=blue]Then[/COLOR]
ii = 0[COLOR=green] '????[/COLOR]
[COLOR=blue]For Each[/COLOR] f1 [COLOR=blue]In[/COLOR] fc
[COLOR=blue]If[/COLOR] Right(f1.Name, 3) = "xls" [COLOR=blue]Or[/COLOR] Right(f1.Name, 3) = "XLS" [COLOR=blue]Then[/COLOR][COLOR=green] 'c'est un fichier texte (Non C'est un XLS)[/COLOR]
nomxls = f1.Name
ii = ActiveSheet.Range("C65536").End(xlUp).Row
Workbooks.Open Filename:=chemin & "\" & nomxls
[COLOR=blue]With[/COLOR] Sheets("ONGLET DE SAISI")
[COLOR=red][B] .Unprotect ("toto")[/B][/COLOR]
.Select
derligne = .Range("C65536").End(xlUp).Row
[COLOR=blue]With[/COLOR] Range("A1:A" & derligne)
.Insert Shift:=xlToRight
.FormulaR1C1 = f1.Name
[COLOR=blue]End With[/COLOR]
[COLOR=red][B].Protect ("toto")[/B][/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]If[/COLOR] derligne > 17 [COLOR=blue]Then[/COLOR]
Rows(17 & " : " & derligne).Copy
Workbooks(ceclasseur).ActiveSheet.Range("A" & ii + 1).PasteSpecial Paste:=xlPasteValues
Workbooks(ceclasseur).ActiveSheet.Range("A" & ii + 1).PasteSpecial Paste:=xlPasteFormats
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]Next[/COLOR]
[COLOR=blue]End If[/COLOR]
Range("A1").Select
[COLOR=blue]End Sub[/COLOR]