Discussion :

[djoumusic]

bonjour,
je galere sur les chaines de caracteres,
je recupere dans une cellule l' adresse d'un fichier.
type c:\*******.xls
j'ai besoin de recuperer de l'infos depuis cette cellule
1-le nom du fichier.xls, et ça j'y arrive,
et ensuite l'adresse sans le nom du fichier (l'adresse du repertoire )
et là je n'y arrive pas

voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MAJVIAFAVORIS()
 Dim nomFichier As String
 Dim chaine As String
 Dim chaine2 As String
 
 
 nomFichier = ThisWorkbook.Worksheets("ACCUEIL").Range("C22").Value ' ici l'adresse complete du fichier
 chaine = nomFichier
 chaine = Right(chaine, InStr(1, StrReverse(chaine), "\") - 1) 'ici uniquement le nom du fichier xls avec son extension .xls
 chaine2 = Left(nomFichier, InStr(1, StrReverse(nomFichier), "\") - 1) ' ici je tente de recuperer uniquement l'adresse sans fichier.xls, et j'y arrive pas
 ThisWorkbook.Worksheets("ACCUEIL").Range("C16").Value = chaine
 ThisWorkbook.Worksheets("ACCUEIL").Range("C20").Value = chaine2
 
 
 
End Sub

[Invité]

Bonjour

Tu peux utiliser la méthode FSO pour cela : http://warin.developpez.com/access/fichiers/#LI-E-3

Philippe

[aalex_38]

Bonjour à tous,

Un exemple en travaillant sur le chaine de caractere, la fonction INSTRREV permet de connaitre la position du dernier slash :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
chemin = ThisWorkbook.FullName
chemin = Mid(chemin, 1, InStrRev(chemin, "\", , vbTextCompare))
MsgBox chemin

[djoumusic]

merci