XL 2019 - 2016 Code VBA qui ne s'exécute correctement qu'en debug

Version imprimable

09/11/2022, 17h10
machdeux

1 pièce(s) jointe(s)

XL 2019 - 2016 Code VBA qui ne s'exécute correctement qu'en debug

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

Pièce jointe 628676
https://www.developpez.net/forums/im...AASUVORK5CYII=

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

Bonjour Machdeux

Oula mais qu'est-ce que c'est que ce code 😱
Surtout quand je lis "N'étant pas spécialiste du développement en vba sous excel"

Alors pourquoi vouloir ajouter par code une référence à VBA Project 🤔

Pour envoyer un mail, il est totalement inutile voir dangereux d'ajouter une référence il suffit d'utiliser ce qu'appelle le "Late binding"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub SendMail()  ' Déclaration des variables utilisées dans le code
  Dim OutObj As Object, Email As Object
  ' Création d'une instance Outlook pour envoyer un mail
  Set OutObj = CreateObject("Outlook.Application")
  Set Email = OutObj.CreateItem(0)
  ' Avec mon objet Email
  With Email
    .Display  ' Afficher le mail pour afficher la signature
    ' Destinataire(s) du mail
    .To = "emaildestinataire@fai.fr"
    ' Copie du mail
    .CC = "emaildestinataire@fai.fr"
    ' Sujet de l'eMail
    .Subject = "Ceci est le sujet de mon mail"
    ' Corps du mail avec signature à la fin
    .HtmlBody = "Bonjour," & "<BR><BR>" _
    & "Ceci est un exemple<BR><BR>" & .HtmlBody
    ' Joindre un fichier si souhaité
    '.Attachments.Add sPath & sFileName
    ' Envoyer l'email
    '.Send
  End With
  ' Effacer les variable objet
  Set Email = Nothing: Set OutObj = Nothing
End Sub

A+

09/11/2022, 19h03
machdeux

Merci pour ce retour. Je corrige en fait mon message précédent car je suis plutôt dans la case débutant en VBA.

Ce n'est pas moi qui ai écrit ce code. je reprend juste un développement existant auquel j'ai apporté quelques modifs. Mais cette partie du code n'a pas du tout été touchée.

Je vais essayer de mettre en application la nouvelle approche.

A+

Machdeux
09/11/2022, 20h30
Valtrase

Salut,
Je serais tenté d'ajouter que Philippe Tullies a écrit sur son blog un petit article très intéressant sur le Early et Late binding.
VBA Excel - La compilation conditionnelle ou comment développer en EarlyBinding et distribuer en late binding
10/11/2022, 21h04
deedolith

J'ajouterai que s'amuser avec les références à l'exécution n'est jamais une bonne idée.

Donc met cet exemple dans une boite fermée à double tour, et jette la clef.

VBA permet de faire plein de choses, mais le fait que c'est faisable n'implique pas que c'est correcte.
14/11/2022, 09h59
Tête de chat

Bonjour,

je pense que la personne qui a écrit ce code était confrontée à un déploiement en milieu instable qui lui interdisait de figer la référence de la bibliothèque Outlook. En effet si tu mets à l'instant t une référence vers une bibliothèque de version N est que le poste de l'utilisateur a une version N+p, tout se passe bien. Mais avec une version N-k ça coince. Pire si tu diffuses avec une version N, qu'un utilisateur "en avance" a une version N+1 et qu'il enregistre, le reste du monde se retrouve dans le cas N-k et ne peut plus utiliser le classeur.

Pour le plus grand bonheur des foules, les organismes ont maintenant une gestion de parc et de licence Office telles qu'on peut postuler que tout le monde a la même version et s'affranchir de cette gestion compliquée. Tu pourrait donc envisager de virer ce bout de code et ajouter la référence directement dans l'éditeur de projet.