VBA Mailing automatique

Bonjour,

Etant encore novice sur VBA, j'ai essayé de créer une macro qui copie colle les feuilles de mon classeur dans un Mail Outlook.

La macro marche bien sur mon ordi, et aussi sur l'ordi d'une collègue, mais sur plusieurs autres ca me met une erreur : Projet ou bibliothèque introuvable

Voici le début des lignes de codes :

Sub Mail_Selection_Range_Outlook_Body()

    Dim rng As Range
        Dim rng2 As Range
            Dim rng3 As Range
                    Dim rng4 As Range
                        Dim rng5 As Range
                            Dim rng6 As Range
                                Dim rng7 As Range
                                    Dim rng8 As Range
    Dim OutApp As Object
    Dim OutMail As Object
    Dim StrBody As String
    Dim wb1 As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim FileExtStr As String

    Set wb1 = ActiveWorkbook

        'Make a copy of the file/Open it/Mail it/Delete it
    TempFilePath = "C:\Users\" & Environ$("Username") & "\Desktop\"
    TempFileName = "Fobo Check"
    FileExtStr = "." & LCase(Right(wb1.Name, Len(wb1.Name) - InStrRev(wb1.Name, ".", , 1)))

    wb1.Activate
    Sheets("Settings").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("1-MUREX TCI CASH").Select
    Range("A1").Select
    wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr

La ligne qui pose problème est celle-ci

  TempFilePath = "C:\Users\" & Environ$("Username") & "\Desktop\"

J'ai vérifié les accès réseau, et les ordis ont tous le même accès. Je ne vois donc pas où ca pose problème.

Y'aurait-il un moyen de contourner ce soucis ?

Merci

Bonjour,

Vérifier que la référence à Microsoft Outlook xx.x Object Library soit chargée et activée.

Bonjour,

mets un

 msgbox TempFilePath

juste après pour vérifier sur ton micro

tous les postes de travail ne sont pas organisés de la même façon

sabV a écrit :

Bonjour,

Vérifier que la référence à Microsoft Outlook xx.x Object Library soit chargée et activée.

C'était bien une référence manquante !! Merci

Merci pour ce retour, au plaisir!

pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!