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
24 mai 2003 à 07:48
Voilà ma source : http://forum.vbfrance.com/article.aspx?Val=8012
23 mai 2003 à 21:46
7/10 a cause que c deja sur le site...
23 mai 2003 à 17:02
Mais c'est mes débuts sur ce site.
N'oublions pas de déclarer la variable
Dim Fichier1 As String
23 mai 2003 à 14:00
'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.