Discussion :

[mcog2]

Bonjour,

Je veux copier les fichiers du répertoire c:\toto=> c:\titi

Code :

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

1
2
3
4
5
6
 
Sub sauvegarde_proc() sauvegarde_proc()
Sourcefile = "c:\toto\*.*"
Destinationfile = "c:\titi\"
FileCopy Sourcefile, Destinationfile
end Sub

Dans c:\toto j'ai juste un fichier (non actif) qui s'appelle nouveau.txt

Voici ce que le debugger m'affiche lorsque j'arrive à l'instruction filecopy
"nom ou numéro de fichier incorrect"

Je fais pas mal de code, mais sur ce coup je vois pas ce qui se passe...

Je suis sur Excel 2010.

Merci,

@+

Olivier

[SkyRhum]

Bonjour,

Ce code marche chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub sauvegarde_proc()
Dim Fichier As Variant
Dim objFSO As Variant
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dossier = "C:\...\" 'dossier où tes fichiers sont
Set objDossier = objFSO.GetFolder(Dossier)
For Each Fichier In objDossier.Files
    Fichier.Move "C:\...\" 'dossier où tu veux mettre tes fichiers
Next
End Sub

[mcog2]

Je vois que tu utilises un Move, cela copie ou déplace ?
@+
Olivier

A première vue, ça déplace, j'ai modifié move par copy et ça m'a l'air de fonctionner, même pour les fichier ouverts ?
Peux tu confirmer ?

Comment copier uniquement les fichier commençant par le nombre 0 (0*.*) ?

Merci,
@+
Olivier

[SkyRhum]

je reprend une petite partie du code afin de ne déplacer (ou copier comme tu veux) que les fichiers commençant par "0"

Code :

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

1
2
3
4
5
For Each Fichier In objDossier.Files
    If Left(Fichier.Name, 1) = "0" Then
        Fichier.Copy "C:\...\" 'dossier où tu veux mettre tes fichiers
    End If
Next

En espérant avoir répondu à ta question.

[mcog2]

Je regarde cela, mais dans tous les cas, c'est bonheur !
Merci,
@+
Olivier