Nom feuille

myDearFriend!

XLDnaute Barbatruc

• 12 Septembre 2008

• #2

Re : Nom feuille

Bonsoir roro69,

Si j'ai bien compris la question, tu trouveras ci-joint une petite macro complémentaire (.xla) pour tenter d'y répondre (voir ci-dessous)

Un module de classe pour capter les évènements de niveau Application et en particulier l'évènement NewWorkbook() utile dans ton cas. Le code de cet évèenement est le suivant :

Code:

[COLOR=GRAY][B][I]DANS UN MODULE DE CLASSE[/I][/B][/COLOR]

[COLOR=GREEN]'myDearFriend!  -  www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Public WithEvents[/COLOR] AppXL [COLOR=NAVY]As[/COLOR] Application

[COLOR=NAVY]Private Sub[/COLOR] AppXL_NewWorkbook([COLOR=NAVY]ByVal[/COLOR] Wb [COLOR=NAVY]As[/COLOR] Excel.Workbook)
[COLOR=NAVY]Dim[/COLOR] Ws [COLOR=NAVY]As[/COLOR] Worksheet
[COLOR=NAVY]Dim[/COLOR] i [COLOR=NAVY]As Byte
    For Each[/COLOR] Ws [COLOR=NAVY]In[/COLOR] Wb.Worksheets
        i = i + 1
        Wb.VBProject.VBComponents(Ws.CodeName).Properties("_CodeName") = "F" & i
    [COLOR=NAVY]Next[/COLOR] Ws
[COLOR=NAVY]End Sub[/COLOR]

Une fois cette macro complémentaire Installée, chaque classeur nouvellement créé, verra le CodeName de ses feuilles renommé en "F1", "F2", ....

Attention : pour que ça fonctionne, dans les paramètres d'Excel, il faut avoir coché l'option "Faire confiance au projet Visual Basic" dans menu Outils / Macro... / Sécurité.

Code d'accès au projet VBA : "mDF"

Cordialement,

EDITION:
J'ai retiré la pièce jointe qui n'était pas fonctionnelle sous certaines configurations. Vous pouvez télécharger la version corrective dans mon post de 21h47 ci-dessous.

 

Dernière édition: 13 Septembre 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 13 Septembre 2008

• #3

Re : Nom feuille

Bonjour à tous,
Salut Roro 🙂,
Salut mDF 🙂,

Roro : peux-tu tester le code de mDF, j'ai une Erreur d'éxéution chez moi (XL 2003) alors que je suis persuadé que mDF à tester avant de déposer

