Bonjour,

J aimerais avoir de l aide pour une macro, j ai besoin de copier un fichier contenant une variable et une chaine de 4 caracteres inconnus.

Voici le bout de 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
 
a = InputBox("Sequence (xxx)?")
'
    If a = "" Then
        MsgBox ("You forgot to type the sequence number")
    Exit Sub
    Else
 
    gifdirc = "W:\pro\TPAN1\GIF\"
    clidirg = "Y:\C1-Client-Exchange\TPO\Processing\Seq" & a & "\GIFS\"
 
    If (myName = Dir(clidirg, vbDirectory)) = vbEmpty Then ' testing repertory
MsgBox " directory " & Chr(34) _
& clidirc & Chr(34) & " is existing !", _
vbInformation
 
    namegifSTK = 01Q_& a &_STK_****
 
    FileCopy gifdirc & namegifSTK & ".gif", clidirg & namegifSTK & ".gif"
 
   .....
J aimerais pouvoir copier ce fichier
01P_variable"a"_STK_(4caracteresinconnu).gif dans un autre repertoire en gardant le meme nom de fichier.

J espere avoir ete clair

Merci de votre aide.

Ben