Nom du fichier Ouvert

Le
Al
Bonjour,

Je veux récupérer le nom du fichier Excel en cour d'utilisation.
Dim NomFichier as String
NomFichier = ???

Avez vous une solution ?
Merci pour vos réponses à tous
Al
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Francois L
Le #18784111
Al a écrit :
Bonjour,

Sub nom()
Dim nomfich As String
nomfich = Left$(ActiveWorkbook.Name, _
InStr(ActiveWorkbook.Name, ".xls") - 1)
MsgBox nomfich
End Sub

A adapter pour 2007 (extension différente).

--
François L

Bonjour,

Je veux récupérer le nom du fichier Excel en cour d'utilisation.
Dim NomFichier as String
NomFichier = ???

Avez vous une solution ?
Merci pour vos réponses à tous
Al




Daniel.C
Le #18784101
Bonjour.
NomFichier = ActiveWorkbook.Name
Cordialement.
Daniel

Bonjour,

Je veux récupérer le nom du fichier Excel en cour d'utilisation.
Dim NomFichier as String
NomFichier = ???

Avez vous une solution ?
Merci pour vos réponses à tous
Al


Al
Le #18784531
Merci à tous

"Francois L" de news:
Al a écrit :
Bonjour,

Sub nom()
Dim nomfich As String
nomfich = Left$(ActiveWorkbook.Name, _
InStr(ActiveWorkbook.Name, ".xls") - 1)
MsgBox nomfich
End Sub

A adapter pour 2007 (extension différente).

--
François L

Bonjour,

Je veux récupérer le nom du fichier Excel en cour d'utilisation.
Dim NomFichier as String
NomFichier = ???

Avez vous une solution ?
Merci pour vos réponses à tous
Al




Al
Le #18784521
Merci à tous


"Daniel.C" %
Bonjour.
NomFichier = ActiveWorkbook.Name
Cordialement.
Daniel

Bonjour,

Je veux récupérer le nom du fichier Excel en cour d'utilisation.
Dim NomFichier as String
NomFichier = ???

Avez vous une solution ?
Merci pour vos réponses à tous
Al






Publicité
Poster une réponse
Anonyme