Bonjour,
 
j'ai créé une macro VBA pour l'envoi d'un fichier par mail (outlook).
Ce fichier contient un chiffre. J'ai besoin de mettre ce chiffre dans le titre (sujet) du mail. Connaissez vous un code qui puisse inscrire le contenu du fichier (csv) dans le titre du mail ?

Tu fais comment pour envoyer ton message?
 
Parce que tu peux faire un truc du genre
mailto:adresse@serveur?subject=LeTrucQueTuVeux
 
et voila

Pour envoyer mon message je passe par plusieurs étapes:
1. j'export sous forme de fichier au format desire : on force la generation du fichier dans le repertoire TEMP du serveur    
2. je crée le mail  
3. je défini le user pour envoyer des messages  
4. je donne l'adresse du destinataire
    ex:Mail.To="lduval@corp.tps.fr"    
5. Je mets un Sujet
    ex: Mail.Subject = "ALLO"    
6. Corps du message
    Mail.Body = "Veuillez consulter le fichier joint"    
7. J'indique le fichier joint avec en paramètre le nom du fichier
8. J'envoi le message
     
En faite c'est le contenu du fichier joint que je voudrais mettre dans le sujet du message.
 
Avez-vous une solution, svp?
 
Merci Beaucoup.
 
Lolotte D

quelque chose comme ça ? :
 
Dim NomFich As String
NomFich = "C:\DOCUMENT\Chemin\Fichier.csv"
 
Mail.Subject = ContenuCell(NomFich)
 
 
Function ContenuCell(strFile As String) As String
 
Dim appXl As Excel.Application
Set appXl = CreateObject("Excel.Application" )
 
With appXl
    .Workbooks.Open strFile
    ContenuCell = Range("A1" ).Value
End With
 
ActiveWindow.Close SaveChanges:=False
Set appXl = Nothing
 
End Function

Merci beaucoup.
 
Mais j'ai encore un petit problème, je planche dessus depuis le début de l'aprem et je ne vois pas où est la faute :
 
Alors ma macro ressemble à ça:
Sub GenFichier()
Dim str As String
Dim File As String
Dim Sep2 As String
 
Dim Mail
Dim appXl As Object
 
File = "c:\temp\ALLO.csv"
'Sujet
Mail.Subject = ContenuCell(File)
 
End Sub
 
 
Function ContenuCell(strFile As String) As String
 
    Set appXl = CreateObject("Excel.Application" )
 
    With appXl
        .Workbooks.Open strFile
        ContenuCell = .Range("A2" ).Value
    End With
 
   'Excel.Application.Close
   ActiveWindow.Close
   SaveChanges = False
   Set appXl = Nothing
     
End Function
 
Et au niveau de "ActiveWindow.Close". J'ai une erreur d'"objet requis" ???
 
Pouvez vous m'aider?
 
Merci.
 
Lolotte D