Déplacer fichier texte avec VBA Résolu

Question

Bonjour, 

J'ai adapté une macro trouvé sur un forum à mon problème, afin de pouvoir depuis ma page excel, déplacer tous les fichiers txts présents dans le fichier "comp" vers le dossiers "2013".

Mais ça ne fonctionne pas, je n'arrive pas à définir qu'il "faut déplacer tous les fichiers txts"

Sub DeplaceFichier()

    Const Source = "H:\comp.txt"
    Const Destin = "H:\comp\2013"
  
    Dim objOFS As Variant
    
    Set objOFS = CreateObject("Scripting.FileSystemObject")
    
    If (objOFS.FileExists(Source)) Then
        objOFS.moveFile Source, Destin
    End If
    
    Set objOFS = Nothing

End Sub

Merci de votre aide

kgigant · Answer

j'ai Excel 2007

f894009 · Answer

Bonjour,

"faut déplacer tous les fichiers txts" : *.txt

Probleme: vous melangez dossier et fichier, expliquez!!!!

kgigant · Answer

Pardon je reformule :

<< J'ai adapté une macro trouvé sur un forum à mon problème, afin de pouvoir depuis ma page excel, déplacer tous les fichiers txts présents dans le dossier "comp" vers le dossiers "2013". >>

Je veux que la macro déplacer les fichiers txt présents dans le dossier comp, vers le dossier 2013 qui se situe également dans le dossier comp.

Dans le dossier comp il y a 3 dossiers (2011, 2012, 2013) plus des fichiers txts qui s'enregistrent quotidiennement.

Cette macro me permettrai d'archiver tous les fichiers txt dans le dossier de l'année en cours.

f894009 · Answer

Bonjour,

Une facon de faire:

Sub DeplaceFichier()
    Dim objOFS As Variant
    Const SourceTxt = "H:\comp\*.txt"
    Const Destin = "H:\comp\2013"

    Set objOFS = CreateObject("Scripting.FileSystemObject")
    'Test si au moins nun fichier present
    If Dir(SourceTxt) <> "" Then
        objOFS.moveFile SourceTxt, Destin
    Else
        MsgBox "Pas de fichier a déplacer!!!"
    End If

    Set objOFS = Nothing

End Sub

Peut se faire sans object Scripting.

A+

kgigant · Answer

Merci c'est parfaitement ça ! le message qui s'affiche en plu si il n'y a rien c'est encore mieux !!

Jvais essayer de pousser un peu plus loin sauf ci c'est trop de boulot dis le moi. Est ce possible de d'indiquer à la macro de déplacer les fichiers commencant par SB2000 ?

f894009 · Answer

Re,

Sub DeplaceFichier()
    Dim objOFS As Variant
    Const SourceTxt = "H:\comp\SB2000*.txt"
    Const Destin = "H:\comp\2013"

    Set objOFS = CreateObject("Scripting.FileSystemObject")
    'Test si au moins nun fichier present
    If Dir(SourceTxt) <> "" Then
        objOFS.moveFile SourceTxt, Destin
    Else
        MsgBox "Pas de fichier a déplacer!!!"
    End If

    Set objOFS = Nothing

End Sub

 A+

Déplacer fichier texte avec VBA

6 réponses

Discussions similaires

Newsletters