' Comptage des fichiers en C5
nbreFICHIERS = Sheets("Fichiers à Cloner").[B510].End(xlUp).Row - 9
If nbreFICHIERS < 1 Then nbreFICHIERS = 0
[C5] = nbreFICHIERS
' Ouverture boite de dialogue
ChDir Sheets("Fichiers à Cloner").[C3].Value
CHEMINetFICHIER = Application.GetOpenFilename
test:
' Inscription du nom + chemin du fichier sélectionné
If CHEMINetFICHIER <> False Then
' Extraction du chemin
CHEMINetFICHIERinvers = StrReverse(CHEMINetFICHIER)
POS1 = InStr(CHEMINetFICHIERinvers, "\") ' Position du \ en partant de la fin
CHEMINseul = StrReverse(Mid(CHEMINetFICHIERinvers, POS1))
' Extraction du nom du fichier
nomFICHIER = Right(CHEMINetFICHIER, POS1 - 1)
[B10].Offset(nbreFICHIERS, 0) = nomFICHIER
[C10].Offset(nbreFICHIERS, 0) = CHEMINseul
[E10].Offset(nbreFICHIERS, 0) = CHEMINetFICHIER
[F10].Offset(nbreFICHIERS, 0) = POS1
End If