Copier une variable dans un commentaire (vba)

Bonjour,

J'ai une variable "toto" qui me renvoit le nom d'un fichier avec son path
complet :

Toto = C:Documents and SettingszouzouBureauExtract s15 .xls


Question 1

Comment puis-je ne récupérer que le nom du classeur ?
(ici : Extract s15 .xls), sachant que le nom peut être plus ou moins long
!

Actuellement, je colle ce nom (issu de la macro) dans une cellule.
[d3] = toto

Question 2

Comment puis-je copier le nom du classeur dans un commentaire créé dans la
cellule [d3]. Si possible, j'aimerais que ce commentaire comporte déjà un
entête du genre : "Fichier exporté", puis 2 lignes en dessous, le nom de
mon classeur (soit ici, la variable "toto") ?

Un grand merci d'avance pour votre aide,

JP

Bonjour J-Pascal,

Voici 2 façons d'extraire le nom du fichier de ta variable toto

Les fonctions "split" et InStrRev requiert la version excel 2000 ou plus
récent.

toto = "C:Documents and SettingszouzouBureauExtract s15 .xls"

Fichier = Split(toto, "")(UBound(Split(toto, "")))
OU
MonFichier = Mid(toto, InStrRev(toto, "") + 1, 255)






"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.abcc7d945a90ac9b.81386@venir.com... Bonjour,

J'ai une variable "toto" qui me renvoit le nom d'un fichier avec son
path complet :

Toto = C:Documents and SettingszouzouBureauExtract s15 .xls


Question 1

Comment puis-je ne récupérer que le nom du classeur ?
(ici : Extract s15 .xls), sachant que le nom peut être plus ou moins
long !

Actuellement, je colle ce nom (issu de la macro) dans une cellule.
[d3] = toto

Question 2

Comment puis-je copier le nom du classeur dans un commentaire créé dans
la cellule [d3]. Si possible, j'aimerais que ce commentaire comporte
déjà un entête du genre : "Fichier exporté", puis 2 lignes en dessous,
le nom de mon classeur (soit ici, la variable "toto") ?

Un grand merci d'avance pour votre aide,

JP

Bonjour,
Par exemple
'-------------
Dim nom As String
nom = ThisWorkbook.Name '***réponse 1
MsgBox nom '* facultatif
[d3].ClearComments '*** réponse 2
[d3].AddComment.Text Text:="Fichier exporté" & Chr(10) & Chr(10) & nom
'------------

--
Salutations
JJ


"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.abcc7d945a90ac9b.81386@venir.com...

Bonjour,

J'ai une variable "toto" qui me renvoit le nom d'un fichier avec son path
complet :

Toto = C:Documents and SettingszouzouBureauExtract s15 .xls


Question 1

Comment puis-je ne récupérer que le nom du classeur ?
(ici : Extract s15 .xls), sachant que le nom peut être plus ou moins long !

Actuellement, je colle ce nom (issu de la macro) dans une cellule.
[d3] = toto

Question 2

Comment puis-je copier le nom du classeur dans un commentaire créé dans la
cellule [d3]. Si possible, j'aimerais que ce commentaire comporte déjà un
entête du genre : "Fichier exporté", puis 2 lignes en dessous, le nom de
mon classeur (soit ici, la variable "toto") ?

Un grand merci d'avance pour votre aide,

JP

Je n'ai pas vu la deuxième partie de ta question :

'--------------------------------------
Sub test()
toto = "C:Documents and SettingszouzouBureauExtract s15 .xls"

'Extraction du nom du fichier :
fichier = Split(toto, "")(UBound(Split(toto, "")))
'OU
monfichier = Mid(toto, VBA.InStrRev(toto, "") + 1, 255)

With Range("D3") 'Ajout du commentaire
.ClearComments
.AddComment "Fichier exporté :" & vbCrLf & vbCrLf & monfichier
End With

End Sub
'--------------------------------------



"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion : 10270665-2E43-4AA7-8864-710FD9FA4958@microsoft.com... Bonjour
J-Pascal,

Voici 2 façons d'extraire le nom du fichier de ta variable toto

Les fonctions "split" et InStrRev requiert la version excel 2000 ou plus
récent.

toto = "C:Documents and SettingszouzouBureauExtract s15 .xls"

Fichier = Split(toto, "")(UBound(Split(toto, "")))
OU
MonFichier = Mid(toto, InStrRev(toto, "") + 1, 255)






"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.abcc7d945a90ac9b.81386@venir.com... Bonjour,

J'ai une variable "toto" qui me renvoit le nom d'un fichier avec son
path complet :

Toto = C:Documents and SettingszouzouBureauExtract s15 .xls


Question 1

Comment puis-je ne récupérer que le nom du classeur ?
(ici : Extract s15 .xls), sachant que le nom peut être plus ou moins
long !

Actuellement, je colle ce nom (issu de la macro) dans une cellule.
[d3] = toto

Question 2

Comment puis-je copier le nom du classeur dans un commentaire créé dans
la cellule [d3]. Si possible, j'aimerais que ce commentaire comporte
déjà un entête du genre : "Fichier exporté", puis 2 lignes en dessous,
le nom de mon classeur (soit ici, la variable "toto") ?

Un grand merci d'avance pour votre aide,

JP

Ca me fait 2 petits carrés

ça doit dépendre des versions... sous excel 2007,
il n'y a pas de petits carrés.