Bonsoir Minick, re CactusX, le Forum
Oui oui je suis toujours en train de chercher, c'est comme çà que j'ai appris le peu que je sais ;-)
Par Contre, ce n'est pas compliqué de retourner le nom "net" d'un fichier dans une String Path, car dans cette exemple précis, tu peux jouer avec : (NomClasseur = ActiveWorkbook.Name) mais ce n'est pas toujours le cas que tu aies besoin d'ouvrir le classeur... Un macro comme ceci le fait et est une solution simple aussi (ce que j'ai mis en ommentaire prèt à l'emploi dans le fichier ci-dessus) :
Sub ExtractionDansStringPath()
Dim NomFichierComplet As String, NomFichierSeul As String
NomFichierComplet = "C:\Mes Document\Mes Factures\Mes Factures Payées\Archive\Fichier de Thierry.xls"
Contenu = Split(NomFichierComplet, Chr(92))
X = UBound(Contenu)
NomFichierSeul = Contenu(X)
MsgBox "le nom du fichier est : " & NomFichierSeul & vbCrLf & _
"Le Nom Complet est : " & NomFichierComplet
Exit Sub
Non, là où, comme tu dis "tu t'aies trituré la tete" (lol c'est vrai), c'est pour compter combien de slash il y a dans la string "NomFichierComplet" aurait-tu (ou quelqu'un) la solution ? car là je rame !!
Sinon une petite chose en passant, car tu as l'air de ne pas trop aimer déclarer tes variables ;-)
quand tu fais ceci : Dim Ligne, NbrFeuil As Integer
Ligne est déclarée Variant tacitement...
De plus, Integer est un peu grand pour un nombre de feuille, à moins que CactusX dépasse 255... Quand à "Ligne" il n'y a 4,5 et 6...
Sinon j'espère que tu n'auras pas de mal de tête après ce resto Minick
Bonne nuit
@+Thierry