Merci à vous tous et toutes

[Marc_du_78]

Bonjour amis(e)s du Forum,

Je viens cette fois, uniquement pour vous remercier et tout spécialement, (dans le désordre c'est vrai,
mais ce n'est pas le plus important), tous ceux et toutes celles qui ci-après, m'ont permis de mener à bien le défi relevé.

pat78 - justine - @+Thierry - ERIC S - gex1403 - edelweisseric - Didier mDF - CBernardT – jeromegmc
Jam - Ti_ - Pascal21 - Tibo - Natacha - Jean-Marie - Jacques87 - porcinet82 - Olivier - @Bobby – mutzik
Robert - Pascal76 - jp14 - Wan - Hervé - andré - Dan - MichelXld - michel_m

Mon seul regret, mais on ne peut pas tout avoir, concerne cette question restée sans réponse à savoir :
Comment activer les références VbaProject automatiquement à l’ouverture du classeur, objet de ce fil :
Lien supprimé

Mes chefs m’ont félicité pour l’excellence du travail accompli et pour sa simplicité d’utilisation.
Ces félicitations, c’est à vous tous et toutes qu’elles reviennent de plein droit et il juste que je vous en fasse part en vous remerciant très fort pour votre disponibilité, votre compétence, votre courtoisie et du temps que vous m’avez consacré. Je ne peux garder celles-ci pour moi, ce serait vraiment injuste, car sans vous je n’y serai jamais arrivé.
Merci encore à chacun, chacune de vous.
En vous souhaitant une bonne fin de semaine et un bon week-end qui arrive, espérant que le soleil sera au rendez-vous.

Marc_du_78

 

[andré]

Salut Marc,
salut le forum,

La meilleure façon de remercier ceux qui t'ont aidé, c'est d'aider à ton tour les autres.

Et cela tu le fais à profusion, je dirais même presque à perfusion.

Nous sommes donc quittes.

Bonne fin de journée.
Â+

 

[pat1545.]

Salut Marc,

Fred SIGONNEAU (mvp Excel) a publié ceci un jour, essaie si ça te convient:

Sub Addref()
'ajoute une référence à une bibliothèque
On Error Resume Next
'nom et chemin de la bibliothèque (par ex)
nomRef = 'C:\\Program Files\\Fichiers communs\\Microsoft Shared\\DAO\\Dao360.dll'
ThisWorkbook.VBProject.References.AddFromFile nomRef
End Sub

ou ceci:

Sub AddRefSelon()
Dim DLL1$, DLL2$, Msg$, S$


'dll préinstallée
DLL1 = 'c:\\Dossier1\\Compta1\\MaDll.dll'
'dll alternative
DLL2 = 'c:\\Dossier2\\Compta2\\MaDll.dll'


Msg = 'Dossier à utiliser (répondre 1 pour Compta1 ou 2 pour Compta2) :'
S = InputBox(Msg, , 1)
'si annulé ou choix du dossier de la dll préinstallée
If S = '' Or S = '1' Then Exit Sub


Dim LesRefs As Object, i&
On Error Resume Next
Set LesRefs = ThisWorkbook.VBProject.References
For i = 1 To LesRefs.Count
If UCase(LesRefs(i).fullpath) = UCase(DLL1) Then
'désinstalle la dll préinstallée
LesRefs.Remove LesRefs.Item(LesRefs(i).Name)
Exit For
End If
Next
'installe la dll alternative
LesRefs.AddFromFile DLL2


End Sub

 

[Marc_du_78]

Salut pat,
Un immense merci à toi pour m'avoir trouvé ce code dont je ferai dès demain l'essai.
En te souhaitant une bonne soirée.

 

[Marc_du_78]

Bonjour à chacun, chacune,
Merci à toi Patrick, le problème c'est que je ne connais pas le nom des Dll associées.
En te souhaitant un bon Week-end.

 

[edelweisseric]

Bonsoir Marc
Bonsoir à tous

L'Abbé Pierre a dit un jour :

' ... Un sourire c'est comme l'électricité. Cela éclaire le monde, mais c'est moins cher...'

Je croie sincèrement qu'un 'merci' également.

Bonne semaine à tous
Bonne semaine à toi Marc

A bientôt

Cordialement à tous