Discussion :

[qwerty_213]

Bonjour,

Je souhaite renommer une feuille avec le code ci-dessous, cela me donne erreur d’exécution '13' incompatibilité du type

Code :

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

1
2
3
4
5
6
7
 
Sub CreationOnglet()
    Dim k As Date
    Dim pj As String
k = Vendredi 1 janvier 2016
pj = (Profil/Standard)
ActiveSheet.Name = Format([A1], "dddd dd mmmm yy ", pj,"yyyy")

[unparia]

Bonjour
c'est quoi, ton paramètre pj ?
et c'est quoi, ton paramètre "yyyy" ?

pj ne peut qu'être une constante ou un NUMERIQUE compris entre 0 et 9 pour définir l'argument firstdayofweek
le dernier argument (ton "yyyy" !) ne peut quant à lui qu'être également une constante ou un NUMERIQUE compris, lui, entre 0 et 3 pour définir l'argument firstweekofyear

[Jean-Philippe André]

Bonjour,

le format date en VBA s'ecrit en anglais entre #, avec le format #MM/JJ/AAA#

Code :

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

k = #01/01/2016#

les chaines de caracteres se delimitent par des guillemets "

Code :

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

pj = "(Profil/Standard)"

La fonction format ne prend que 2 parametres

Code :

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

ActiveSheet.Name = Format(Range("A1").Value, "dddd dd mmmm yy ") & pj & Format(Range("A1").value,"yyyy")

Beaucoup de petites choses a apprendre, aussi je te recommande quelques lectures :
http://laurent-ott.developpez.com/tu...el-vba-tome-1/
http://bidou.developpez.com/article/VBA/
http://silkyroad.developpez.com/VBA/DebuterMacros/
http://fauconnier.developpez.com/tut...istreur-macro/

[qwerty_213]

@ unparia : "yyyy" donne la taille du mot dans "format"

@ Jean-Philippe André: merci pour ta réponse, ca marche