Microsoft 365 Erreur Automation : L'objet invoqué s'est déconnecté de ses clients

CYNO68 · 12 Avril 2022

Bonjour
j'utilise une macro qui mer permet de convertir un bon de commande EXCEL en PDF et de l'envoyer par mail depuis plusieurs années et sur plusieurs postes différents
Elle fonctionne très bien sauf sur le poste d'un de mes collaborateurs et je n'arrive pas à comprendre pourquoi
Ci dessous le message qui s'affiche quand on exécute la macro

Le code bloque à cet endroit

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Pouvez vous m'aider à comprendre ce qu'il peut se passer sur ce poste ?
car quand j'exécute cette macro sur mon PC cela fonctionne correctement

Vous trouverez ci dessous le code entier

Sub ENVOI_COMMANDE()
' Nécessite la référence : Microsoft Outlook 1x Object Library

'Dim olMail As Outlook.MailItem
'Dim olApp As New Outlook.Application
Dim olApp As Object
Dim oLMail As Object
'Dim olMailItem As Object
Const olMailItem As Long = 0 ' permet d'eviter d'utiliser outlook object library

Dim CurFile As String
Dim FeuillePrecedente As String
Dim RR As String
Dim Nom_Commercial As String
Dim Numero_Semaine As String

Dim BdcEXCEL As String

Set olApp = CreateObject("Outlook.Application") ' New Outlook.Application

Set oLMail = olApp.CreateItem(olMailItem)

CurFile = ThisWorkbook.Path & "\COMMANDES MAIL\" & [G1].Value & " " & [P14].Value & "." & [P15].Value & "." & [P16].Value & " " & [K9].Value & " " & "Code Client" & " " & [K7].Value & ".pdf"
'Bon de commande PDF

BdcEXCEL = ThisWorkbook.Path & "\COMMANDES MAIL\" & [G1].Value & " " & [P14].Value & "." & [P15].Value & "." & [P16].Value & " " & [K9].Value & " " & "Code Client" & " " & [K7].Value & ".xlsx"
'Bon de commande EXCEL

Range("A17:O119").Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "commande version excel"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Selection.NumberFormat = "0000000000000"
Sheets("commande version excel").Select

Application.CutCopyMode = False
Sheets("commande version excel").Move
ChDir ThisWorkbook.Path & "\COMMANDES MAIL\"
ActiveWorkbook.SaveAs Filename:= _
BdcEXCEL, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Nom_Commercial = [A14].Value

'selectionner ADV en fonction du commercial

If Nom_Commercial = "VINCENT" Or Nom_Commercial = "THOMAS" Or Nom_Commercial = "SOIG" Or Nom_Commercial = "CLEMENT" Or Nom_Commercial = "MARIANNE" Then

RR = ""
End If

If Nom_Commercial = "BIXENTE" Or Nom_Commercial = "HELENE" Or Nom_Commercial = "GILLES" Or Nom_Commercial = "YOANN" Then
RR = ""
End If

If Nom_Commercial = "SIMON" Or Nom_Commercial = "FRANCK" Or Nom_Commercial = "SEBASTIEN" Or Nom_Commercial = "SYLVIE" Or Nom_Commercial = "OLIVIER" Or Nom_Commercial = "GUILLAUME" Then

RR = ""
End If

With oLMail

'determiner adresse d'envoi principale
.To = RR
' qui en copie
'.CC = ""
' qui en copie cachée
'.BCC = ""
'Objet du mail
.Subject = [G1].Value & " " & [P14].Value & "." & [P15].Value & "." & [P16].Value & " " & [K9].Value & " " & "Code Client" & " " & [K7].Value

'Texte
.Body = "Bonjour," & vbCrLf & vbCrLf & "Ci joint une nouvelle Offre/Commande " & vbCrLf & vbCrLf & "Merci" & vbCrLf & "Bonne journée" & vbCrLf & vbCrLf & [B14].Value

'Piece jointe
.Attachments.Add CurFile
.Attachments.Add BdcEXCEL

'Envoyer

.Display

End With

'MsgBox "Merci d'avoir envoyé votre RAPPORT !!!"

' Effacer les variables objets
Set oLMail = Nothing
Set olApp = Nothing

End Sub

fanch55 · 12 Avril 2022

Bonjour,

Je pense que l'instruction

