Discussion :

[arctica]

Bonjour à tous,

dans le déroulement d'une macro je dois juste ajouter le numéro de la semaine au titre si c'est possible,
ou ajouter le contenu de la cellule E4 (qui contient le numéro de la semaine)au titre pourriez vous m'aider?
voici le bout de code qui évidemment ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name "T:\INTERIM_2011\global_s1.xlsx" As "T:\INTERIM_2011\globale & range("E4").xlsx"

Merci

[Jean-Philippe André]

salut,

s'iol s'agit simplement de concatener l'infomartion, tu peux modifier ton acode avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name "T:\INTERIM_2011\global_s1.xlsx" As "T:\INTERIM_2011\globale" & range("E4").Value & ".xlsx"

Si tu souhaites obtenir un autre format, dis le nous

[MarcelG]

Bonjour à vous deux,

Je me permets, au cas où cela serait utile, de signaler un code proposé sur une discussion (mercatog, je crois)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Sub Numéro_de_semaine()
Dim NumSem As Integer, Annee As Integer
Set TxtDate1 = Range("A1")
NumSem = DatePart("ww", TxtDate1, 2, 2)
Annee = IIf(NumSem >= 52 And Month(TxtDate1) = 1, -1, 0) + Year(TxtDate1)
TxtSemaine = "S" & Right(Annee, 2) & Format(NumSem, "00")
Range("A2") = TxtSemaine
End Sub

[pgz]

Bonjour

Bonjour à vous deux,

Je me permets, au cas où cela serait utile, de signaler un code proposé sur une discussion (mercatog, je crois)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Sub Numéro_de_semaine()
Dim NumSem As Integer, Annee As Integer
Set TxtDate1 = Range("A1")
NumSem = DatePart("ww", TxtDate1, 2, 2)
Annee = IIf(NumSem >= 52 And Month(TxtDate1) = 1, -1, 0) + Year(TxtDate1)
TxtSemaine = "S" & Right(Annee, 2) & Format(NumSem, "00")
Range("A2") = TxtSemaine
End Sub

Ce code n'est pas totalement exact. Sauf erreur de ma part, il renvoie s0753 pour le 31/12/2007, au lieu de s0801.
Voir numérotation ISO des semaines sur Wiki

Cordialement,

PGZ

[arctica]

Merci à vous pour votre aide

Cependant jpcheck j'ai un souci avec le code qui ne me fais pas d'erreur mais qui m'écrit globale0.xlsx malgrèés qu'e il y est le chiffre 1 dans la cellule E4 et il m'indique le même plan même si je change de chiffre ai-je raté quelque chose ?

[Jean-Philippe André]

hello,

le mieux reste de preciser dans quelle worksheet tu travailles, exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name "T:\INTERIM_2011\global_s1.xlsx" As "T:\INTERIM_2011\globale" & Worksheet("Feuil1").Range("E4").Value & ".xlsx"