Discussion :

[djibouli]

bonjour, je joint des pieces jointe a un mail en lui donnant un chemin d'acces au fichier mais une partie du nom des fichiers changes tout le temps aussi j'aimerai pouvoir dire au programme :vas chercher le fichier comme ca:

Code :

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

MyMail.Attachments.Add "C:\Partages\Donnees\THUNE\" & ann & "\" & sess & "\ " & '*' & " fact " & num & ".pdf".

Où les ** sont la partie du nom du fichier qui peu différer par contre la derniére partie (num) est unique et c'est donc comme ca que je repére mon fichier.

existe il quelque chose pour ignorer une partie du nom du fichier
ou peut etre un truc pour rechercher un fichier avec une partie de son nom?

merci de vos réponse a mes question souvant peu claire...

[ClaudeLELOUP]

Bonjour,

Tu dois d’abord chercher le nom exact de ton fichier avant de le joindre.

Voici une fonction qui te permet de le trouver.

Elle requiert la bibliothèque Microsoft Scripting Runtime

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
Option Compare Database
Option Explicit
 
 
Public Function PetitPoucet(Chemin As String, Modele As String) As String
  Dim FSO As Scripting.FileSystemObject
  Dim sRep As Scripting.Folder
  Dim sFichier As Scripting.File
  Set FSO = New Scripting.FileSystemObject
  Set sRep = FSO.GetFolder(Chemin)
    'Boucle sur les fichiers
    For Each sFichier In sRep.Files
      If sFichier.Name Like Modele Then
           PetitPoucet = sFichier.Name
           Exit Function
      End If
    Next sFichier
End Function

Exemple





Dans ton cas, cela devrait ressembler à :

Code :

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

MyMail.Attachments.Add PetitPoucet("C:\Partages\Donnees\THUNE\" & ann & "\" & sess,"*fact" & num & ".pdf"

[djibouli]

merci c'est ou que je vous mets des points?