Bonjour a tous,

J'ai actuellement un probleme de concaténation sous VBS pour lequel j'aimerais bien avoir une aide

En fait je copie des grapes PDF vers un repertoire ( dossier = "DOSSIER"? par exemple ) qui se doit d'etre variable et de nom ( nom_graph = "graphe.pdf" ) qui se doit aussi d'etre variable.

le code est comme ci dessous assez simple, et ces divers noms sont disposés dans la feuille excel "feuille"

le probléme est que pour le déplacement la conatenation qui definit le chemin de destination ne marche pas

oFl.Move "chemin_source","chemin\" & dossier & "\" & nom_graph

Que faut écrire ????

Mon code ci dessous


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

nom_onglet = feuille.Range("B24").Value  
         
dossier = feuille.Range("D24").Value

nom_graph = feuille.Range("C25").Value

Doc.Sheets(nom_onglet).PrintOut
                     
Wscript.Sleep 10000

Dim oFS,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFl = oFSO.GetFile("C:\Documents and Settings\stagiaire\Bureau\VBS\_impdf_.pdf")


oFl.Move "C:\Documents and Settings\stagiaire\Bureau\VBS\_impdf_.pdf","C:\Documents and Settings\stagiaire\Bureau\New Control Panel\LIVRAISON ET SITE PRE_SYNCHROo\Comptes\" & dossier & "\" & nom_graph