<Method 'Range' of object '_Global' failed> & et probleme de code de protection

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 : Pièce jointe 151418 et mon fichier : Pièce jointe 151421
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

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:

---

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

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

Que vaut :

Code:

---

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 :mrgreen:

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

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:

---

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é.

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

Citation:

---

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

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:

---

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

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

Code:

---

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 ;)

Citation:

---

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 ?

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é...)

Bonjour,

Citation:

---

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:

---

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

---

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

Amicalement

Bonjour tout le monde,

Citation:

---

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é.