(RESOLU) Récuperer le titre du document selectionné

[chaelie2015]

Bonsoir forum

Je souhaite afficher dans la cellule B7 le nom du fichier selectionné apre avoir l’afficher.

Exemple si j’ai selectionné un fichier PDF dans le répertoire C : qui est nommé CHARLIE.PDF

Je souhaite avoir son nom dans la cellule B7

merci

 

[Staple1600]

Bonjour le fil, le forum

@chaelie2015
Ci-dessous, une macro possible

Sub OuvreFichier_BIS()
Dim fichier
fichier = Application.GetOpenFilename("Fichier (*.pdf), *.pdf")
If fichier = False Then
MsgBox "Aucun fichier sélectionné!" & Chr(13) & "Opération interrompue.", vbCritical, "Erreur"
Exit Sub
End If
On Error GoTo Exit2Chatagoune_Goune
[C1] = Left(fichier, InStrRev(fichier, "\"))
[B7] = Mid(fichier, InStrRev(fichier, "\") + 1)
ThisWorkbook.FollowHyperlink fichier
Exit2Chatagoune_Goune:
If Err Then MsgBox Err.Description, vbCritical, "Erreur!"
End Sub

 

[chaelie2015]

Bonjour le fil, le forum

@chaelie2015
Ci-dessous, une macro possible

Sub OuvreFichier_BIS()
Dim fichier
fichier = Application.GetOpenFilename("Fichier (*.pdf), *.pdf")
If fichier = False Then
MsgBox "Aucun fichier sélectionné!" & Chr(13) & "Opération interrompue.", vbCritical, "Erreur"
Exit Sub
End If
On Error GoTo Exit2Chatagoune_Goune
[C1] = Left(fichier, InStrRev(fichier, "\"))
[B7] = Mid(fichier, InStrRev(fichier, "\") + 1)
ThisWorkbook.FollowHyperlink fichier
Exit2Chatagoune_Goune:
If Err Then MsgBox Err.Description, vbCritical, "Erreur!"
End Sub

Bonjour Staple1600
Merci pour la réponse c'est exactement ce que je cherchais.
Est ce que c'est possible de supprimer l'extension du titre (.pdf)

merci

 

[Staple1600]

Re

Oui, c'est possible

Sub OuvreFichier_TER()
Dim fichier
fichier = Application.GetOpenFilename("Fichier (*.pdf), *.pdf")
If fichier = False Then
MsgBox "Aucun fichier sélectionné!" & Chr(13) & "Opération interrompue.", vbCritical, "Erreur"
Exit Sub
End If
On Error GoTo Exit2Chatagoune_Goune
[C1] = Left(fichier, InStrRev(fichier, "\"))
[B7] = Replace(Dir(fichier), ".pdf", "")
ThisWorkbook.FollowHyperlink fichier
Exit2Chatagoune_Goune:
If Err Then MsgBox Err.Description, vbCritical, "Erreur!"
End Sub

 

[chaelie2015]

Re

Oui, c'est possible

Sub OuvreFichier_TER()
Dim fichier
fichier = Application.GetOpenFilename("Fichier (*.pdf), *.pdf")
If fichier = False Then
MsgBox "Aucun fichier sélectionné!" & Chr(13) & "Opération interrompue.", vbCritical, "Erreur"
Exit Sub
End If
On Error GoTo Exit2Chatagoune_Goune
[C1] = Left(fichier, InStrRev(fichier, "\"))
[B7] = Replace(Dir(fichier), ".pdf", "")
ThisWorkbook.FollowHyperlink fichier
Exit2Chatagoune_Goune:
If Err Then MsgBox Err.Description, vbCritical, "Erreur!"
End Sub

Bonjour STAPLE1600
It's perfect
Problem solved
Merci