Discussion :

[coco.on.off]

Bonjour,

Veuillez m'excuser d'avance pour toutes les fautes d'accentuation que je ferrai dans ce mail, les Anglais ne les connaissent pas.

Je tente d'ecrire un code (qui s'executera lorsque je cliquerai sur un bouton) afin de copier ma feuille source en un nouvel onglet.
La copie s'execute a merveille mais lorsque je veux renommer la feuille copier par une valeur de ma feuille source, Eh bien c'est la qu'arrive les problemes.

Je vous joint mon code : et mon fichier : Coraline_Macro1.xls
Lorsque je renome ma feuille ce message apparait : <Method 'Range' of object '_Global' failed>

J'ai mi des apostrophes aux lignes de codes de protection qui me genaient mais si je les enleve ce message apparait : runtime error 1004 : application-defined or object-defined error

Pourriez vous m'aider s'il vous plait.

Amicalement

[Philippe Tulliez]

Bonjour,
Je suppose que SignOffDate est une cellule nommée. Vraisemblablement le problème vient de là.
Essaye ce code avant de renommer la feuille, tu auras sans doute le même souci.

Code :

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

 MsgBox Format(Range("SignOffDate").Value, "yyyy-mm-dd")

SignOffDate fait référence à quoi, à une cellule, à une formule, à une valeur constante ?

Petite remarque: Pour éviter des problèmes de nom de feuille, utilise plutôt la syntaxe Sheets(Sheets.Count).Name au lieu de Sheets("Nom (2)").Name

[illight]

J'ai lancé ton code chez moi, il fonctionne correctement.

Que vaut :

Code :

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

Range("SignOffDate").Value

? Le problème vient peut-être de là...
Quand j'ai fait le test, j'ai mis une date bidon, et ça a bien marché

EDIT : grillé par Philippe

[coco.on.off]

Merci pour vos reposes si rapide.

Pour Philippe : J'ai rajoute la ligne de code avant de renommer la feuille et il me met le meme message d'erreur si ce n'est que lorsque je l'ajoute au "Add Watch" et bien il peut pas car l'expression est vide. J'ai aussi change par Sheets(Sheets.Count).Name et ca n'a rien change au probleme.

Pour Illight : Pourquoi mon code fonctionnerait-il chez toi et pas chez moi ? Il doit vraiment y avoir un truc que je pige pas ... La ligne de code Format(Range("SignOffDate").Value, yyyy-mm-dd) signifie qu'il prend la valeur de la cellule SignOffDate (J'ai du la renommer car il reconnaissait pas K33 peut etre du au fait que c'est une cellule merged : 3 cellules en une ...) et qu'il la reformate en yyyy-mm-dd car le format par defaut est yyyy/mm/aa et tu ne peux pas renommer un onglet avec le caratere "/".

Amicalement

[Theze]

Bonjour,

Il y a une faute de frappe dans le nom de l'argument, c'est "DrawingObjects:=True" sans "s" à "Drawing" (je suis sous 2003, peut être que le nom de la propriété a changée depuis 2007 ?).
Il est fortement conseiller de lier toutes propriété "Range" à son parent même si c'est un nom ça rend le code plus facile à maintenir. Dans ton fichier, ton Range est probablement vide ou n'existe pas et Excel n'aime pas les feuilles sans nom !!! Regarde le code ci-dessous si il te convient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub CreateSheets()
 
    Dim thisCell As Range
    Dim ShortName As String
    Dim Test As Range
 
    With Sheets("TOCA_SignOff")
 
        On Error Resume Next
        Set Test = .Range("SignOffDate")
 
        If Err.Number <> 0 Then
 
            MsgBox "Aucune plage ne porte le nom de 'SignOffDate' !"
            Exit Sub
 
        End If
 
        On Error GoTo 0
 
        If .Range("SignOffDate").Value = "" Then
 
            MsgBox "La cellule est vide !"
            Exit Sub
 
        End If
 
        .Unprotect
 
        .Copy , Sheets(Sheets.Count)
 
        ActiveSheet.Name = Format(.Range("SignOffDate").Value, "yyyy-mm-dd")
 
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
    End With
 
