j'ai un soucis avec une macro... dans un classeur se=20
trouve une feuille sous le nom de "matrice".
ma macro permet de copie cette feuille et de la renomer=20
sous la forme "jour-mois-ann=E9e" (ex : 18-01-05).=20
maintenant si je souhaite creer une autre feuille avec la=20
meme date, il me met un message d'erreur puisqu'il ya=20
deja une feuille du meme nom. je voudrais donc qu'il=20
renome la feuille "jour-mois-ann=E9e (1)" (ex : 18-01-05=20
(1)). et si cette feuille existe deja qu'il incremente le=20
chiffre entre parentheses...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pounet95
Bonjour, QUelque chose du genre à mettre dans la procédure de nommage
MaDate = Date On Error Resume Next existe = True nb = 1 Do While existe = True ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "(" & nb & ")" If Err = 0 Then existe = False Exit Do Else nb = nb + 1 End If Loop
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a écrit dans le message de news: 208901c4fd6c$5a1f9110$ Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le chiffre entre parentheses...
meci d'avance
Bonjour,
QUelque chose du genre à mettre dans la procédure de nommage
MaDate = Date
On Error Resume Next
existe = True
nb = 1
Do While existe = True
ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "(" & nb & ")"
If Err = 0 Then
existe = False
Exit Do
Else
nb = nb + 1
End If
Loop
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 208901c4fd6c$5a1f9110$a401280a@phx.gbl...
Bonjour,
j'ai un soucis avec une macro... dans un classeur se
trouve une feuille sous le nom de "matrice".
ma macro permet de copie cette feuille et de la renomer
sous la forme "jour-mois-année" (ex : 18-01-05).
maintenant si je souhaite creer une autre feuille avec la
meme date, il me met un message d'erreur puisqu'il ya
deja une feuille du meme nom. je voudrais donc qu'il
renome la feuille "jour-mois-année (1)" (ex : 18-01-05
(1)). et si cette feuille existe deja qu'il incremente le
chiffre entre parentheses...
Bonjour, QUelque chose du genre à mettre dans la procédure de nommage
MaDate = Date On Error Resume Next existe = True nb = 1 Do While existe = True ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "(" & nb & ")" If Err = 0 Then existe = False Exit Do Else nb = nb + 1 End If Loop
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a écrit dans le message de news: 208901c4fd6c$5a1f9110$ Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le chiffre entre parentheses...
meci d'avance
Albator V
je fais essayer de faire qqc avec vos reponses. merci beaucoup !!
-----Message d'origine----- Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la
meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le
chiffre entre parentheses...
meci d'avance .
je fais essayer de faire qqc avec vos reponses. merci
beaucoup !!
-----Message d'origine-----
Bonjour,
j'ai un soucis avec une macro... dans un classeur se
trouve une feuille sous le nom de "matrice".
ma macro permet de copie cette feuille et de la renomer
sous la forme "jour-mois-année" (ex : 18-01-05).
maintenant si je souhaite creer une autre feuille avec
la
meme date, il me met un message d'erreur puisqu'il ya
deja une feuille du meme nom. je voudrais donc qu'il
renome la feuille "jour-mois-année (1)" (ex : 18-01-05
(1)). et si cette feuille existe deja qu'il incremente
le
je fais essayer de faire qqc avec vos reponses. merci beaucoup !!
-----Message d'origine----- Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la
meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le
chiffre entre parentheses...
meci d'avance .
Albator V
C'est parfait sauf que... en fait je voudrais que la 1ere feuille reste sous le format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine----- Bonjour, QUelque chose du genre à mettre dans la procédure de nommage
MaDate = Date On Error Resume Next existe = True nb = 1 Do While existe = True ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "(" & nb & ")"
If Err = 0 Then existe = False Exit Do Else nb = nb + 1 End If Loop
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a écrit dans le message de
news: 208901c4fd6c$5a1f9110$ Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le chiffre entre parentheses...
meci d'avance
.
C'est parfait sauf que...
en fait je voudrais que la 1ere feuille reste sous le
format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine-----
Bonjour,
QUelque chose du genre à mettre dans la procédure de
nommage
MaDate = Date
On Error Resume Next
existe = True
nb = 1
Do While existe = True
ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "("
& nb & ")"
If Err = 0 Then
existe = False
Exit Do
Else
nb = nb + 1
End If
Loop
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" <anonymous@discussions.microsoft.com> a
écrit dans le message de
j'ai un soucis avec une macro... dans un classeur se
trouve une feuille sous le nom de "matrice".
ma macro permet de copie cette feuille et de la renomer
sous la forme "jour-mois-année" (ex : 18-01-05).
maintenant si je souhaite creer une autre feuille avec la
meme date, il me met un message d'erreur puisqu'il ya
deja une feuille du meme nom. je voudrais donc qu'il
renome la feuille "jour-mois-année (1)" (ex : 18-01-05
(1)). et si cette feuille existe deja qu'il incremente le
chiffre entre parentheses...
C'est parfait sauf que... en fait je voudrais que la 1ere feuille reste sous le format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine----- Bonjour, QUelque chose du genre à mettre dans la procédure de nommage
MaDate = Date On Error Resume Next existe = True nb = 1 Do While existe = True ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "(" & nb & ")"
If Err = 0 Then existe = False Exit Do Else nb = nb + 1 End If Loop
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a écrit dans le message de
news: 208901c4fd6c$5a1f9110$ Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le chiffre entre parentheses...
meci d'avance
.
Pounet95
Bonjour, Insérer un petit test quand nb=1 et err=0 par exemple qui veut dire que la feuille n'existe pas et qu'elle peut donc être créée sans les (1) OK ?
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a écrit dans le message de news: 21b701c4fdfe$7451b990$ C'est parfait sauf que... en fait je voudrais que la 1ere feuille reste sous le format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine----- Bonjour, QUelque chose du genre à mettre dans la procédure de nommage
MaDate = Date On Error Resume Next existe = True nb = 1 Do While existe = True ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "(" & nb & ")"
If Err = 0 Then existe = False Exit Do Else nb = nb + 1 End If Loop
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a écrit dans le message de
news: 208901c4fd6c$5a1f9110$ Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le chiffre entre parentheses...
meci d'avance
.
Bonjour,
Insérer un petit test quand nb=1 et err=0 par exemple qui veut dire que la
feuille
n'existe pas et qu'elle peut donc être créée sans les (1)
OK ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 21b701c4fdfe$7451b990$a301280a@phx.gbl...
C'est parfait sauf que...
en fait je voudrais que la 1ere feuille reste sous le
format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine-----
Bonjour,
QUelque chose du genre à mettre dans la procédure de
nommage
MaDate = Date
On Error Resume Next
existe = True
nb = 1
Do While existe = True
ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "("
& nb & ")"
If Err = 0 Then
existe = False
Exit Do
Else
nb = nb + 1
End If
Loop
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" <anonymous@discussions.microsoft.com> a
écrit dans le message de
j'ai un soucis avec une macro... dans un classeur se
trouve une feuille sous le nom de "matrice".
ma macro permet de copie cette feuille et de la renomer
sous la forme "jour-mois-année" (ex : 18-01-05).
maintenant si je souhaite creer une autre feuille avec la
meme date, il me met un message d'erreur puisqu'il ya
deja une feuille du meme nom. je voudrais donc qu'il
renome la feuille "jour-mois-année (1)" (ex : 18-01-05
(1)). et si cette feuille existe deja qu'il incremente le
chiffre entre parentheses...
Bonjour, Insérer un petit test quand nb=1 et err=0 par exemple qui veut dire que la feuille n'existe pas et qu'elle peut donc être créée sans les (1) OK ?
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a écrit dans le message de news: 21b701c4fdfe$7451b990$ C'est parfait sauf que... en fait je voudrais que la 1ere feuille reste sous le format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine----- Bonjour, QUelque chose du genre à mettre dans la procédure de nommage
MaDate = Date On Error Resume Next existe = True nb = 1 Do While existe = True ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "(" & nb & ")"
If Err = 0 Then existe = False Exit Do Else nb = nb + 1 End If Loop
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a écrit dans le message de
news: 208901c4fd6c$5a1f9110$ Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le chiffre entre parentheses...
meci d'avance
.
Gaenonius
Excel fait ce que tu demandes, si j'ai correctement compris, (presque) tout seul lorsqu'il recopie une feuille existante. Avec un minimum d'adaptation pour "coller" à ta demande, ça pourrait donner ce code, à tester :
'''''''''''''''''''''''''' Sub CopieSpeciale() Dim NomFeuilleACopier As String, i As Long, Num NomFeuilleACopier = "19-01-05" For i = 1 To 5 Sheets(NomFeuilleACopier).Copy after:=Sheets(Sheets.Count) Num = Split(ActiveSheet.Name, "(")(1) Num = Left(Num, Len(Num) - 1) ActiveSheet.Name = NomFeuilleACopier & " (" & _ IIf(i - (Num - 1) = 0, CInt(Num - 1), Num) & ")" Next i End Sub ''''''''''''''''''''''''''''
-- Gaenonius
C'est parfait sauf que... en fait je voudrais que la 1ere feuille reste sous le format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine----- Bonjour, QUelque chose du genre à mettre dans la procédure de
nommage
MaDate = Date On Error Resume Next existe = True nb = 1 Do While existe = True ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "("
& nb & ")"
If Err = 0 Then existe = False Exit Do Else nb = nb + 1 End If Loop
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a
écrit dans le message de
news: 208901c4fd6c$5a1f9110$ Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le chiffre entre parentheses...
meci d'avance
.
Excel fait ce que tu demandes, si j'ai correctement compris, (presque) tout seul
lorsqu'il recopie une feuille existante. Avec un minimum d'adaptation pour
"coller" à ta demande, ça pourrait donner ce code, à tester :
''''''''''''''''''''''''''
Sub CopieSpeciale()
Dim NomFeuilleACopier As String, i As Long, Num
NomFeuilleACopier = "19-01-05"
For i = 1 To 5
Sheets(NomFeuilleACopier).Copy after:=Sheets(Sheets.Count)
Num = Split(ActiveSheet.Name, "(")(1)
Num = Left(Num, Len(Num) - 1)
ActiveSheet.Name = NomFeuilleACopier & " (" & _
IIf(i - (Num - 1) = 0, CInt(Num - 1), Num) & ")"
Next i
End Sub
''''''''''''''''''''''''''''
--
Gaenonius
C'est parfait sauf que...
en fait je voudrais que la 1ere feuille reste sous le
format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine-----
Bonjour,
QUelque chose du genre à mettre dans la procédure de
nommage
MaDate = Date
On Error Resume Next
existe = True
nb = 1
Do While existe = True
ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "("
& nb & ")"
If Err = 0 Then
existe = False
Exit Do
Else
nb = nb + 1
End If
Loop
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" <anonymous@discussions.microsoft.com> a
j'ai un soucis avec une macro... dans un classeur se
trouve une feuille sous le nom de "matrice".
ma macro permet de copie cette feuille et de la renomer
sous la forme "jour-mois-année" (ex : 18-01-05).
maintenant si je souhaite creer une autre feuille avec la
meme date, il me met un message d'erreur puisqu'il ya
deja une feuille du meme nom. je voudrais donc qu'il
renome la feuille "jour-mois-année (1)" (ex : 18-01-05
(1)). et si cette feuille existe deja qu'il incremente le
chiffre entre parentheses...
Excel fait ce que tu demandes, si j'ai correctement compris, (presque) tout seul lorsqu'il recopie une feuille existante. Avec un minimum d'adaptation pour "coller" à ta demande, ça pourrait donner ce code, à tester :
'''''''''''''''''''''''''' Sub CopieSpeciale() Dim NomFeuilleACopier As String, i As Long, Num NomFeuilleACopier = "19-01-05" For i = 1 To 5 Sheets(NomFeuilleACopier).Copy after:=Sheets(Sheets.Count) Num = Split(ActiveSheet.Name, "(")(1) Num = Left(Num, Len(Num) - 1) ActiveSheet.Name = NomFeuilleACopier & " (" & _ IIf(i - (Num - 1) = 0, CInt(Num - 1), Num) & ")" Next i End Sub ''''''''''''''''''''''''''''
-- Gaenonius
C'est parfait sauf que... en fait je voudrais que la 1ere feuille reste sous le format "jj-mm-aa" sans chiffre entre parentheses...
-----Message d'origine----- Bonjour, QUelque chose du genre à mettre dans la procédure de
nommage
MaDate = Date On Error Resume Next existe = True nb = 1 Do While existe = True ActiveSheet.Name = Format(MaDate, "dd-mm-yy") & "("
& nb & ")"
If Err = 0 Then existe = False Exit Do Else nb = nb + 1 End If Loop
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Albator V" a
écrit dans le message de
news: 208901c4fd6c$5a1f9110$ Bonjour,
j'ai un soucis avec une macro... dans un classeur se trouve une feuille sous le nom de "matrice". ma macro permet de copie cette feuille et de la renomer sous la forme "jour-mois-année" (ex : 18-01-05). maintenant si je souhaite creer une autre feuille avec la meme date, il me met un message d'erreur puisqu'il ya deja une feuille du meme nom. je voudrais donc qu'il renome la feuille "jour-mois-année (1)" (ex : 18-01-05 (1)). et si cette feuille existe deja qu'il incremente le chiffre entre parentheses...
