Déplacer fichier

bonjour,

je souhaite après avoir ouvert un fichier le déplacer dans un sous dossier.

        Call My.Computer.FileSystem.MoveFile(chemin & nf, chemin & "FAIT\" & nf)
        DoEvents

voici l'appel qui bug,

chemin = le chemin courant

nf = nom du fichier

et le sous dossier courant porte le nom de "FAIT"

le message d'erreur est "erreur d'exécution '424' : objet requis"

Merci par avance

essayer sans résultat :

        Call ActiveWorkbook.Computer.FileSystem.MoveFile(chemin & nf, chemin & "FAIT\" & nf)
        DoEvents

        Call Workbooks.Computer.FileSystem.MoveFile(chemin & nf, chemin & "FAIT\" & nf)
        DoEvents

        Call ThisWorkbook.Computer.FileSystem.MoveFile(chemin & nf, chemin & "FAIT\" & nf)
        DoEvents

Bonjour,

Qu'est-ce-qui t'empêche de le sauvegarder dans un nouvel emplacement et de le supprimer de l'ancien ...???

et voici la fonction en entier :

Function ouvrir()

    'DESACTIVER MESSAGE D'ALERTE'
    Application.DisplayAlerts = False

    Set f = ActiveWorkbook.Sheets("TAMPON")
    chemin = ThisWorkbook.Path & "\"
    nomfichier = Dir(chemin & "*.xls")
    flag = 0
    Do While Len(nomfichier) > 0
            For x = 1 To Len(nomfichier)
                If Mid(UCase(nomfichier), x, 6) = "IMPORT" Then
                    nf = nomfichier
                    flag = 1
                    Exit Do
                 End If
                Next x
        nomfichier = Dir
    Loop
    If flag = 1 Then
        ActiveSheet.Unprotect
        Workbooks.Open Filename:=chemin & nf
        Cells.Copy f.Range("A1")
        ActiveWorkbook.Close False
        'déplacer'
        Call Workbooks.Computer.FileSystem.MoveFile(chemin & nf, chemin & "FAIT\" & nf)
        DoEvents
    Else
        MsgBox ("IMPORTATION TERMINE, plus de fichier type à traiter")
    End If

    'DESACTIVER MESSAGE D'ALERTE'
    Application.DisplayAlerts = True

End Function

rien, c'est aussi une piste.

Ce que je souhaite c'est ouvrir des fichiers 1 par 1, les traiter, et pour ne pas retraiter un même dossier je pensais le déplacer et cela jusqu'à ce qu'il n'y en ai plus comportant le terme "import" dans le dossier courant.

comment tu écrirais ela pour sauvegarder et supprimer ensuite stp ?

Re,

Pour sauver ... et supprimer ... les instructions à utiliser : Save ... et Kill ...

Bien sûr avec tes chemins ... et les noms de tes fichiers ...

chemin source = chemin & nf

chemin cible = chemin & "FAIT\" & nf

nom du fichier = nf

Je ne voit pas du tout comment l'écrire je ne suis pas très a l'aise encore avec ces fonctions.

Re,

Si chemin et nf sont tous deux variables strings correctement définies et complètes ...

Attention tout de même ... que chemin soit redéfini ou alors il te faut une autre variable ...

ActiveWorkbook.SaveAs chemin & "FAIT\" & nf

Kill chemin & nf

Alors je cherchais pendant ce temps, mais j'avais laisser les parenthèses.

GENIAL, merci beaucoup

Re,

Content que cela fonctionne ..

Merci pour tes remerciements ...