End Sub

Hervé.

[Philippe Tulliez]

Bonjour Hervé,
Bien vu et surtout bien lu jusqu'au bout.
Je n'avais pas fait attention au code en remarque et surtout pas lu la suite de la question

J'ai mi des apostrophes aux lignes de codes de protection qui me genaient mais si je les enleve ce message apparait : runtime error 1004 : application-defined or object-defined error

Effectivement, il ne faut pas d's à l'argument nommé DrawingObjects

[coco.on.off]

Merci Pour ta reponse

Je viens de faire fonctionner ton programme et il fonctionne J'ai essayer toutes les possibilites du IF les trois cas fonctionnent.
En revanche je comprends pas pourquoi ca fonctionne ...
Quelle est la difference entre tes 4 lignes de code :

Code :

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

1
2
3
4
.Unprotect
.Copy , Sheets(Sheets.Count)
ActiveSheet.Name = Format(.Range("SignOffDate").Value, "yyyy-mm-dd")
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

et mes lignes de code ? Parce que j'ai l'impression qu'on a ecrit la meme chose mais differemment.

Amicalement

[illight]

Si ce que t'as dit Philippe te renvoie une erreur, c'est que tu as un souci dans ta cellule nommée :

Code :

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

Format(Range("SignOffDate").Value, "yyyy-mm-dd")

Soit ta cellule nommée SignOffDate n'existe pas, ou c'est pas une date. Dans tous les cas, tua s déjà un problème ici. Dès que tu auras réglé ce petit souci, ta macro devrait fonctionner

La ligne de code Format(Range("SignOffDate").Value, yyyy-mm-dd) signifie qu'il prend la valeur de la cellule SignOffDate (J'ai du la renommer car il reconnaissait pas K33 peut etre du au fait que c'est une cellule merged : 3 cellules en une ...)

C'est une cellule fusionnée ? Normalement, la "valeur" de la cellule fusionnée est la première cellule.

Par exemple, si tu fusionnes de A1 à A3, la valeur de la cellule fusionnée est "dans A1";

Es-tu sûr que c'est une date ? En tout cas un format date, et pas du texte par exemple ?

[illight]

Tu peux nous donner la valeur de ta cellule ? vu que tu es en Angleterre (si j'ai bien compris),c 'est peut-être aussi un problème d'interprétation de la date (entre mois et jours, c'est inversé...)

[Philippe Tulliez]

Bonjour,

Pour Philippe : J'ai rajoute la ligne de code avant de renommer la feuille et il me met le meme message d'erreur si ce n'est que lorsque je l'ajoute au "Add Watch" et bien il peut pas car l'expression est vide. J'ai aussi change par Sheets(Sheets.Count).Name et ca n'a rien change au probleme.

Ma suggestion d'utiliser Sheets.Count en lieu et place du nom de la feuille copiée suivi de (2), était juste pour éviter des problèmes de noms recopier + espace.
Je n'ai pas non plus d'erreur en faisant tourner le code sans les lignes en remarque dont je n'ai pas tenu compte lors du test
Le test ci-dessous avec une cellule nommée "SignOffDate" de portée classeur contenant la date du jour.

Code :

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

1
2
3
4
5
Sub TestCreateSheet()
 Dim ThisCell As Range, ShortName As String, sht As Worksheet
 Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
 Sheets(Sheets.Count).Name = Format(Range("SignOffDate").Value, "yyyy-mm-dd")
End Sub

[coco.on.off]

En effet sans le "S" a drawing les lignes de code de protection fonctionnent mieux merci.

Amicalement

[Theze]

Bonjour tout le monde,

Quelle est la difference entre tes 4 lignes de code :
...
et mes lignes de code ? Parce que j'ai l'impression qu'on a ecrit la meme chose mais differemment.

Je ne me suis pas plus penché que ça sur ton code mais je pense que le problème venais de ta plage nommée comme te l'on dit illight et Philippe, j'ai juste ajouté des conditions de contrôle.

Hervé.