XL 2016 VBA - Classeur Complément Excel - Comment conserver des valeurs ?

Dudu2 · 25 Février 2022

Bonjour,

Affaire un peu spéciale:

Le code utilisé est placé dans un classeur chargé en Complément Excel
Je travaille avec plusieurs UserForms que l'utilisateur peut évidemment déplacer à sa convenance où il veut et en particulier sur un 2ème écran.
Entre 2 affichages d'un UserForm donné, je conserve sa dernière position pour le ré-afficher à l'endroit où il l'avait préalablement déplacé.

Problème:

Hélas, lorsque le dernier classeur se ferme, je perds tous les positionnements car le Complément n'est plus utilisé et il sera rechargé à la prochaine ouverture d'un classeur avec des variables toutes ré-initialisées.

Question:

Comment conserver des valeurs dans un Complément d'une exécution à l'autre ?
Puis-je écrire dans une feuille du Complément ? Non !
Dois-je externaliser ces valeurs dans un fichier texte ?

patricktoulon · 25 Février 2022

re
exemple comme ça vite fait
je crée un xlam avec une petite fonction pour dire bonjour

dans le module dans le XLAM

VB:

Public Function hello()
MsgBox "bonjour"
End Function

je nomme le project pour le reconnaitre dans mes refs

je le sauve dans le dossier qui est destiné aux addins

je vais dans les options excel et j'active mon xlam

dans un nouveau classeur maintenant

je vais dans mes refs et je coche la reference au xlam

voilà mon xla est activé est installé dans le cnew classeur
je test la fonction pour voir
voilà ca marche

maintenant je vais enregistrer un mot dans la cellule A1 de la feuille(1) du xlam

VB:

Sub ecriture()    'dans la feuille(1) du xlam
'ecriture
    With...

patricktoulon · 25 Février 2022

bonsoir @Dudu2 tout est possible

écrire dans une module dynamiquement dans le xlam
écrire les custom property
un fichier texte
un xml
dans des cellules
dans des names
etc..etc...

Dudu2 · 25 Février 2022

Bonsoir @patricktoulon,

Merci de m'aider sur ce problème.
Si j'écris dans le xlam, dans les names ou dans les cellules, je dois l'enregistrer avec un thisworkbook.save ?

Dudu2 · 25 Février 2022

Est-ce que, lorsque le dernier classeur est fermé, on passe par le _BeforeClose() du classeur Complément pour faire cette manip de sauvegarde ?

Jacky67 · 25 Février 2022

Dudu2 à dit:
Bonjour,

Affaire un peu spéciale:

Le code utilisé est placé dans un classeur chargé en Complément Excel

Je travaille avec plusieurs UserForms que l'utilisateur peut évidemment déplacer à sa convenance où il veut et en particulier sur un 2ème écran.

Entre 2 affichages d'un UserForm donné, je conserve sa dernière position pour le ré-afficher à l'endroit où il l'avait préalablement déplacé.

Problème:

Hélas, lorsque le dernier classeur se ferme, je perds tous les positionnements car le Complément n'est plus utilisé et il sera rechargé à la prochaine ouverture d'un classeur avec des variables toutes ré-initialisées.

Question:

Comment conserver des valeurs dans un Complément d'une exécution à l'autre ?

Puis-je écrire dans une feuille du Complément ? Non !

Dois-je externaliser ces valeurs dans un fichier texte ?

Bonjour à tous,
Perso, pour mémoriser une position d'un userform dans un classeur, j'utilise ceci

VB:

Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Top = [Userform1Top]
    Me.Left = [Userform1letf]
End Sub

Private Sub UserForm_Layout()
 ActiveWorkbook.Names.Add Name:="Userform1Top", RefersTo:=UserForm1.Top
 ActiveWorkbook.Names.Add Name:="Userform1letf", RefersTo:=UserForm1.Left
End Sub

Créer et lancer "Private Sub UserForm_Layout()" en premier
A adapter également aux autres userform

patricktoulon · 25 Février 2022

re
exemple comme ça vite fait
je crée un xlam avec une petite fonction pour dire bonjour

dans le module dans le XLAM

VB:

Public Function hello()
MsgBox "bonjour"
End Function

je nomme le project pour le reconnaitre dans mes refs

je le sauve dans le dossier qui est destiné aux addins

je vais dans les options excel et j'active mon xlam

dans un nouveau classeur maintenant

je vais dans mes refs et je coche la reference au xlam

voilà mon xla est activé est installé dans le cnew classeur
je test la fonction pour voir
voilà ca marche

maintenant je vais enregistrer un mot dans la cellule A1 de la feuille(1) du xlam

VB:

Sub ecriture()    'dans la feuille(1) du xlam
'ecriture
    With Workbooks("testhello.xlam")
        .IsAddin = False
        DoEvents
        .Sheets(1).Cells(1) = "Salut @Dudu2"
        .IsAddin = True
        .Save
    End With
End Sub

voila
je ferme tout xlam et classeur porte d'entré et tout et tout

je ré ouvre mon new classeur
je lis la cellule du xlam

VB:

Sub testLecture()
    With Workbooks("testhello.xlam")
        MsgBox .Sheets(1).Cells(1)
    End With
End Sub

re
voilà terminé tu sais ou memoriser tes données

PS:
sur certaines config VA SAVOIR POURQUOI ??;
on est meme pas obligé de deactiver le xlam en tant addins ".isaddin=( fase/true ) "
je n'ai jamais trouvé pourquoi

je veux voir les feuilles de mon xlam

VB:

Sub VoirLesFeuillesDuXlamDansVBE() ' et regarder la cellule A1
 Workbooks("testhello.xlam").IsAddin = False
End Sub

le xlam s'affiche alors comme un classeur normal

voyons voir ce qu'il y a d’écrit en A1 dans le xlam

Dudu2 · 25 Février 2022

OK merci à tous les 2 pour vos conseils.
Je peux désormais avancer dans cette histoire.
Bonne soirée et merci encore...

patricktoulon · 25 Février 2022

à ton service

XL 2016 VBA - Classeur Complément Excel - Comment conserver des valeurs ?

Dudu2

XLDnaute Barbatruc

patricktoulon

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc