Discussion :

[SuperNova13]

Bonjour à tous,

J'aimerai savoir si il est possible de déclarer des variables qui ne disparaissent pas à la fin de l’exécution du projet.
J'enregistre dans des variables le nom des feuilles que l'utilisateur crée tant que mon projet vba est en cours et j'aimerai pouvoir avoir le moyen de "sauvegarder" ces variables pour les réutiliser au moments ou l'utilisateur exécute de nouveau le projet vba.
Encore mieux si c'est possible, pouvoir sauvegarder le nom de ces feuilles dans des variables et qui ne disparaitraient pas après fermeture puis réouverture du classeur.

est-ce possible ? Sinon avant vous des idées à proposer rendraient possible la gestion des feuilles qui sont créés puis supprimées ?

[Daniel.C]

Bonjour,

Sinon avant vous des idées à proposer rendraient possible la gestion des feuilles qui sont créés puis supprimées ?

Il faut copier les feuilles dans un classeur historique avant de les supprimer. Maintenant, ça dépend de ce que tu veux faire exactement.

Quant à la sauvegarde des variables, soit tu les copies sur une feuille, soit tu les mets dans un nom défini.

[SuperNova13]

Salut, merci pour ta réponse

Au fait l'idée, c'était de détecter tel ou tel feuille ouverte ou manipuler par l'utilisateur pour pouvoir lors du lancement de la macro, travailler sur cette feuille. Par exemple si il l'utilisateur crée une nouvelle feuille, ferme le classeur en enregistrant, le ré-ouvre et exécute la macro.
Effectivement écrire le nom de la feuille qu'il crée dans une case d'une autre feuille devrait marcher mais c'est néanmoins pas très esthétique, c'est pourquoi je suis ouvert à toute proposition.
Merci

[Daniel.C]

La feuille peut être masquée, donc c'est neutre du point de vue de l'esthétique.

[JPierreM]

Bonjour,

Dans ThisWorkBook

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    laValeur = Application.InputBox("Saississez une valeur quelconque", , , , , , , 1 + 2)
    ActiveWorkbook.Save
End Sub
 
Private Sub Workbook_Open()
    test
End Sub

Dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Property Get laValeur() As Variant
    laValeur = [Essai]
End Property
 
Public Property Let laValeur(ByVal maValeur As Variant)
    ThisWorkbook.Names.Add "Essai", maValeur, False
End Property
 
Sub test()
On Error Resume Next
    MsgBox laValeur
End Sub

En ouvrant le classeur on récupère le valeur

A adapter

JP

[SuperNova13]

Merci pour vos réponses,
je n'avais pas pensé à cacher une feuille ou à ajouter des "noms" dans le classeur.