Merci pour la réponse.
J'avais fini par trouver by myself... ce qui donne:
Public truc, Cible As String
Public Sub Saveascopy()
Sheets('BRQ').Select
Application.ActivePrinter = 'PDFcreator sur Ne01:'
ActiveWindow.SelectedSheets.PrintOut , , , , , False
'Cherche dans le dossier le dernier '.pdf' créé
'et affecte le nom du fichier trouvé à la variable 'Cible'
Set fs = Application.FileSearch
With fs
.LookIn = 'C:\\'
.Filename = '*.pdf'
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
peigne = Format(FileDateTime(.FoundFiles(i)), 'yy mm dd hh:mm:ss')
If peigne > truc Then
truc = peigne
Cible = .FoundFiles(i)
End If
Next i
Else
On Error Resume Next
End If
End With
'Envoie le tout via Outlook Express
Dim dest$, sujet$, texte$
Dim NompI
Dim Rep
dest = 'macintruc@zimbrec.fr'
sujet = 'BRQ'
texte = 'BRQ du jour'
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & dest & _
'?subject=' & sujet & _
'&Body=' & texte & ', 3', vbMaximizedFocus
SendKeys '%I' & 'p' & Cible & '~' & '{TAB 6}' & '^a' & '~' & '%s'
End Sub
Et ça marche!!!
Si quelqu'un à un commentaire sur ce code, il est le bienvenue.
Merci encore