Discussion :

[machdeux]

Bonjour,

N'étant pas spécialiste du développement en vba sous excel, j'ai un traitement qui récupère des données, met en forme celles-ci dans une nouvelle feuille excel puis envoi cette nouvelle feuille en automatique par mail (outlook).

Ce traitement fonctionne parfaitement en mode debug. Par contre en mode normal il plante avec le message d'erreur suivant :
Erreur d'exécution "48". erreur de chargement DLL. le debug ci-dessous. La DLL se trouve au bon endroit.

Quid de cette différence de fonctionnement entre le mode debug et mode normal ? Quelle solution possible ?

Je joins la partie code liée à cet envoi automatique.

Merci d'avance pour toutes les bonnes idées;

Machdeux




Sub activeOutlook()


v = Application.Version
v = Left(v, Len(v) - 2)
For Each r In Application.VBE.ActiveVBProject.References
If UCase(r.Name) = "OUTLOOK" Then Exit Sub
Next
refadd = "C:\Programmes\Microsoft Office\root\Office" + v + "\MSOUTL.OLB"
Application.VBE.ActiveVBProject.References.AddFromFile (refadd)


End Sub

Sub activeOutlook()


v = Application.Version
v = Left(v, Len(v) - 2)
For Each r In Application.VBE.ActiveVBProject.References
If UCase(r.Name) = "OUTLOOK" Then Exit Sub
Next
refadd = "C:\Programmes\Microsoft Office\root\Office" + v + "\MSOUTL.OLB"
Application.VBE.ActiveVBProject.References.AddFromFile (refadd)


End Sub