anthooooony
XLDnaute Occasionnel
Bonjour,
Je m'occupe des litiges de ma société. J'ai crée un fichier qui permet de chercher des fichiers pdf et à sa fermeture envoyer un mail à des destinataires spécifiques.
Code 1 code unique
Code 2 code unique X nbre d'agence = 22 = 1071 lignes de code
Il y a t'il un moyen pour simplifier mon code 2?
Est-il possible de créer une table dans un classeur comme dans le fichier joint en test
Auriez vous une piste une info pour m'aider s'il vous plait?
un grand merci d'avance
anthony
Reférence dynamique
PDF Nom du PDF = Nom agence
TO
C
BCC
Ps : on a une notion de date Litiges_agence_alsace_(" & Format(Date, "ddmmyyyy") & ").pdf"
-----------------------------CODE 1------------------------------------
-----------------------------CODE 2------------------------------------
Je m'occupe des litiges de ma société. J'ai crée un fichier qui permet de chercher des fichiers pdf et à sa fermeture envoyer un mail à des destinataires spécifiques.
Code 1 code unique
Code 2 code unique X nbre d'agence = 22 = 1071 lignes de code
Il y a t'il un moyen pour simplifier mon code 2?
Est-il possible de créer une table dans un classeur comme dans le fichier joint en test
Auriez vous une piste une info pour m'aider s'il vous plait?
un grand merci d'avance
anthony
Reférence dynamique
PDF Nom du PDF = Nom agence
TO
C
BCC
Ps : on a une notion de date Litiges_agence_alsace_(" & Format(Date, "ddmmyyyy") & ").pdf"
-----------------------------CODE 1------------------------------------
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = ""
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_agence_alsace_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End sub
-----------------------------CODE 2------------------------------------
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = ""
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_agence_alsace_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL AGENCE Champagne Ardennes 2
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = ""
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Champagne_Ardennes_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL AGENCE P 3
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = ""
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_P(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Gra 4
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "xxx@xxx"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_agence_gra_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Gra 5
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "yyy@yyy"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Gra(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Gran 6
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "aaa@aaaa"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_agence_Gran(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Gran 7
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "bbb@bbb"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_agence_Gran(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Ht 8
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "ccc@ccc"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Ht_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Agence Ind 9
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "ddd@ddd"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Ind(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Instal 10
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "eee@eee"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Instal(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Lor 11
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "fff@fff"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_agence_lor(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence 12
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "ggg@ggg"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Grands Tr 13
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "hhh@hhh"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Grand_Tr_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Nord 14
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "iii@iii"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_NORD_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Pari 15
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "jjj@jjj"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Pari(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Gesc 16
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "kkk@kkk"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Gesc(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Pa 17
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "sss@sss"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Pa(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence pari 18
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "azaz@zazaz"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Pari(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence Par 19
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "ddd@ddd"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Par(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence PIC 20
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "fefefe@efefe"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Pi_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
' MAIL Agence SEC 21
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "zdzdz@zdzdz"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Société_Sec_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
'_______
' MAIL Agence PAris Sud Litiges 22
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "lalala@lalala"
.CC = ""
.BCC = ""
.Subject = "Litiges clients"
.body = "Bonjour," _
& vbCrLf & "" & vbCrLf & _
"Je vous prie de trouver ci-joint le reporting mensuel des litiges déclarés sur votre agence." _
& vbCrLf & "" & vbCrLf & _
"Le PDF se compose de 4 états :" _
& vbCrLf & "" & vbCrLf & _
"* Synthèse Agence => Vue globale en montant et en nombre de pièces litigieuses actives, représentée par le stock." _
& vbCrLf & _
"* Top 10 par type de profil => Deux profils existent :" & vbCrLf & _
" --> De type administratifs dont la résolution est plutôt du ressort de l'équipe gestion." & vbCrLf & _
" --> De type technico-commercial, dont la résolution est plutôt du ressort des RD." & vbCrLf & _
"* Top 20 retard de paiement => classement des litiges par ancienneté décroissante (nombre de jours passés depuis la déclaration du litige)" & vbLf & _
"* Détail pièces => Liste exhaustive des clients déclarés sur votre agence avec les commentaires associés" _
& vbCrLf & "" & vbCrLf & _
"Ces états vous parviendront mensuellement." _
& vbCrLf & "" & vbCrLf & _
"Pour rappel, les litiges sont disponibles en temps réel sur la base sidetrade dans l'onglet litige associé à votre identifiant de connexion." _
& vbCrLf & "" & vbCrLf & _
"Je reste à votre entière disposition pour répondre à vos éventuelles questions." _
& vbCrLf & "" & vbCrLf & "Cordialement." & vbCrLf & "" & vbCrLf & "C" & vbCrLf & ""
.Attachments.Add "R:\CSP STATS\Litiges\Litiges clients pour agence\Historisation PDF\Litiges_Agence_Paris_Sud_(" & Format(Date, "ddmmyyyy") & ").pdf"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
'_______
End Sub
Private Sub Workbook_Open()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = "R:\CSP STATS\Litiges\Litiges clients pour agence\"
Fichier = Dir(Chemin & "*.xlsm")
Do While Fichier <> ""
Set Wb = Workbooks.Open(Chemin & Fichier)
Application.DisplayAlerts = False
ActiveWorkbook.RefreshAll
'suite de la procedure
'
Wb.Close True
Application.DisplayAlerts = True
Set Wb = Nothing
Fichier = Dir
Loop
MsgBox ("Les fichiers ont été mis à jour !!!")
ActiveWorkbook.Close
End Sub