OVH Cloud OVH Cloud

Comment recuperer le nom d'une "sheets"?

2 réponses
Avatar
iroc-z
Bonjour tout le monde!!

J'espere que vous apprecier le fait que le soleil est ENFIN de retour!!!
vivement ce WE qu'on en profite!

Bon, je vous ecris pas pour ca! ;-) z'en doutez!

Je debute en VBA et j'aimerai recuperer le nom de la feuille active afin de
construire une chaine contenant ce nom. (ce sera un chemin en fait, pour
lister des fichiers. mais c'est deja fait)

Voici mon extrait de code actuel qui marche pas!! ;-)

Select Case Sheets.Select.Name ' sais po quoi met' !! ;-)
Case Janvier
NomRep2 = NomRep1 & "01 JANVIER 2005\"
NomFic = NomRep2 & "[DEVIS 0501_"
Case Fevrier
NomRep2 = NomRep1 & "02 FEVRIER 2005\"
NomFic = NomRep2 & "[DEVIS 0502_"
Case Mars


vala, c'est tout pour le moment.
Mais je compte bien vous soliciter de nouveau sous peu! ;-)

en attendant, Bon WE a Tous!

2 réponses

Avatar
Pierre Fauconnier
Bonjour

Select case activesheet.name

Ok?


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"iroc-z" a écrit dans le message de news:

Bonjour tout le monde!!

J'espere que vous apprecier le fait que le soleil est ENFIN de retour!!!
vivement ce WE qu'on en profite!

Bon, je vous ecris pas pour ca! ;-) z'en doutez!

Je debute en VBA et j'aimerai recuperer le nom de la feuille active afin
de
construire une chaine contenant ce nom. (ce sera un chemin en fait, pour
lister des fichiers. mais c'est deja fait)

Voici mon extrait de code actuel qui marche pas!! ;-)

Select Case Sheets.Select.Name ' sais po quoi met' !! ;-)
Case Janvier
NomRep2 = NomRep1 & "01 JANVIER 2005"
NomFic = NomRep2 & "[DEVIS 0501_"
Case Fevrier
NomRep2 = NomRep1 & "02 FEVRIER 2005"
NomFic = NomRep2 & "[DEVIS 0502_"
Case Mars


vala, c'est tout pour le moment.
Mais je compte bien vous soliciter de nouveau sous peu! ;-)

en attendant, Bon WE a Tous!



Avatar
iroc-z
ah bah oui!

Ca parait tellement simple qd on a la solution!

Merci bcp Pierre


Bonjour

Select case activesheet.name

Ok?


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"iroc-z" a écrit dans le message de news:

Bonjour tout le monde!!

J'espere que vous apprecier le fait que le soleil est ENFIN de retour!!!
vivement ce WE qu'on en profite!

Bon, je vous ecris pas pour ca! ;-) z'en doutez!

Je debute en VBA et j'aimerai recuperer le nom de la feuille active afin
de
construire une chaine contenant ce nom. (ce sera un chemin en fait, pour
lister des fichiers. mais c'est deja fait)

Voici mon extrait de code actuel qui marche pas!! ;-)

Select Case Sheets.Select.Name ' sais po quoi met' !! ;-)
Case Janvier
NomRep2 = NomRep1 & "01 JANVIER 2005"
NomFic = NomRep2 & "[DEVIS 0501_"
Case Fevrier
NomRep2 = NomRep1 & "02 FEVRIER 2005"
NomFic = NomRep2 & "[DEVIS 0502_"
Case Mars


vala, c'est tout pour le moment.
Mais je compte bien vous soliciter de nouveau sous peu! ;-)

en attendant, Bon WE a Tous!