Macro : RECUPERER LE NOM D'UN FICHIER dans une celulle

[roidurif]

Bonjour,

j'ai une macro qui me permet à partir d'un fichier A, d'aller Selectionner et ouvrir un fichier B pour rapatrier l'onglet "Fiche" dans le fichier A automatiquement.

Sub Ouvrir_fichier()
Dim fichier As String, wbk As Workbook
fichier = Application.GetOpenFilename("Fichier Excel, *.xls; *.xlsx", , , , False)
If UCase(fichier) = "FAUX" Then Exit Sub
Set wbk = Application.Workbooks.Open(fichier, , False)
wbk.Sheets("Fiche").Copy After:=ThisWorkbook.Sheets(1)
ThisWorkbook.Sheets("Feuil2").Activate
ThisWorkbook.Sheets("Feuil2").Range("A1").Select
wbk.Close False
End Sub

Ma question est comment faire pour recuperer le nom du Fichier B, pour le mettre en celulle B12 du fichier A Onglet "Feuil2".

Merci de votre aide.

 

[mutzik]

Re : Macro : RECUPERER LE NOM D'UN FICHIER dans une celulle

bonjour,
après wbk.close false
sheets("Feuil2").range("B12") = fichier

 

[roidurif]

Re : Macro : RECUPERER LE NOM D'UN FICHIER dans une celulle

Re,

Merci, mais cela me donne entierement le chemin.

Ce que je shouhaite c'est qu'il indique ex : Docuement.xls

merci d'avance

 

[kjin]

Re : Macro : RECUPERER LE NOM D'UN FICHIER dans une celulle

Bonjour,
Au plus simple

Sub Ouvrir_fichier()
Dim fichier As String, wbk As Workbook
fichier = Application.GetOpenFilename("Fichier Excel, *.xls; *.xlsx", , , , False)
If UCase(fichier) = "FAUX" Then Exit Sub
Set wbk = Application.Workbooks.Open(fichier, , False)
[COLOR="Blue"]NomFichier = ActiveWorkbook.Name[/COLOR]
wbk.Sheets("Fiche").Copy After:=ThisWorkbook.Sheets(1)
ThisWorkbook.Sheets("Feuil2").Range("B12") =[COLOR="Blue"] NomFichier[/COLOR]
wbk.Close False
End Sub

A+
kjin

 

[roidurif]

Re : Macro : RECUPERER LE NOM D'UN FICHIER dans une celulle

Re,

Presque ça, mais là ce me donne le nom du fichier A alors que je veux le nom du fichier B en celulle B12.

J'espere etre clair.

merci

 

[roidurif]

Re : Macro : RECUPERER LE NOM D'UN FICHIER dans une celulle

C'est bon j'ai trouver :

NomFichier = wbk.Name

merci pour tous