Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news:
84192bd7.0402040743.7470fb1@posting.google.com...
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" <mhubicheMS_nospam@club-internet.fr> a écrit dans le
message de news: OlWp#626DHA.1672@TK2MSFTNGP12.phx.gbl...
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news:
84192bd7.0402040743.7470fb1@posting.google.com...
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: eaz1$c76DHA.2576@TK2MSFTNGP11.phx.gbl...
..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" <mhubicheMS_nospam@club-internet.fr> a écrit dans le
message de news: OlWp#626DHA.1672@TK2MSFTNGP12.phx.gbl...
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news:
84192bd7.0402040743.7470fb1@posting.google.com...
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: eaz1$c76DHA.2576@TK2MSFTNGP11.phx.gbl...
..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" <mhubicheMS_nospam@club-internet.fr> a écrit dans le
message de news: OlWp#626DHA.1672@TK2MSFTNGP12.phx.gbl...
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news:
84192bd7.0402040743.7470fb1@posting.google.com...
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" wrote in message news:<u#...:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" <mh.webmaster@club-internet.fr> wrote in message news:<u#Xir276DHA.1672@TK2MSFTNGP12.phx.gbl>...
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: eaz1$c76DHA.2576@TK2MSFTNGP11.phx.gbl...
..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" <mhubicheMS_nospam@club-internet.fr> a écrit dans le
message de news: OlWp#626DHA.1672@TK2MSFTNGP12.phx.gbl...
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news:
84192bd7.0402040743.7470fb1@posting.google.com...
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" wrote in message news:<u#...:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
bonjour
ce type de message se produit si ta base est partagée et que vous étes plusieurs à faire la méme mise à jour, ou que table est
"ouverte" par 2 forms en méme temps,
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Fredonnon" a écrit dans le message de news:Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" wrote in message news:<u#...:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
bonjour
ce type de message se produit si ta base est partagée et que vous étes plusieurs à faire la méme mise à jour, ou que table est
"ouverte" par 2 forms en méme temps,
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news: 84192bd7.0402050511.3d22b455@posting.google.com...
Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" <mh.webmaster@club-internet.fr> wrote in message news:<u#Xir276DHA.1672@TK2MSFTNGP12.phx.gbl>...
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: eaz1$c76DHA.2576@TK2MSFTNGP11.phx.gbl...
..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" <mhubicheMS_nospam@club-internet.fr> a écrit dans le
message de news: OlWp#626DHA.1672@TK2MSFTNGP12.phx.gbl...
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news:
84192bd7.0402040743.7470fb1@posting.google.com...
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
bonjour
ce type de message se produit si ta base est partagée et que vous étes plusieurs à faire la méme mise à jour, ou que table est
"ouverte" par 2 forms en méme temps,
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Fredonnon" a écrit dans le message de news:Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" wrote in message news:<u#...:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
bonjour
ce type de message se produit si ta base est partagée et que vous étes plusieurs à faire la méme mise à jour, ou que table est
"ouverte" par 2 forms en méme temps,
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Fredonnon" a écrit dans le message de news:Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" wrote in message news:<u#...:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
bonjour
ce type de message se produit si ta base est partagée et que vous étes plusieurs à faire la méme mise à jour, ou que table est
"ouverte" par 2 forms en méme temps,
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news: 84192bd7.0402050511.3d22b455@posting.google.com...
Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" <mh.webmaster@club-internet.fr> wrote in message news:<u#Xir276DHA.1672@TK2MSFTNGP12.phx.gbl>...
:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: eaz1$c76DHA.2576@TK2MSFTNGP11.phx.gbl...
..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" <mhubicheMS_nospam@club-internet.fr> a écrit dans le
message de news: OlWp#626DHA.1672@TK2MSFTNGP12.phx.gbl...
il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" <fredonnon@yahoo.fr> a écrit dans le message de news:
84192bd7.0402040743.7470fb1@posting.google.com...
Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
bonjour
ce type de message se produit si ta base est partagée et que vous étes plusieurs à faire la méme mise à jour, ou que table est
"ouverte" par 2 forms en méme temps,
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Fredonnon" a écrit dans le message de news:Non non, je suis version 2000.
L'astuce de Pierrre maarche bien ; je l'en remercie bien d'ailleurs.
Je vais aller examiner à la loupe instrrev.
En attendant, cette petite aide me permet bien d'avoir la bonne chaîne
de caractères dans la table mais losque je retourne sur mon formulaire
de départ et que je vais à l'enregistrement suivant via les fleches,
j'ai un message d'erreur avec une légende "Conflit d'écriture". J'ai
alors 3 boutons au choix :
sauvegarder enregistrement
copier dans le presse papier
annuler.
Si je fais annuler, que je vais sur un autre enregistrement puis
reviens dessus, je me rends compte que tout fonctionne, j'ai bien la
bonne image à l'écran.
Vous avez une idée ?
"Maxence HUBICHE" wrote in message news:<u#...:? euh... il n'a pas parlé d'access 97 ...:?
J'ai raté quelque chose ?
"Pierre CFI [mvp]" a écrit dans le message de
news: eaz1$..../...
oui, mais cette fonction n'existe pas en 97
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maxence HUBICHE" a écrit dans le
message de news: OlWp#il y a une fonction géniale pour cela :
InstrRev
Je t'invite à aller jeter un oeil sur cette fonction dans l'aide
(bibliothèque VBA/ Strings)
"Fredonnon" a écrit dans le message de news:Bonjour,
J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier
Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:Mes documentsPersoV et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai
C:Mes documentsPersoVphoto1.jpg
Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).
Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.
D'avance, merci pour vos réponses ou suggestions.
