Mail vba
sasuke
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je veux envoyer un mail avec un fichier en piece jointe.
Mon problème est que mon fichier change de nom (il prend comme nom la date du jour)
.AddAttachment ("C\..................\???")
quand je met la date du jour (a la place de ???) ca marche
mais quand je met ma varibale nomfichier (string) (nomfichier =Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name) ca ne marche plus.
Si quelqu'un à une idée.
merci pour votre aide
je veux envoyer un mail avec un fichier en piece jointe.
Mon problème est que mon fichier change de nom (il prend comme nom la date du jour)
.AddAttachment ("C\..................\???")
quand je met la date du jour (a la place de ???) ca marche
mais quand je met ma varibale nomfichier (string) (nomfichier =Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name) ca ne marche plus.
Si quelqu'un à une idée.
merci pour votre aide
A voir également:
- Mail vba
- Publipostage mail - Accueil - Word
- Windows live mail - Télécharger - Mail
- Créer une adresse mail hotmail - Guide
- Comment télécharger un mail - Guide
- Cegetel mail ✓ - Forum Mail
2 réponses
transforme ta date en texte
et n'utilise pas de charactère spéciaux dans le nom
utilise la fonction cStr pour convertir en texte
et n'utilise pas de charactère spéciaux dans le nom
utilise la fonction cStr pour convertir en texte
ce n'est pas ce que j'ai dit....
les fonctions day,month,year revoie un entier (valeur numerique)
le nom du fichier est une chaine de charactère : string
donc il faut convertir
Mon explication est-elle plus claire?
les fonctions day,month,year revoie un entier (valeur numerique)
le nom du fichier est une chaine de charactère : string
donc il faut convertir
Sub test() Dim d As Date Dim j, m, a Dim tdate As String d = Date ' la date systeme j = Day(d) ' un entier m = Month(d) 'un entier a = Year(d) ' un entier tdate = CStr(j) & CStr(m) & CStr(a) ' une chaine End Sub
Mon explication est-elle plus claire?