Discussion :

[wbraveheart]

Bonjour à tous,

Je vais tâcher d'être clair dans l'explication de mon problème. J'ai crée une macro qui permet de convertir une feuille de mon classeur en PDF et qui l'enregistre automatiquement dans un dossier avce le format:

"C:\.....\mon fichier","Format(Now,"dd mm yyyy")&".pdf"

Une fois l'enregistrement fait l'utilisateur peut utiliser un commandbutton pour envoyer directement un mail avec cette PJ sous Lotus.
Sauf que je n'arrive pas à lui faire sélectionner ce fichier, car la date changera toute les semaines, et je ne veux pas modifier la macro toutes les semaines en mettant la bonne date sur le fichier d'envoi. Voici ou ça bloque:

Code :

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

1
2
3
4
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "C:\...\.pdf", Attachment, "Attachment")
End If

Sauf que je ne peux pas insérer "Format(now,"dd mm yyyy") dans le chemin d'attachement!!!

Si quelqu'un avait une idée!!

Merci d'avance

[PMO2017]

Bonjour,

L'idée est de mémoriser le chemin du PDF créé dans une variable dont la portée n'est pas affectée par la fermeture du classeur qui la contient.
Pour ce faire on utilise l'espace de nom.

Regardez l'exemple de code ci-dessous et adaptez le à votre usage

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
'### constante à adapter ###
Public Const MON_PDF As String = "MonPdf"
'###########################
 
 
Sub aa()
Dim Chemin$
 
'/// votre traitement
'/// convertir une feuille du classeur en PDF et enregistrement automatique dans un dossier avec le format
'/// on obtient le chemin de ce fichier et on l'affecte à la variable Chemin$
 
 
Chemin$ = "C:\mon fichier_" & Format(Now, "dd mm yyyy") & ".pdf" 'à adapter
'--- Appel de la procédure qui crée un nom caché ---
Call EcrireNom(Chemin$)
 
 
'/// suite de votre traitement
 
End Sub
 
 
Sub bb()
Dim Chemin$
 
Chemin$ = LireNom
If Chemin$ = "" Then Exit Sub
MsgBox Chemin$  'pour visualiser (à jeter)
 
'/// votre traitement envoi mail
'If Attachment <> "" Then
'Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
'Set EmbedObj = AttachME.EMBEDOBJECT(1454, Chemin$, Attachment, "Attachment")
'End If
 
End Sub
 
 
Sub EcrireNom(Chemin As String)
Dim WB As Workbook
Dim N As Name
Set WB = ActiveWorkbook
On Error Resume Next
Set N = WB.Names(MON_PDF)
  '--- Si le nom n'existe pas on le crée ---
If Err <> 0 Then
  Set N = WB.Names.Add(Name:=MON_PDF, RefersTo:=Chemin, Visible:=False)
Else
  '--- Affectation du chemin au nom caché ---
  N.RefersTo = Chemin
End If
On Error GoTo 0
End Sub
 
 
Private Function LireNom() As String
Dim N As Name
On Error GoTo Erreur
Set N = ActiveWorkbook.Names(MON_PDF)
LireNom = Mid(N.RefersTo, 2)
Erreur:
End Function

Cordialement.

PMO
Patrick Morange