Discussion :

[benleroux]

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

[mayekeul]

bonjour,

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

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
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

[aalex_38]

Bonjour à tous,

un exemple en utilisant la commande DIR

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[benleroux]

Ok marche tres bien avec la commande DIR

Merci beaucoup pour votre aide.

Ben