GetOpenFilename

[Ludwig]

Bonjour tout le monde,

J'espère que tout va bien chez vous car, pour ma part, je rencontre une fois de plus un petit soucis. Je m'explique: le GetOpenFilename me permet de chercher un fichier... Comment récupérer le nom du fichier pour le mettre comme valeur dans un label... heu !!! Label1.Caption = "le nom du fichier trouvé". (Ou Range("A1").Text = "le nom du fichier trouvé") ..

J'espère ne pas avoir gaché votre journée car avec des explications comme ça, il y a de quoi perdre patience... courage!

Désolé et merci d'avance.

Ludwig

 

[michel]

bonsoir Ludwig

ci dessous un exemple , avec insertion dans un label d'une feuille ( à adapter pour ton projet )

Private Sub CommandButton1_Click()
Dim Cible As String
Cible = Application.GetOpenFilename
Sheets("feuil1").Label1.Caption = Cible
End Sub


bonne soirée
Michel

 

[michel]

rebonsoir Ludwig

ou encore ...

Private Sub CommandButton1_Click()
Feuil1.Label1.Caption = Application.GetOpenFilename
End Sub

bonne sorée
Michel

 

[Ludwig]

Bonsoir Michel,

Merci pour ta première solution elle marche bien. Il me reste à l'adapter.
Pour la deuxième j'essais de suite.

Encore merci à toi et très bonne soirée.

Ludwig

 

[Ludwig]

Bonjour Michel,

Je voulais juste te remercier encore une fois car ça marche vraiment du tonnerre...

Encore merci et bonne journée à toi.

Ludwig