Déplacement d'une feuille

bonjour elie et bonne année à toi également,

Sheets("Feuil1").Move After:=Sheets(Sheets.Count)

isabelle

Bonjour à tous et bonne année pleine de bonnes questions et d'excellentes
réponses,
1°/ Pour compléter ma macro, après avoir obtenu comme je le voulais l'unique
feuille d'un classeur, je voudrais pouvoir la déplacer par la macro après la
dernière feuille d'un classeur déjà ouvert.
J'ai essayé d'enregistrer une nouvelle macro. Cette feuille est bien
déplacée, mais après la dernière feuille nommée par son rang : "Sheets(42)"
. Ceci ne peut me convenir puisque ce chiffre va changer à chaque fois. Je
n'ai pas trouvé de formule du type "LastSheet" ou autre.
Quelle est la formule magique??
2°/ La cellule A1 de cette feuille contient "Téléchargement du 22/12/04" par
exemple. Y a-t-il un moyen d'extraire la date sous forme "22-12" pour
renommer cette feuille d'une part, et coller cette date sur la dernière
cellule de la colonne A d'une autre feuille de ce même classeur.??
Cela fait beaucoup, mais à plusieurs....??
Merci à tous.
Si ce n'est pas possible, je ferai à la main

Pour ta 2ème question, deux approches possibles (parmi d'autres) :

- La cellule A1 est au format personnalisé "Téléchargement du "jj/mm/aa
et contient une date comme 28/12/04 :

En VBA, tu récupères la date au format désiré à l'aide de la fonction Format

Sub test()
MsgBox Format([A1], "dd-mm")
End Sub

- La cellule A1 contient "Téléchargement du 22/12/04", qui est un texte :

Dans ce cas tu peux utiliser une fonction comme Split pour récupérer uniquement
la date puis la mettre en forme, toujours avec Format

Sub test()
MsgBox Format(Split([A1], "Téléchargement du ")(1), "dd-mm")
End Sub

--
Gaenonius

Bonjour à tous et bonne année pleine de bonnes questions et d'excellentes
réponses,
1°/ Pour compléter ma macro, après avoir obtenu comme je le voulais l'unique
feuille d'un classeur, je voudrais pouvoir la déplacer par la macro après la
dernière feuille d'un classeur déjà ouvert.
J'ai essayé d'enregistrer une nouvelle macro. Cette feuille est bien
déplacée, mais après la dernière feuille nommée par son rang : "Sheets(42)"
.. Ceci ne peut me convenir puisque ce chiffre va changer à chaque fois. Je
n'ai pas trouvé de formule du type "LastSheet" ou autre.
Quelle est la formule magique??
2°/ La cellule A1 de cette feuille contient "Téléchargement du 22/12/04" par
exemple. Y a-t-il un moyen d'extraire la date sous forme "22-12" pour
renommer cette feuille d'une part, et coller cette date sur la dernière
cellule de la colonne A d'une autre feuille de ce même classeur.??
Cela fait beaucoup, mais à plusieurs....??
Merci à tous.
Si ce n'est pas possible, je ferai à la main

Bonjour à tous et Merci à Gaenonius,
d'avoir attrapé la 2eme partie du message; mon cas se trouve au 2eme cas.
Sur ma feuille, j'ai en A1 "Téléchargement du 22/12/04"; cette date change
évidemment à chaque téléchargement.
Je voudrais par VBA, renommer cette feuille par la date sus-dite récupérée.
J'ai essayé ta formule MsgBox; parfait; mais que puis-je faire de cette
boite?
J'ai tenté de récupérer la date dans une cellule G1, je n'ai pas réussi
davantage..
SOLUTION S.V.P.
Salut


"Gaenonius" <noname@nowhere> a écrit dans le message de
news:e17zAnA7EHA.4004@tk2msftngp13.phx.gbl...

Pour ta 2ème question, deux approches possibles (parmi d'autres) :

- La cellule A1 est au format personnalisé "Téléchargement du "jj/mm/aa
et contient une date comme 28/12/04 :

En VBA, tu récupères la date au format désiré à l'aide de la fonction
Format

Sub test()
MsgBox Format([A1], "dd-mm")
End Sub

- La cellule A1 contient "Téléchargement du 22/12/04", qui est un texte :

Dans ce cas tu peux utiliser une fonction comme Split pour récupérer
uniquement

la date puis la mettre en forme, toujours avec Format

Sub test()
MsgBox Format(Split([A1], "Téléchargement du ")(1), "dd-mm")
End Sub

--
Gaenonius

Bonjour à tous et bonne année pleine de bonnes questions et
d'excellentes

réponses,
1°/ Pour compléter ma macro, après avoir obtenu comme je le voulais
l'unique

feuille d'un classeur, je voudrais pouvoir la déplacer par la macro
après la

dernière feuille d'un classeur déjà ouvert.
J'ai essayé d'enregistrer une nouvelle macro. Cette feuille est bien
déplacée, mais après la dernière feuille nommée par son rang :
"Sheets(42)"

.. Ceci ne peut me convenir puisque ce chiffre va changer à chaque fois.
Je

n'ai pas trouvé de formule du type "LastSheet" ou autre.
Quelle est la formule magique??
2°/ La cellule A1 de cette feuille contient "Téléchargement du 22/12/04"
par

exemple. Y a-t-il un moyen d'extraire la date sous forme "22-12" pour
renommer cette feuille d'une part, et coller cette date sur la dernière
cellule de la colonne A d'une autre feuille de ce même classeur.??
Cela fait beaucoup, mais à plusieurs....??
Merci à tous.
Si ce n'est pas possible, je ferai à la main

bonjour elie,

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Format([A1], "dd-mm")
End Sub

isabelle

Pour ta 2ème question, deux approches possibles (parmi d'autres) :

- La cellule A1 est au format personnalisé "Téléchargement du "jj/mm/aa
et contient une date comme 28/12/04 :

En VBA, tu récupères la date au format désiré à l'aide de la fonction Format

Sub test()
MsgBox Format([A1], "dd-mm")
End Sub

- La cellule A1 contient "Téléchargement du 22/12/04", qui est un texte :

Dans ce cas tu peux utiliser une fonction comme Split pour récupérer uniquement
la date puis la mettre en forme, toujours avec Format

Sub test()
MsgBox Format(Split([A1], "Téléchargement du ")(1), "dd-mm")
End Sub

--
Gaenonius

Bonjour à tous et bonne année pleine de bonnes questions et d'excellentes
réponses,
1°/ Pour compléter ma macro, après avoir obtenu comme je le voulais l'unique
feuille d'un classeur, je voudrais pouvoir la déplacer par la macro après la
dernière feuille d'un classeur déjà ouvert.
J'ai essayé d'enregistrer une nouvelle macro. Cette feuille est bien
déplacée, mais après la dernière feuille nommée par son rang : "Sheets(42)"
.. Ceci ne peut me convenir puisque ce chiffre va changer à chaque fois. Je
n'ai pas trouvé de formule du type "LastSheet" ou autre.
Quelle est la formule magique??
2°/ La cellule A1 de cette feuille contient "Téléchargement du 22/12/04" par
exemple. Y a-t-il un moyen d'extraire la date sous forme "22-12" pour
renommer cette feuille d'une part, et coller cette date sur la dernière
cellule de la colonne A d'une autre feuille de ce même classeur.??
Cela fait beaucoup, mais à plusieurs....??
Merci à tous.
Si ce n'est pas possible, je ferai à la main

Pour compléter la réponse d'Isabelle, tu pourrais essayer ceci, qui s'applique à
la feuille active :

Sub Renomme()
With Range("A1")
.Parent.Name = Format(Split(.Value, "Téléchargement du ")(1), "dd-mm")
End With
End Sub

--
Gaenonius

Bonjour à tous et Merci à Gaenonius,
d'avoir attrapé la 2eme partie du message; mon cas se trouve au 2eme cas.
Sur ma feuille, j'ai en A1 "Téléchargement du 22/12/04"; cette date change
évidemment à chaque téléchargement.
Je voudrais par VBA, renommer cette feuille par la date sus-dite récupérée.
J'ai essayé ta formule MsgBox; parfait; mais que puis-je faire de cette
boite?
J'ai tenté de récupérer la date dans une cellule G1, je n'ai pas réussi
davantage..
SOLUTION S.V.P.
Salut


"Gaenonius" <noname@nowhere> a écrit dans le message de
news:e17zAnA7EHA.4004@tk2msftngp13.phx.gbl...

Pour ta 2ème question, deux approches possibles (parmi d'autres) :

- La cellule A1 est au format personnalisé "Téléchargement du "jj/mm/aa
et contient une date comme 28/12/04 :

En VBA, tu récupères la date au format désiré à l'aide de la fonction

Format

Sub test()
MsgBox Format([A1], "dd-mm")
End Sub

- La cellule A1 contient "Téléchargement du 22/12/04", qui est un texte :

Dans ce cas tu peux utiliser une fonction comme Split pour récupérer

uniquement

la date puis la mettre en forme, toujours avec Format

Sub test()
MsgBox Format(Split([A1], "Téléchargement du ")(1), "dd-mm")
End Sub

--
Gaenonius

Bonjour à tous et bonne année pleine de bonnes questions et

d'excellentes

réponses,
1°/ Pour compléter ma macro, après avoir obtenu comme je le voulais

l'unique

feuille d'un classeur, je voudrais pouvoir la déplacer par la macro

après la

dernière feuille d'un classeur déjà ouvert.
J'ai essayé d'enregistrer une nouvelle macro. Cette feuille est bien
déplacée, mais après la dernière feuille nommée par son rang :

"Sheets(42)"

.. Ceci ne peut me convenir puisque ce chiffre va changer à chaque fois.

Je

n'ai pas trouvé de formule du type "LastSheet" ou autre.
Quelle est la formule magique??
2°/ La cellule A1 de cette feuille contient "Téléchargement du 22/12/04"

par

exemple. Y a-t-il un moyen d'extraire la date sous forme "22-12" pour
renommer cette feuille d'une part, et coller cette date sur la dernière
cellule de la colonne A d'une autre feuille de ce même classeur.??
Cela fait beaucoup, mais à plusieurs....??
Merci à tous.
Si ce n'est pas possible, je ferai à la main

Bonsoir à tous et en particulier...
A Isabelle et Gaenonius
Petit à petit ma macro avance, grâce à vos conseils.
Après avoir réussi à réunir mes deux feuilles ( alors qu'à une demande
précédente, il m'avait été répondu que ce n'était pas possible et je devais
faire un copier-coller manuel), j'ai réussi à faire migrer la feuille
obtenue dans un autre fichier ( grâce à Isabelle), mais la formule
n'envoyant cette feuille qu'en première feuille du fichier, j'ai renouvelé
la même formule qui a fait partir la feuille en dernier. Maintenant grâce à
Gaenonius, l'onglet est renommé de la date de réception.
Désolé de t'annoncer, Isabelle, que je n'ai pas réussi à faire fonctionner
ta formule; il m'a été demandé à chaque fois un "End Sub" qui était pourtant
bien là !!
Comme je ne comprends pas grand chose à vos formules, je ne peux pas
arranger les choses; et pourtant j'aurais voulu comprendre ce que je fais
.Pour
incorporer la formule Renomme dans ma macro, j'ai du
bidouiller, car je ne savais pas qu'il suffisait de ne garder que le coeur
et d'enlever sub renomme() et end sub.
SVP, et à titre documentaire: je programmais antérieurement en Basic, et je
ne parviens pas a faire des similitudes; dans la formule Format dd=jours et
mm=mois?
et pour annéeªaa? j'ai essayé pour m'amuser d'écrire ""dd-mm-aa" et j'ai
obtenu par exemple "22-12-aa"
Corrections ?? Merci à vous tous. Il me reste un petit rien pour finir. Si
je n'y arrive pas, j'appellerai à l'aide

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41D1622C.8D5D9CB7@videotron.ca...

bonjour elie,

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Format([A1], "dd-mm")
End Sub

isabelle

Pour ta 2ème question, deux approches possibles (parmi d'autres) :

- La cellule A1 est au format personnalisé "Téléchargement du "jj/mm/aa
et contient une date comme 28/12/04 :

En VBA, tu récupères la date au format désiré à l'aide de la fonction
Format

Sub test()
MsgBox Format([A1], "dd-mm")
End Sub

- La cellule A1 contient "Téléchargement du 22/12/04", qui est un texte
:

Dans ce cas tu peux utiliser une fonction comme Split pour récupérer
uniquement

la date puis la mettre en forme, toujours avec Format

Sub test()
MsgBox Format(Split([A1], "Téléchargement du ")(1), "dd-mm")
End Sub

--
Gaenonius

Bonjour à tous et bonne année pleine de bonnes questions et
d'excellentes

réponses,
1°/ Pour compléter ma macro, après avoir obtenu comme je le voulais
l'unique

feuille d'un classeur, je voudrais pouvoir la déplacer par la macro
après la

dernière feuille d'un classeur déjà ouvert.
J'ai essayé d'enregistrer une nouvelle macro. Cette feuille est bien
déplacée, mais après la dernière feuille nommée par son rang :
"Sheets(42)"

.. Ceci ne peut me convenir puisque ce chiffre va changer à chaque
fois. Je

n'ai pas trouvé de formule du type "LastSheet" ou autre.
Quelle est la formule magique??
2°/ La cellule A1 de cette feuille contient "Téléchargement du
22/12/04" par

exemple. Y a-t-il un moyen d'extraire la date sous forme "22-12" pour
renommer cette feuille d'une part, et coller cette date sur la
dernière

cellule de la colonne A d'une autre feuille de ce même classeur.??
Cela fait beaucoup, mais à plusieurs....??
Merci à tous.
Si ce n'est pas possible, je ferai à la main

Essaye plutôt

"dd-mm-yy"
(VBA cause anglo-américain en natif).

--
Gaenonius

Bonsoir à tous et en particulier...
A Isabelle et Gaenonius
Petit à petit ma macro avance, grâce à vos conseils.
Après avoir réussi à réunir mes deux feuilles ( alors qu'à une demande
précédente, il m'avait été répondu que ce n'était pas possible et je devais
faire un copier-coller manuel), j'ai réussi à faire migrer la feuille
obtenue dans un autre fichier ( grâce à Isabelle), mais la formule
n'envoyant cette feuille qu'en première feuille du fichier, j'ai renouvelé
la même formule qui a fait partir la feuille en dernier. Maintenant grâce à
Gaenonius, l'onglet est renommé de la date de réception.
Désolé de t'annoncer, Isabelle, que je n'ai pas réussi à faire fonctionner
ta formule; il m'a été demandé à chaque fois un "End Sub" qui était pourtant
bien là !!
Comme je ne comprends pas grand chose à vos formules, je ne peux pas
arranger les choses; et pourtant j'aurais voulu comprendre ce que je fais
..Pour
incorporer la formule Renomme dans ma macro, j'ai du
bidouiller, car je ne savais pas qu'il suffisait de ne garder que le coeur
et d'enlever sub renomme() et end sub.
SVP, et à titre documentaire: je programmais antérieurement en Basic, et je
ne parviens pas a faire des similitudes; dans la formule Format dd=jours et
mm=mois?
et pour annéeªaa? j'ai essayé pour m'amuser d'écrire ""dd-mm-aa" et j'ai
obtenu par exemple "22-12-aa"
Corrections ?? Merci à vous tous. Il me reste un petit rien pour finir. Si
je n'y arrive pas, j'appellerai à l'aide

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41D1622C.8D5D9CB7@videotron.ca...

bonjour elie,

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Format([A1], "dd-mm")
End Sub

isabelle

Pour ta 2ème question, deux approches possibles (parmi d'autres) :

- La cellule A1 est au format personnalisé "Téléchargement du "jj/mm/aa
et contient une date comme 28/12/04 :

En VBA, tu récupères la date au format désiré à l'aide de la fonction

Format

Sub test()
MsgBox Format([A1], "dd-mm")
End Sub

- La cellule A1 contient "Téléchargement du 22/12/04", qui est un texte

:

Dans ce cas tu peux utiliser une fonction comme Split pour récupérer

uniquement

la date puis la mettre en forme, toujours avec Format

Sub test()
MsgBox Format(Split([A1], "Téléchargement du ")(1), "dd-mm")
End Sub

--
Gaenonius

Bonjour à tous et bonne année pleine de bonnes questions et

d'excellentes

réponses,
1°/ Pour compléter ma macro, après avoir obtenu comme je le voulais

l'unique

feuille d'un classeur, je voudrais pouvoir la déplacer par la macro

après la

dernière feuille d'un classeur déjà ouvert.
J'ai essayé d'enregistrer une nouvelle macro. Cette feuille est bien
déplacée, mais après la dernière feuille nommée par son rang :

"Sheets(42)"

.. Ceci ne peut me convenir puisque ce chiffre va changer à chaque

fois. Je

n'ai pas trouvé de formule du type "LastSheet" ou autre.
Quelle est la formule magique??
2°/ La cellule A1 de cette feuille contient "Téléchargement du

22/12/04" par

exemple. Y a-t-il un moyen d'extraire la date sous forme "22-12" pour
renommer cette feuille d'une part, et coller cette date sur la

dernière

cellule de la colonne A d'une autre feuille de ce même classeur.??
Cela fait beaucoup, mais à plusieurs....??
Merci à tous.
Si ce n'est pas possible, je ferai à la main