Si d'autres membres peuvent tester le code, cela m'arrangerait (merci de préciser la version XL si elle n'est pas dans votre profil)

Merci

A++ 🙂 et 🙂
A+ à tous

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 13 Septembre 2008

• #4

Re : Nom feuille

Bonjour,
Roro🙂,
Mdf🙂,
JC😀,

J'ai testé (xl 2002) et cela fonctionne correctement. Comme le code de mdf est protégé, j'ai reproduit le truc sur un autre classeur et apparament tout va bien.

A+++ les amis

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 13 Septembre 2008

• #5

Re : Nom feuille

Bonjour,

Comme je veux vous aider, j'apporte ma modeste contribution.

Je viens de tester la xla. Même pb que JC, ca bugge (XL 2003).




Et une fois coché : accepter le projet visual basic, bug également :


PS : j'ai eu de gros soucis pour mettre l'image avec le site IMAGESHACK... ca faisait la croix rouge... J'ai dû lutter...

Bisous

 

Dernière édition: 13 Septembre 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 13 Septembre 2008

• #6

Re : Nom feuille

Bonjour à tous,
Re Hasco 😀
Salut T'ites Couettes 🙂,

Merci de vos tests.
Didier va surement nous remettre tout ça en ligne (je suis très intéressé)

A++ 😀 (le code est dans le message de Didier...)

Bises à 🙂

Je pense que tu as oublié de cocher dans la Sécurité Macro : Faire confiance à VBA (comme le recommandait Didier)

Moi j'ai ça :




A++ à tous

 

Dernière édition: 13 Septembre 2008

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 13 Septembre 2008

• #7

Re : Nom feuille

JC, dis moi pas de souci chez toi pour insérer une image de chez Imageshack. J'ai jamais eu de pb, et là impossible, j'ai beau mettre ou enlever le http présenté par défaut dans la boite de dialogue lorqu'on fait "insérer image", rien à faire.

Je choisis pourtant la dernière url donnée par le site...


Pour le truc, oui après j'ai eu ce message là en effet... mais j'arrive pas à coller l'image.

 

Dernière édition: 13 Septembre 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 13 Septembre 2008

• #8

Re : Nom feuille

Re,

Non pas de soucis mais j'ai installé ImageShack.
Je fais Alt I pour une capture partielle et il me crée un fichier texte et je choisis Direct Link

[09-13-2008_13-53-31]
Direct Link=
Ad Link= ImageShack - Hosting :: 09132008135331lb1.png
Thumbnail=

A+ et merci pour ton retour sur le "cochage" de la Sécurité Macro VBA

A+ à tous

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 13 Septembre 2008

• #9

Re : Nom feuille

Re,

Comment tu fais pour "installer Imageshack" ? sur le site ? Tu peux me dire en MP...

Pardon de squatter le fil...

Je peux vraiment plus mettre d'image. Quand je fais "insérer image", je colle l'adresse :

Hebergement gratuit d'images, heberger vos photos pour forum, msn et site sur casimages

ou

ImageShack - Hosting :: bugrenommefeuillesxla1pm1.jpg

et ca fait une croix rouge... Rien à faire. Snif, à l'aide...

Je n'avais jamais eu ce souci avant.

 

Dernière édition: 13 Septembre 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 13 Septembre 2008

• #10

Re : Nom feuille

Re,

Je n'ai pas installé ImageShak sur le site mais sur mon PC !!!

Nous voyons parfaitement ta première image
Je ne sais pas pourquoi tu as une croix 😕

A+

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 13 Septembre 2008

• #11

Re : Nom feuille

La première oui... Mais depuis dans les posts après plus rien... Et criscris vient d'essayer cela fait pareil.

Je voulais savoir comment tu avais installé Imageschack... si c'est faisable par tout le monde, bien sûr.

Comment tu fais pour "installer Imageshack" ? sur le site ? Tu peux me dire en MP...

Cliquez pour agrandir...

Il y a un ? après imageshack" ? sur le site ?

Je voulais dire : tu as trouvé un programme, sur leur site ?

Regarde ma jolie croix :

 

Dernière édition: 13 Septembre 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 13 Septembre 2008

• #12

Re : Nom feuille

Re,

Oups, je n'avais pas vu l'interrogation !!

QuickShot​

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 13 Septembre 2008

• #13

Re : Nom feuille

Merci pour le lien Quick truc... J'essaierai sans doute, si je n'y parviens pas un autre jour. Et c'est sûrement plus simple que ce que je fais.

Bises

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 13 Septembre 2008

• #14

Re : Nom feuille

Bonjour tous le monde,

Jean-Claude et Brigitte, j'ai la même erreur 9.
Cette ligne est surlignée en jaune :

Code:

Wb.VBProject.VBComponents(Ws.CodeName).Properties("_CodeName") = "F" & i

Niveau sécurité des macros et confiance "OK"
Là je suis sous Excel 2002 au boulot.

Bonne soirée

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 13 Septembre 2008

• #15

Re : Nom feuille

Bonsoir roro69, JCGL, Hasco, Brigitte, bqtr, le Forum,

Tout d'abord, merci à tous d'avoir bien voulu tester ce code et à JCGL de m'avoir informé du problème dans l'attente du retour (?) de roro69.
Malheureusement le mystère reste entier, visiblement, la version XL n'y est pour rien.

Merci Hasco, le code est protégé uniquement pour ne pas encombrer inutilement l'arborescence des projets de l'éditeur VBA. Comme t'en informe JCGL, le mot de passe est indiqué dans mon post (poster un code dans un forum de discussions et en empêcher l'accès serait tout simplement débile... je n'en suis pas encore à ce point.😉 )

Brigite, merci également. Pour l'erreur 1004 : "L'accès par programme au projet Visual Basic n'est pas fiable" est réglé avec ce que j'indique dans le post précédent également.

Remerciement aussi pour Btqr. Peux-tu me dire quelle est la valeur contenue de Ws.CodeName lorsque le code s'interrompt sur cette ligne STP ?

Cordialement,

 

Vote positif 0 Vote négatif