ActiveWindow.Close

avant

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF

est mal placée .

CYNO68 · 19 Avril 2022

Bonjour
merci pour votre aide
j'ai essayé de la désactiver mais cela ne règle pas le problème
que préconisez vous ?

fanch55 · 20 Avril 2022

Bonjour,
Le classeur joint fonctionne sur ma machine :

CYNO68 · 21 Avril 2022

avez vous modifié quelque chose ?
car la macro en l'état fonctionne sur toutes les machines sauf celle de mon collaborateur

fanch55 · 21 Avril 2022

Bonjour,
La macro a été simplifiée et optimisée, regardez le code .
Si elle ne fonctionne pas sur le poste de votre collaborateur,
il est probable que le dossier \COMMANDES MAIL\ n'existe pas sur celui-ci .

Sinon, capturez le message d'erreur et communiquez le moi .

VB:

Sub ENVOI_COMMANDE()
Dim Mail            As Object
Dim Document        As String
Dim Rootfile        As String
Dim PdfFile         As String
Dim XlsFile         As String
Dim RR              As String

    Document = [G1].Value & " " & [P14].Value & "." & [P15].Value & "." & [P16].Value & " " & [K9].Value & " " & "Code Client" & " " & [K7].Value
    Rootfile = ThisWorkbook.Path & "\COMMANDES MAIL\" & Document
    PdfFile = Rootfile & ".pdf"  'Bon de commande PDF
    XlsFile = Rootfile & ".xlsx" 'Bon de commande EXCEL
    
    Application.CutCopyMode = False
        [A17:O119].Copy
        With Worksheets.Add(, ActiveSheet)
            .Name = "commande version excel"
             ActiveCell.PasteSpecial Paste:=xlPasteValues
            .Columns("C").NumberFormat = "0000000000000"
            .Move
        End With
    Application.CutCopyMode = False

    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=XlsFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile
        ActiveWindow.Close
    Application.DisplayAlerts = True

    'selectionner ADV en fonction du commercial
    Select Case [A14].Value
        Case "VINCENT", "THOMAS", "SOIG", "CLEMENT", "MARIANNE": RR = ""
        Case "BIXENTE", "HELENE", "GILLES", "YOANN": RR = ""
        Case "SIMON", "FRANCK", "SEBASTIEN", "SYLVIE", "OLIVIER", "GUILLAUME": RR = ""
    End Select

    Set Mail = CreateObject("Outlook.Application").CreateItem(olMailItem)
        With Mail
            .To = RR ' destinataire
            '.CC = "" ' en copie
            '.BCC = "" ' en copie cachée
            'Objet du mail
            .Subject = Document
            'Texte
            .Body = "Bonjour," & vbLf & vbLf & _
                    "Ci joint une nouvelle Offre/Commande " & vbLf & vbLf & _
                    "Merci" & vbLf & _
                    "Bonne journée" & vbLf & vbLf & _
                    [B14].Value
        
            'Pieces jointes
            .Attachments.Add PdfFile
            .Attachments.Add XlsFile
        
            .Display ' or .send
        
        End With
    Set Mail = Nothing
'MsgBox "Merci d'avoir envoyé votre RAPPORT !!!"

End Sub

CYNO68 · 22 Avril 2022

Bonjour
j'ai essayé sur le poste de mon collaborateur
on a exactement le même message d'erreur

fanch55 · 22 Avril 2022

Le message se produit toujours au moment de l'export Pdf ?

CYNO68 · 22 Avril 2022

oui
je pense que c'est son PC
il doit manquer quelquechose dans la bibiliothèque

fanch55 · 22 Avril 2022

Peut-être en faisant un réparer sur Office ?
L'exportation manuelle fonctionne correctement ?

Microsoft 365 Erreur Automation : L'objet invoqué s'est déconnecté de ses clients

CYNO68

XLDnaute Junior

fanch55

XLDnaute Barbatruc

CYNO68

XLDnaute Junior

fanch55

XLDnaute Barbatruc

Pièces jointes

CYNO68

XLDnaute Junior

fanch55

XLDnaute Barbatruc

CYNO68

XLDnaute Junior

fanch55

XLDnaute Barbatruc

CYNO68

XLDnaute Junior

fanch55

XLDnaute Barbatruc

Discussions similaires