Microsoft 365 Excel VBA

Ceres · 23 Septembre 2022

Bonjour,
Mon code consiste à envoyer un mail outlook avec une pièce jointe. L'adresse de la pièce jointe me pose problème car elle contient une date qui change tous les mois. Comment joindre please un fichier qui s'appelle "Suivi TTT Août 2022" contenant dans son nom texte et date ? j'essaye de joindre le fichier même si la date change et donc avec * mais j'arrive pas.

Sub EnvoiMail_TEST2()

Dim Fin As Date
Fin = DateSerial(Year(Date), Month(Date), 1) - 1
Dim ListeDest()
Dim ListeDestEnCopie()
Dim i As Long
Dim oMsgApp As Object
Dim oMsg As Object
Dim sListeDest As String
Dim sListeDestEnCopie As String
Dim sFichier
sFichier = "C:\Travaux\Fichier\Suivi TTT" & "*.xlsx"
If sFichier = "" Then
MsgBox "Aucun fichier sélectionné, opération annulée"
Exit Sub
End If
Set oMsgApp = CreateObject("Outlook.Application")
ListeDest() = Range("tblBase[Mail]")
ListeDestEnCopie() = Range("tblBase2[Mail]")
sListeDest = ""
sListeDestEnCopie = ""
For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1)
sListeDest = sListeDest & ";" & ListeDest(i, 1)
sListeDestEnCopie = sListeDestEnCopie & ";" & ListeDestEnCopie(i, 1)
Next
Set oMsg = oMsgApp.CreateItem(0)

With oMsg
.To = sListeDest
.CC = sListeDestEnCopie
.Attachments.Add sFichier
.Subject = "Suivi TTT " & Fin
.Body = "Bonjour," & Chr(10) & Chr(13) & "Nous vous prions de bien vouloir trouver ci-joint le fichier."
.Display
End With

End Sub

Phil69970 · 23 Septembre 2022

Bonjour @Ceres

Essaye de remplacer

sFichier = "C:\Travaux\Fichier\Suivi TTT" & "*.xlsx"

Par :

MaDate = MonthName(Month(Date))
sFichier = "C:\Travaux\Fichier\Suivi TTT " & MaDate & ".xlsx"

Merci de ton retour

@Phil69970

Dranreb · 23 Septembre 2022

Bonsoir.
J'aurais fait :

VB:

Dim sFichier As String
   sFichier = "C:\Travaux\Fichier\Suivi TTT " & WorksheetFunction.Proper(Format(Date, _
      "mmmm yyyy")) & ".xlsx"

Ceres · 25 Septembre 2022

Phil69970 à dit:
Bonjour @Ceres

Essaye de remplacer

Par :

Merci de ton retour

@Phil69970

Hello Phil, j'avais essayé ton premier code sans succès mais ton deuxième code je savais pas et je viens de l'essayer sans succès non plus. Si j'enlève la date dans le nom du fichier, le code me prend bien le fichier mais avec la date, il veut pas. J'ai un message Box qui me dit "vérifier le nom d'adresse ou le nom du fichier" mais je ne vois pas de problème avec le nom. Thank you

Ceres · 25 Septembre 2022

L'erreur ci-jointe

Ceres · 25 Septembre 2022

Dranreb à dit:
Bonsoir.
J'aurais fait :

VB:

Dim sFichier As String sFichier = "C:\Travaux\Fichier\Suivi TTT " & WorksheetFunction.Proper(Format(Date, _ "mmmm yyyy")) & ".xlsx"

Hello Dranreb, j'ai essayé ton code mais sans succès, le code veut pas prendre le fichier avec la date. Thank You

Dranreb · 25 Septembre 2022

Peut être le nom de fichier n'a pas été construit d'après le mois en cours, ou alors sous une forme légèrement différente ?

Ceres · 25 Septembre 2022

Dranreb à dit:
Peut être le nom de fichier n'a pas été construit d'après le mois en cours, ou alors sous une forme légèrement différente ?

La date dans le fichier est par exemple Suivi TTT Août 2022. Normalement le code devrait tenir compte du mois et l'année, mais il veut pas ! je peux envoyer le fichier sans date mais avec la date il veut pas le prendre en compte

Dranreb · 25 Septembre 2022

Vérifiez s'il existe bien un fichier de ce nom.

Ceres · 25 Septembre 2022

Dranreb à dit:
Vérifiez s'il existe bien un fichier de ce nom.

Sisi, le fichier en question est dans un dossier avec l'adresse. Le code arrive à joindre le fichier sans date mais dès que j'ajoute la date (Août 2022), le code ne le prend plus !

Dranreb · 25 Septembre 2022

Mettez en tout cas une instruction qui le vérifie :

VB:

Dim sFichier As String
sFichier = "C:\Travaux\Fichier\Suivi TTT " & WorksheetFunction.Proper( _
   Format(Date, "mmmm yyyy")) & ".xlsx"
If Dir(sFichier) = "" Then MsgBox "Le fichier suivant n'existe pas :" _
   & vbLf & sFichier, vbCritical: Exit Sub

Ceres · 25 Septembre 2022

Dranreb à dit:

Mettez en tout cas une instruction qui le vérifie :

VB:

Dim sFichier As String
sFichier = "C:\Travaux\Fichier\Suivi TTT " & WorksheetFunction.Proper( _
   Format(Date, "mmmm yyyy")) & ".xlsx"
If Dir(sFichier) = "" Then MsgBox "Le fichier suivant n'existe pas :" _
   & vbLf & sFichier, vbCritical: Exit Sub

En mettant ton code pour l'interrogation, le fichier n'existe pas car ça prend le mois en cours, septembre alors que j'ai besoin du mois précédent Août. Il faut que j'ajoute dans le code -1 pour que ça fonctionne je pense, un truc du genre dans mon premier code message Fin = DateSerial(Year(Date), Month(Date), 1) - 1

Dranreb · 25 Septembre 2022

Qui peut d'ailleurs s'écrire DateSerial(Year(Date), Month(Date), 0)
Oui ben alors prenez votre variable Fin au lieu de Date :

VB:

sFichier = "C:\Travaux\Fichier\Suivi TTT " & WorksheetFunction.Proper( _
   Format(Fin, "mmmm yyyy")) & ".xlsx"
If Dir(sFichier) = "" Then MsgBox "Le fichier suivant n'existe pas :" _
   & vbLf & sFichier, vbCritical: Exit Sub

Ceres · 25 Septembre 2022

Je crois qu'il me faut un code ci-dessous pour prendre le mois-1 mais sans le slash car le code ci-dessous marque uniquement qu'avec le slash dans nom du dossier : par exemple 31/Août/2022. Sauf que dans le nom du dossier on ne peut pas mettre slash dans une date. par exemple, on ne peut pas renommer un fichier comme Suivi TTT Août/2022

Dim Fin As Date
Fin = DateSerial(Year(Date), Month(Date), 1) - 1

Dranreb · 25 Septembre 2022

Non. Votre variable Fin est déclarée As Date. Alors c'est une date, et est du ressort d'un Format(Fin, "mmmm yyyy") c'est tout. Il n'y a pas de slash ni autre caractère dans une Date: elle est codée comme un nombre de jours depuis le 30/12/1899
Si elle est simplement convertie en String, comme dans une concaténation, elle est présentée par défaut sous le format dd/mm/yyyy

Microsoft 365 Excel VBA

Ceres

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Ceres

XLDnaute Nouveau

Ceres

XLDnaute Nouveau

Pièces jointes

Ceres

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Ceres

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Ceres

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Ceres

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Ceres

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Discussions similaires