Discussion :

[bourbe]

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 

[SfJ5Rpw8]

il n'y aurai pas plutôt un probléme sur l'utilisation de la méthode move sur un objet file, celle-ci ne prenant en argument la destination seulement (pas la peine de répéter la source..)

[abertaud]

bbil à raison. Ton code devrait être tout simplement

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
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 oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFl = oFSO.GetFile("C:\Documents and Settings\stagiaire\Bureau\VBS\_impdf_.pdf")
 
 
oFl.Move Chr(34) & "C:\Documents and Settings\stagiaire\Bureau\New Control Panel\LIVRAISON ET SITE PRE_SYNCHROo\Comptes\" & dossier & "\" & nom_graph & Chr(34)

En effet, en plus de l'utilisation erronée de la fonction Move, tu oublies un paramètre important :

Dans le nouveau chemin vers lequel tu veux déplacer ton fichier, il y a des espaces. Ce chemin n'est donc pas prix entièrement en compte, mais s'arrête à C:\Documents. Le reste étant considéré comme paramètres

Le caractère Chr(34) étant le guillemet, ton code devrait maintenant fonctionner