ThisWorkbook.Path

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 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

A + j’espère

--
Jean-Paul V

Bonjour Daniel,

Pour être vraiment sûr, j'aurais ajouter ceci au cas où ...
;-)

ChDrive Left(ActiveWorkbook.Path, 1)
ChDir ActiveWorkbook.Path

le reste de la macro.




"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

A + j’espère

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

A + j’espère

--
Jean-Paul V

Tout à fait exact.
Pure flemme de ma part.
Daniel

Bonjour Daniel,

Pour être vraiment sûr, j'aurais ajouter ceci au cas où ...
;-)

ChDrive Left(ActiveWorkbook.Path, 1)
ChDir ActiveWorkbook.Path

le reste de la macro.




"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

A + j’espère

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’’ 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 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 + j’espère

--
Jean-Paul V

...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

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ù ...
;-)

ChDrive Left(ActiveWorkbook.Path, 1)
ChDir ActiveWorkbook.Path

le reste de la macro.




"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

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ù ...
;-)

ChDrive Left(ActiveWorkbook.Path, 1)
ChDir ActiveWorkbook.Path

le reste de la macro.




"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

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ù ...
;-)

ChDrive Left(ActiveWorkbook.Path, 1)
ChDir ActiveWorkbook.Path

le reste de la macro.




"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

A + j’espère