oui , va pour l'aspect didactique de la chose , peut être aurais-tu pu mettre le code directement sur le site :
'Renvoie le nom de fichier et cherche le 1er point à partir de la droite
Pnt = InStrRev(nomFichier, ".")
'Retourne la chaîne en conservant le nom à gauche du 1er point
Fichier1$ = Left$(nomFichier, Pnt - 1)
'Affiche le nom de fichier sans extension
Text1.Text = Fichier1
Voilà ma source : http://forum.vbfrance.com/article.aspx?Val=8012
7/10 a cause que c deja sur le site...
Mais c'est mes débuts sur ce site.
N'oublions pas de déclarer la variable
Dim Fichier1 As String
'Renvoie le nom de fichier et cherche le 1er point à partir de la droite
Pnt = InStrRev(nomFichier, ".")
'Retourne la chaîne en conservant le nom à gauche du 1er point
Fichier1$ = Left$(nomFichier, Pnt - 1)
'Affiche le nom de fichier sans extension
Text1.Text = Fichier1
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.