Wild Card CopyFile dans une macro

Version imprimable

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:

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

bonjour,

pour ma part, je ferais quelque chose de ce genre
en n'oubliant pas d'ajouter la référence à Scripting runtime.

Code:

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
Sub KopyGIF()
Dim A As String
Dim NameGifSTK As String
Dim GifDirC As String, CliDirG As String
Dim FSO As New FileSystemObject, F As File
 
'définition des répertoires
A = InputBox("Sequence (xxx)?")
 
GifDirC = "W:\pro\TPAN1\GIF\"
CliDirG = "Y:\C1-Client-Exchange\TPO\Processing\Seq" & A & "\GIFS\"
'définition du fichier à copier
NameGifSTK = "01Q_" & A & "_STK_"
 
'test si répertoire existe
If FSO.FolderExists(CliDirG) Then
    MsgBox "Directory " & Chr(34) _
            & CliDirG & Chr(34) & " is existing !", _
            vbInformation
    'itération des fichiers présents dans le répertoire
    For Each F In FSO.GetFolder(GifDirC).Files
        'test des extensions
        If Right(F.Name, 3) = "gif" Then
            'test du nom de fichier
            If Left(F.Name, Len(NameGifSTK)) = NameGifSTK Then
                'copie du fichier
                FileCopy F.Path, CliDirG & F.Name
            End If
        End If
    Next F
End If
 
End Sub

Bonjour à tous,

un exemple en utilisant la commande DIR

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim MonRepertoire As String, MonFichier As String, Result As String
 
MonRepertoire = "W:\pro\TPAN1\GIF\"
MonFichier = "01Q_" & "a_STK_*" & ".GIF"
 
If Dir(MonRepertoire, vbDirectory) <> "" Then
ChDrive MonRepertoire: ChDir MonRepertoire
Result = Dir(MonFichier)
    If Result > " " Then
        MsgBox "filecopy ici : " & Result
    End If
End If

14/12/2010, 12h07
benleroux

Ok marche tres bien avec la commande DIR

Merci beaucoup pour votre aide.

Ben