Création de feuille excel activement

Version imprimable

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 :D
Je vous remercie d'avance!
Code:

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"

10/04/2017, 10h10
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 ?
10/04/2017, 10h16
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:

1 2 3 Worksheet.Activate("PseudoDuMembre") ActiveSheet.CommandeQueJeVeux
10/04/2017, 10h21
Jean-Philippe André

Ok,

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

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

Quelle est exactement ce que tu appelles CommandeQueJeVeux ?
10/04/2017, 10h33
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:

1 2 3 ActiveSheet.Range("B1") = Label1.caption Label2.caption = ActiveSheet.Range("B1")
10/04/2017, 10h37
Philippe Tulliez

Bonjour,

Citation:

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).
10/04/2017, 10h51
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?
10/04/2017, 11h20
patricktoulon

re
Bonjour
a partir du moment ou tu ajoute un sheets c'est celui ci qui est actif
j'utilise l’écriture allongée( "set newsheet.....") de facon a que si le sheets n'est pas ajouté en dernier il est facile de le renommer en l’appelant par la variable (NewSheet.Name = "toto")
Code:

1 2 3 4 5 Sub test() Set NewSheet = Sheets.Add(After:=Sheets(Sheets.Count)) NewSheet.Name = "toto" MsgBox ActiveSheet.Name End Sub
10/04/2017, 11h31
Philippe Tulliez

Bonjour,

Citation:

une feuille par client contenant le panier

C'est justement là que le bas blesse
Imagine une entreprise qui a 200 clients, tu vas créer 200 feuilles ?
Et j'espère avoir mal compris qu'en plus si tu as plusieurs ventes par client cela ferait 200 feuilles * nombre de ventes

La méthode AdvancedFilter de l'objet Range c'est en VBA le filtre avancé d'excel qui permet entre-autre d'exporter des lignes suivant critères (ici code client et date, code de la transaction)
10/04/2017, 11h34
tyures

Bonjour,

J'arrive à renommer une feuille, c'est le CodeName qui me pose problème, mais je viens d'essayer d'activer ma feuille uniquement via son attribut Name et en effet cela marche, je ne savais pas que le Name d'une feuille était unique et utilisable dans le code, je pensais que ce n'était qu'un affichage. Du coup mon code marche maintenant :) Même si la question de base n'as pas été résolu ^^
10/04/2017, 11h41
tyures

Citation:

Envoyé par Philippe Tulliez

Bonjour,

C'est justement là que le bas blesse
Imagine une entreprise qui a 200 clients, tu vas créer 200 feuilles ?
Et j'espère avoir mal compris qu'en plus si tu as plusieurs ventes par client cela ferait 200 feuilles * nombre de ventes

La méthode AdvancedFilter de l'objet Range c'est en VBA le filtre avancé d'excel qui permet entre-autre d'exporter des lignes suivant critères (ici code client et date, code de la transaction)

Oui en effet, c'est totalement impensable pour une société d'une telle ampleur mais dans mon ça sil s'agit d'un simple exercices et je suis l'unique client (même s'il est vrai qu'il faut de manière général que le code soit applicable quelque soit le cas). J'ai choisi cette solution car ça me permet de ne pas effacer de données en écrivant dessus, étant donnée que je ne suis pas un expert en vba, je fais avec les bases de codes que j'ai et en cherchant des fonctions sur internet. Et pour l'instant je n'ai pas trouvé de solution simple pour pouvoir stockez le panier de chaque client dans une seule et même pages sans effacer les données des autres client.
Pour retrouver une ligne dans ma base de donnée j'utilise la fonction Find, il y a-t-il un avantage à passer par AdvancedFilter plutôt que Find?
10/04/2017, 12h04
Philippe Tulliez

Bonjour,

Citation:

J'ai choisi cette solution car ça me permet de ne pas effacer de données en écrivant dessus, étant donnée que je ne suis pas un expert en vba, je fais avec les bases de codes que j'ai et en cherchant des fonctions sur internet

Encore une fois une bonne organisation des données est la base de la réussite d'une application et sa pérennité

Citation:

Pour retrouver une ligne dans ma base de donnée j'utilise la fonction Find, il y a-t-il un avantage à passer par AdvancedFilter plutôt que Find?

S'il ne s'agit que d'une ligne à trouver, une fonction de recherche telle que RECHERCHEV ou INDEX avec EQUIV est suffisante il n'y a aucune raison d'utiliser du VBA
S'il s'agit d'exporter plusieurs lignes, il n'y a pas photos, la méthode AdvancedFilter est plus facile à programmer et à mettre en place.

Un peu de lecture Les filtres avancés ou élaborés dans Excel
10/04/2017, 12h09
tyures

Je suis bien d'accord mais jusqu’à maintenant je n'ai pas trouvé d'organisation fonctionnant et comme je suis limité dans le temps, devoir à rendre, j'ai choisis la facilité. Mais bien sur si j'arrive à un moment à trouver une organisation dans une feuille excel satisfaisant mes besoins j’appliquerais cette solution, cela va de soi.
Merci pour le lien, je vais aller voir