Copier fichier avec condition

Name, instruction
Renomme un fichier, un répertoire ou un dossier sur un disque.
Syntaxe
Name oldpathname As newpathname

Cliquez pour agrandir...

FileDialog, objet
Cet objet fournit une fonctionnalité de boîte de dialogue de fichier similaire à la fonctionnalité des boîtes de dialogue standard Ouvrir et Enregistrer qui existent dans les applications Microsoft Office.

Remarques




Utilisez la propriété FileDialog pour renvoyer un objet FileDialog. La propriété FileDialog se trouve dans l'objet Application de chaque application Office individuelle. La propriété prend un seul argument, DialogType, qui détermine le type d'objet FileDialog que la propriété renvoie. Il existe quatre types d'objets FileDialog :

• Boîte de dialogue Ouvrir - permet aux utilisateurs de sélectionner un ou plusieurs fichiers que vous pouvez ensuite ouvrir dans l'application hôte à l'aide de la méthode Execute.
• Boîte de dialogue Enregistrer sous - permet aux utilisateurs de sélectionner un seul fichier que vous pouvez ensuite enregistrer comme fichier en cours à l'aide de la méthode Execute.
• Boîte de dialogue Sélecteur de fichier - permet aux utilisateurs de sélectionner un ou plusieurs fichiers. Les chemins d'accès aux fichiers que l'utilisateur sélectionne sont capturés dans la collection FileDialogSelectedItems.
• Boîte de dialogue Sélecteur de dossier - permet aux utilisateurs de sélectionner un chemin d'accès. Le chemin que l'utilisateur sélectionne est capturé dans la collection FileDialogSelectedItems.

Cliquez pour agrandir...

Sub Liste()
 
Dim Chemin As String, Dossier As Object, Fichier As Object
Chemin = "C:\temp"
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
    If Right(Fichier.Name, 4) = ".xls" Then
        If Fichier.Name Like "*" & "tartempion" & "*" & "S xx" & "*" Then
            MsgBox Fichier.Name
        End If
    End If
Next
End Sub