Bonjour a tous,

Je voudrais savoir si quelqu'un avait la solution a mon problème :
j’envoie une commande par mail au format .pdf

Je voudrais nommer le fichier avec juste le numéro de ma commande, par exemple:
"AC12ZZ09917.pdf"

Pour le moment le fichier qui est créer est nommé de cette manière:
"ZEBONCDEMAIL_CrDll_CLTEST.pdf"

J'ai essayé avec cette méthode:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
NBPAR+=1:PARAMETRE(NBPAR) = "_ExportFile="+chr$(1)+"\\Serveur2003\pdf x3"+"[L]NUMCDE"+".PDF"
Le chemin est juste c'est sur, mais aucun fichier n'est crée et le fichier .pdf envoyé par mail n'est pas renommer non plus.

(Voir ligne 84)

Voici mon code:
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
#############################################################
#----------------Envoi ZEBONCDEMAIL par mail----------------# 
#############################################################
 
$ACTION
 
 
Case ACTION
When "MESSAGERIE" : Gosub MESSAGERIE
Endcase
Return
 
 
#----------------Declaration des tables----------------# 
$OUVRE
If clalev([F:ZPOR])=0 : Local File    PORDER    [ZPOR] : Endif					#Table Commande fournisseur
If clalev([F:ZCNT])=0 : Local File    CONTACT    [ZCNT] : Endif					#Table Contact
If clalev([F:ZAIN])=0 : Local File    CONTACTCRM    [ZAIN] : Endif				#Table Contact (détails)
If clalev([F:ZAUT])=0 : Local File    AUTILIS    [ZAUT] : Endif					#Table Utilisateur
If clalev([F:ZFLY])=0 : Local File    FACILITY    [ZFLY] : Endif				#Table Site
Return
 
 
#--------------Declaration des variables---------------# 
$DECLARE
Local Char MAILFOURNISSEUR(50) , NUMCDE(30) , CONTACTNOM(30) , CONTACTPRENOM(30) , CONTACTCIVILITE(30) , ACHETEURNOM(30)
Local Char ACHETEURSOCIETE(50) , ACHETEURFAX(30) , ACHETEURMAIL(50) , ACHETEURTEL(30) 
Local Char PARAMETRE (250)(1..100)
Local Char SERVEUR (30)
Return
 
 
#------------------Debut du programme------------------# 
$MESSAGERIE
 
#Ouverture des tables
Gosub OUVRE
 
 
#Declaration des variables
Gosub DECLARE
 
 
#Lier la table avec l'ecran
Read [F:ZPOR]POH0 = [M:POH0]POHNUM					#Lier la table PORDER a l'écran  avec le champ CCNCRM
 
#Restrisction pour trouver le contact par défaut du fournisseur
For[F:ZCNT] Where [F:ZCNT]BPATYP = 1 and [F:ZCNT]BPANUM = [F:ZPOR]BPSNUM and [F:ZCNT]CNTFLG = 2
 [L]MAILFOURNISSEUR = [F:ZCNT]WEB					#Mail du fournisseur
Next
 
 
Read [F:ZAIN]AIN0 = [F:ZCNT]CCNCRM 					#Lier la table CONTACTCRM (détails) et CONTACT avec le champ CCNCRM
[L]CONTACTNOM = [F:ZAIN]CNTLNA						#Nom du contact
[L]CONTACTPRENOM = [F:ZAIN]CNTFNA					#Prenom du contact
[L]CONTACTCIVILITE = vireblc((format$("LA941:20X",[F:ZAIN]CNTTTL)),1)				#Civilité du contact recup du menu et nettoyage des espaces
 
 
Read [F:ZAUT]CODUSR = [F:ZPOR]BUY	 				#Lier la table AUTILIS et PORDER avec les champs BUY
[L]ACHETEURNOM = [F:ZAUT]NOMUSR						#Nom et prenom de l'acheteur
[L]ACHETEURTEL = [F:ZAUT]TELEP						#Tel de l'acheteur
[L]ACHETEURFAX = [F:ZAUT]FAX						#Fax de l'acheteur
[L]ACHETEURMAIL = [F:ZAUT]ADDEML					#Email de l'acheteur
 
 
Read [F:ZFLY]FCY0 = [F:ZPOR]INVFCY 					#Lier la table PORDER et FACILITY avec le champ CCNCRM
[L]ACHETEURSOCIETE = [F:ZFLY]FCYNAM					#Societe de l'acheteur
 
 
[L]NUMCDE = [F:ZPOR]POHNUM							#Num de commande
 
 
#Creation de la fenetre avec l'ajout des variables
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailToList="+chr$(1)+[L]MAILFOURNISSEUR
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailSubject="+chr$(1)+"Ci-joint notre commande n°" + [L]NUMCDE 
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(1)+[L]CONTACTCIVILITE + " " + [L]CONTACTNOM + " " + [L]CONTACTPRENOM + "," + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(2)+"Merci de prendre en compte notre commande" + [L]NUMCDE + "." + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(3)+"Cordialement" + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(4)+[L]ACHETEURNOM + chr$(10)+chr$(13)+chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(5)+[L]ACHETEURSOCIETE + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(6)+"Téléphone : " + [L]ACHETEURTEL + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(7)+"Fax : " + [L]ACHETEURFAX + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(8)+"Mail : " + [L]ACHETEURMAIL + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_ExportFile="+chr$(1)+"\\Serveur2003\pdf x3"+"[L]NUMCDE"+".PDF"
 
 
Return
 
Subprog IMPRIME(NBPAR,PARAMETRE)
Variable Integer NBPAR
Variable Char PARAMETRE()()
End
 
 
 
#############################################################
#-------------------------Petit plus------------------------# 
#############################################################
 
#Exemple de Infbox pour tester les valeurs...
#Infbox [L]ACHETEURSOCIETE Titled "Attention!"
 
 
#Si "OK=0" alors on n'affiche pas de fenêtre et l'envois du mail est directe
 
 
#Pour ajouter quelqu'un en Copie ...
#NBPAR+=1:PARAMETRE(NBPAR) = "_EMailCCList="+chr$(1)+"test@test.fr"
Si quelqu'un à la moindre idée, je suis preneur ^^
et dsl de mettre tout le code, mais je pense que sa peux vous aider a comprendre ce que je veux. :s

Merci pour votre aide