Discussion :

[sylvaincc]

Bonjour à vous tous,

Je présente mon problème :

Je suis en cours de création d'un fichier prélevant des informations à partir d'automates. Je reçoit les données sur mon fichier à la fin de la journée. Lors de la création du fichier Excel je le nomme de la façon suivante "Rapport_JJ.MM.AAAA".

Donc, ce fichier change tous les jours de nom. Je souhaiterai l'envoyer à différente personne dans l'usine par mail.

J'ai essayé plusieurs façon, macro, VB, créer un autre fichier Excel qui s'occupe d'envoyer le fichier "Rapport_JJ.MM.AAAA", mais le faite que le nom varie, me bloque tous le processus.

Je serais ravis d'avoir votre aide pour ainsi m'aider à avancer et à continuer.

Cordialement, sylvainc.

Excel 2003

[arosec]

Bonsoir,

Le plus simple me semble de créer un fichier vbs contenant le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim vFile
 
vFile = year(date) * 10000 + month(date) * 100 + day(date)
vFile="Rapport_" & mid(vFile,7,2) & "." & mid(vFile,5,2) & "." & mid(vFile,1,4)
 
SendMail "emailexp@gmail.com","emaildest1@gmail.com;emaildest2@free.fr","Sujet du message","Message...","smtp.mapme.fr","25","c:\" & vFile
 
Sub SendMail(Expediteur,Destinataire,Sujet,Message,Smtp,Port,File) 
  Set Mail = CreateObject("CDO.Message")
    With Mail
      .From=Expediteur
      .To=Destinataire
      .Subject=Sujet
      .TextBody=Message
      .AddAttachment File
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Smtp
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
      .Configuration.Fields.Update
      .Send
    End With
End Sub

Il faut modifier le serveur SMTP dans le code ci dessus.
Mais ... ce n'est plus du VBA ... et ce n'est plus dans Excel

[jijie]

Salut,


Essaye ça !

Pense à inscrire les adresses d'envoi et de réception ( Tu pourras créer des variables à ton goût) Ds User1 bouton 1 !

Si tu as des remarques ou vous avez .....

a+