Discussion :

[cecilesgcib]

Bonjour,

Je souhaite ajouter une petite modification à la procédure suivante :

Private Sub tigrou()

If Weekday(Now) = 6 Then Worksheets("Sheet1").Copy after:=Worksheets("Sheet1")
Worksheets(1).Name = "Control" & Format(Day(Date) - 1, "") & Format(Month(Date), "") & Trim(Year(Date))


End Sub

Ma procédure indique que lorsque je clique sur l'image Tigrou, si on est vendredi, alors ma feuille 1 est copiée puis renomée Controlddmmyyyy.

Je souhaiterais que l'onglet soit renommé Control dd mm yyyy. En gros, je voudrais savoir comment indiquer dans mon code que je soouhaite que les éléments du nom de mon onglet renommé soient séparés...

Pourriez-vosu m'aider s'il vous plaît?

Merci par avance,

Cécile

[Pol63]

lol


"&" est le caractère qui sert à concaténer (mettre bout à bout des chaines de caractères)


donc il suffit de faire ca :

Code :

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

Worksheets(1).Name = "Control " & Format(Day(Date) - 1, "") & " " & Format(Month(Date), "") & " " & Trim(Year(Date))

tout simplement rajouter des espaces entre chaque element qui compose la chaine totale


j'irais pas jusqu'à dire que c'est la base, en fait si ... c'est la base ...

[cecilesgcib]

Merci pour le contenu de la réponse.
Cécile