Discussion :

[tyures]

Bonjour,

Comme l'indique le titre je souhaiterais créer activement une page, jusque la j'y arrive mais le problème est que je n'arrive pas à la renommer.. J'ai pas mal recherché, de ce que j'ai compris il faut toucher à la propriété CodeName pour cela. J'ai donc quelque chose qui ressemble à cela (Le code ne vient pas de moi donc je ne le maitrise pas vraiment). Le tout bloque donc au moment du renommage. Sur la machine que j'utilise qui est en excel 2016 le code marche seulement si la fenêtre de débogage est ouverte, sur une autre machine en excel 2013 ça plante à chaque fois. Si vous avez une solution je suis preneur
Je vous remercie d'avance!

Code :

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

1
2
3
4
5
 
        Sheets.Add.Move After:=Sheets(Sheets.Count)
        Set ws = ActiveSheet
        ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = "LeNomPourCoder"
        ws.Name = "LeNomApparent"

[Jean-Philippe André]

Salut,

pourrait-on savoir quel interet tu trouves a changer le codename de ta feuille ? le nom d'affichage n'est-il pas deja suffisant ?

[tyures]

Ça me permet de rendre la feuille active par la suite. Je stock des donnée dans cette feuille que je rappelle plus tard dans le code.
En fait je dois créer une simulation d'un site marchant pour un cours d'informatique. A chaque nouveau client je créé un nouvelle feuille excel qui va ma permettre de stocker des données relative au client comme son dernier panier avant une déconnexion ou la date de la dernière connexion. Ainsi pour l'appeler je fais juste

Code :

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

1
2
3
 
Worksheet.Activate("PseudoDuMembre")
ActiveSheet.CommandeQueJeVeux

[Jean-Philippe André]

Ok,

tu seras bien le premier dans ma carriere que je croise qui a un besoin pareil

Le Activate fonctionne tres bien sur le nom d'affichage pourtant.

Quelle est exactement ce que tu appelles CommandeQueJeVeux ?

[tyures]

Je ne savais pas que ça marchait avec juste le name, je vais essayer de faire avec alors, ça me simplifierais bien la vie ^^

C'est principalement pour de la récupération de donnée que je vais ensuite afficher dans un UserForm ou du stockage de donnée entré par l'utilisateur. De commende de ce type

Code :

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

1
2
3
 
ActiveSheet.Range("B1") = Label1.caption
Label2.caption = ActiveSheet.Range("B1")

[Philippe Tulliez]

Bonjour,

A chaque nouveau client je créé un nouvelle feuille excel qui va ma permettre de stocker des données relative au client comme son dernier panier avant une déconnexion ou la date de la dernière connexion

Une feuille dans ton cas doit être considérée comme formulaire.
Si tu as une base de données bien structurée. Une feuille contenant le signalétique des clients, une feuille avec les données des articles et une feuille avec les transactions (date de l'achat, référence client, référence stock, etc.) une seule feuille permettra de consulter la transaction avec une seule ligne de code (Méthode AdvancedFilter).

[tyures]

Bonjour, merci de votre réponse.

Je ne suis pas sur de bien comprendre. J'ai en effet quelque chose d'assez structuré, une feuille avec les renseignements des client (pseudo, mdp, adresse, etc), une feuille par client contenant le panier mais pour ce qui est facture je n'ai pas encore créé un stockage a proprement parler, pour l'instant lors de la commande je crée une nouvelle feuille qui correspond à la facture avec un nom unique et je l'imprime par la suite en pdf, je n'ai pas encore mis en place un système pour retrouver ces anciennes facture. Mais je pensais passer sur un système plus simple avec un modèle et une feuille tampon, la feuille tampon est édité, imprimé puis effacé pour être réutilisé ensuite (Ça me permet de contourner mon problème de renommage). Mais j'avoue que je préfèrerais pouvoir garder une trace de chaque facture.
Qu'est ce que vous entendez par méthode AdvancedFilter?