Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone de
texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:\DISCOTHEQUE\BACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & "\"
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
Bonjour.
Private Sub B_photo_Click()
ChDir ActiveWorkbook.Path
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = Dir(nf)
End If
End Sub
Cordialement.
Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone de
texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
MichDenis
Bonjour Jean-Paul,
Déclaration de l'API dans le haut du module standard Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long '------------------------------------------ Public Sub ChDirNet(szPath As String) Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub
'------------------------------------------ Private Sub B_photo_Click() Dim Repertoire As String Repertoire = ThisWorkbook.Path & "" ChDirNet Repertoire nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub '------------------------------------------
"Jean-Paul V" a écrit dans le message de groupe de discussion : Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
-- Jean-Paul V
Bonjour Jean-Paul,
Déclaration de l'API dans le haut du module standard
Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long
'------------------------------------------
Public Sub ChDirNet(szPath As String)
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(szPath)
If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub
'------------------------------------------
Private Sub B_photo_Click()
Dim Repertoire As String
Repertoire = ThisWorkbook.Path & ""
ChDirNet Repertoire
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
'------------------------------------------
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : A82DE94D-2821-45A8-AB73-45876804E3B4@microsoft.com...
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone de
texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
Déclaration de l'API dans le haut du module standard Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long '------------------------------------------ Public Sub ChDirNet(szPath As String) Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub
'------------------------------------------ Private Sub B_photo_Click() Dim Repertoire As String Repertoire = ThisWorkbook.Path & "" ChDirNet Repertoire nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub '------------------------------------------
"Jean-Paul V" a écrit dans le message de groupe de discussion : Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
-- Jean-Paul V
MichDenis
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ... ;-)
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ...
;-)
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de discussion :
#9lpulo7JHA.6084@TK2MSFTNGP04.phx.gbl...
Bonjour.
Private Sub B_photo_Click()
ChDir ActiveWorkbook.Path
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = Dir(nf)
End If
End Sub
Cordialement.
Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone de
texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
MichDenis
L'auteur de ceci : Public Sub ChDirNet(szPath As String) C'est un certain M. Rob Bovey ;-)
"MichDenis" a écrit dans le message de groupe de discussion : # Bonjour Jean-Paul,
Déclaration de l'API dans le haut du module standard Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long '------------------------------------------ Public Sub ChDirNet(szPath As String) Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub
'------------------------------------------ Private Sub B_photo_Click() Dim Repertoire As String Repertoire = ThisWorkbook.Path & "" ChDirNet Repertoire nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub '------------------------------------------
"Jean-Paul V" a écrit dans le message de groupe de discussion : Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
-- Jean-Paul V
L'auteur de ceci : Public Sub ChDirNet(szPath As String)
C'est un certain M. Rob Bovey
;-)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
#8GiKmo7JHA.5828@TK2MSFTNGP04.phx.gbl...
Bonjour Jean-Paul,
Déclaration de l'API dans le haut du module standard
Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long
'------------------------------------------
Public Sub ChDirNet(szPath As String)
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(szPath)
If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub
'------------------------------------------
Private Sub B_photo_Click()
Dim Repertoire As String
Repertoire = ThisWorkbook.Path & ""
ChDirNet Repertoire
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
'------------------------------------------
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : A82DE94D-2821-45A8-AB73-45876804E3B4@microsoft.com...
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone de
texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
L'auteur de ceci : Public Sub ChDirNet(szPath As String) C'est un certain M. Rob Bovey ;-)
"MichDenis" a écrit dans le message de groupe de discussion : # Bonjour Jean-Paul,
Déclaration de l'API dans le haut du module standard Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long '------------------------------------------ Public Sub ChDirNet(szPath As String) Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub
'------------------------------------------ Private Sub B_photo_Click() Dim Repertoire As String Repertoire = ThisWorkbook.Path & "" ChDirNet Repertoire nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub '------------------------------------------
"Jean-Paul V" a écrit dans le message de groupe de discussion : Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
-- Jean-Paul V
Daniel.C
Tout à fait exact. Pure flemme de ma part. Daniel
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ... ;-)
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
Tout à fait exact.
Pure flemme de ma part.
Daniel
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ...
;-)
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de
discussion : #9lpulo7JHA.6084@TK2MSFTNGP04.phx.gbl...
Bonjour.
Private Sub B_photo_Click()
ChDir ActiveWorkbook.Path
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = Dir(nf)
End If
End Sub
Cordialement.
Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone
de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
LSteph
Bonjour,
'.... ChDir ThisWorkbook.Path '...
-- lSteph
On 16 juin, 15:12, Jean-Paul V wrote:
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton B_photo dun Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la z one de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier acti f 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jp g
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + jespère
-- Jean-Paul V
Bonjour,
'....
ChDir ThisWorkbook.Path
'...
--
lSteph
On 16 juin, 15:12, Jean-Paul V <JeanPa...@discussions.microsoft.com>
wrote:
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
B_photo dun Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la z one de
texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier acti f
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jp g
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
Comment modifier cette macro déclanchée en cliquant sur le bouton B_photo dun Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la z one de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier acti f 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jp g
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + jespère
-- Jean-Paul V
LSteph
...reste à savoir toutefois... si tu veux:
répertoire que le fichier actif
ActiveWorkbook
ou le fichier qui lance la macro selon ce que tu codais Thisworkbook
...reste à savoir toutefois... si tu veux:
répertoire que le fichier actif
ActiveWorkbook
ou le fichier qui lance la macro selon ce que tu codais
Thisworkbook
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
Rassure-toi, le demandeur n'a sûrement pas plus d'un lecteur !
;-)
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de discussion :
u$M7#vo7JHA.1196@TK2MSFTNGP03.phx.gbl...
Tout à fait exact.
Pure flemme de ma part.
Daniel
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ...
;-)
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de
discussion : #9lpulo7JHA.6084@TK2MSFTNGP04.phx.gbl...
Bonjour.
Private Sub B_photo_Click()
ChDir ActiveWorkbook.Path
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = Dir(nf)
End If
End Sub
Cordialement.
Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone
de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
Daniel.C
D, c'est souvent le lecteur CD... Daniel
Rassure-toi, le demandeur n'a sûrement pas plus d'un lecteur ! ;-)
"Daniel.C" a écrit dans le message de groupe de discussion : u$M7# Tout à fait exact. Pure flemme de ma part. Daniel
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ... ;-)
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
D, c'est souvent le lecteur CD...
Daniel
Rassure-toi, le demandeur n'a sûrement pas plus d'un lecteur !
;-)
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de
discussion : u$M7#vo7JHA.1196@TK2MSFTNGP03.phx.gbl...
Tout à fait exact.
Pure flemme de ma part.
Daniel
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ...
;-)
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de
discussion : #9lpulo7JHA.6084@TK2MSFTNGP04.phx.gbl...
Bonjour.
Private Sub B_photo_Click()
ChDir ActiveWorkbook.Path
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = Dir(nf)
End If
End Sub
Cordialement.
Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone
de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
MichDenis
Ok pour D, mais ce doit être un peu plus compliqué d'enregistrer le fichier ! ;-))
"Daniel.C" a écrit dans le message de groupe de discussion :
D, c'est souvent le lecteur CD... Daniel
Rassure-toi, le demandeur n'a sûrement pas plus d'un lecteur ! ;-)
"Daniel.C" a écrit dans le message de groupe de discussion : u$M7# Tout à fait exact. Pure flemme de ma part. Daniel
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ... ;-)
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
A + j’espère
Ok pour D, mais ce doit être un peu plus compliqué d'enregistrer le fichier !
;-))
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de discussion :
u8WNV8o7JHA.3860@TK2MSFTNGP05.phx.gbl...
D, c'est souvent le lecteur CD...
Daniel
Rassure-toi, le demandeur n'a sûrement pas plus d'un lecteur !
;-)
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de
discussion : u$M7#vo7JHA.1196@TK2MSFTNGP03.phx.gbl...
Tout à fait exact.
Pure flemme de ma part.
Daniel
Bonjour Daniel,
Pour être vraiment sûr, j'aurais ajouter ceci au cas où ...
;-)
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de
discussion : #9lpulo7JHA.6084@TK2MSFTNGP04.phx.gbl...
Bonjour.
Private Sub B_photo_Click()
ChDir ActiveWorkbook.Path
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = Dir(nf)
End If
End Sub
Cordialement.
Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton
‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même
répertoire que le fichier actif pour mettre le nom du fichier dans la zone
de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier
répertoire utilisé au lieu de prendre le répertoire du fichier actif
2 ) Il met dans la zone de texte du Userform par exemple
D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click()
repertoire = ThisWorkbook.Path & ""
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Photo = nf
End If
End Sub
"Daniel.C" a écrit dans le message de groupe de discussion : # Bonjour. Private Sub B_photo_Click() ChDir ActiveWorkbook.Path nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = Dir(nf) End If End Sub Cordialement. Daniel
Bonjour à tous
Comment modifier cette macro déclanchée en cliquant sur le bouton ‘‘B_photo’’ d’un Userform qui va chercher un fichier .jpg dans le même répertoire que le fichier actif pour mettre le nom du fichier dans la zone de texte du Userform nommée Photo
1 ) This ThisWorkbook.Path ne marche pas il prend en fait le dernier répertoire utilisé au lieu de prendre le répertoire du fichier actif 2 ) Il met dans la zone de texte du Userform par exemple D:DISCOTHEQUEBACH37779.jpg alors que je souhaiterais avoir BACH37779.jpg
Private Sub B_photo_Click() repertoire = ThisWorkbook.Path & "" nf = Application.GetOpenFilename("Fichiers jpg,*.jpg") If Not nf = False Then Me.Photo = nf End If End Sub
