stocker le nom d'un classeur dans une variable

[Kiki]

Bonjour à tous,

Je voudrais retourner (stocker) le nom d'un classeur dans une variable.

Je ne trouve pas l'expression qui complèterait ma macro :

Sub ouvre()

Dim var As String

Workbooks.OpenText Filename:= _
'C:\\fichier.txt' _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True


Var = ........................................

End Sub

N'hésitez pas à tout corriger !

Merci beaucoup,

A+

Kiki

 

[Romuald]

Tu peux essayer le code suivant :

Sub ouvre()

Dim var As String, wkb as workbook

set wkb = Workbooks.OpenText (Filename:= _
'C:\\fichier.txt' _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True)


Var = wkb.Name

End Sub

 

[Abel]

Bonjour Romuald, Kiki,

Si c'est le nom du fichier actif que tu cherches, essaie :

Var = ActiveWorkbook.Name

Abel.