Couper ... coller ? [À faire]

**sentenza** · 12/01/2004, 12h37

J'ai un p'tit probleme, j'espere que vous pourrez m'aider...

J'ouvre un fichier texte en vba, je recupere les infos qui m'interessent, et une fois ceci fait, j'aimerais déplacer ce fichier, en le mettant par exemple dans un repertoire situé ds le repertoire où est le fichier en question...

Pour ce qui est des chemins d'acces, pas de probleme, mais comment faire un couper-coller ?

Merci à ceux qui se pencheront sur mon problème...

**Vavard** · 12/01/2004, 12h39

salut,

ben dans un premier temps, tu fais un "filecopy" puis tu supprimes l'objet source... non ?

**Admin** · 12/01/2004, 12h40

Code :

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

1
2
FileCopy 
Kill

**sentenza** · 12/01/2004, 12h42

Merci..

J'essaye ca...
Je vous tiens au courant...

**sentenza** · 12/01/2004, 13h20

quand j'essaye le code suivant :

Code :

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

1
2
FileCopy chemin, dir_parent
Kill chemin

il me met le message d'erreru suivant :

Code :

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

1
2
erreur 76
chemin d'acces introuvable

Pourtant mes variables semblent correctes :
chemin : "C:\Documents and Settings\jp\Bureau\appli developpement\mail3.txt"
dir_parent : "C:\Documents and Settings\jp\Bureau\appli developpement\sent\"

???

**ThierryAIM** · 12/01/2004, 13h23

Envoyé par sentenza

dir_parent : "C:\Documents and Settings\jp\Bureau\appli developpement\sent\"

il faut lui donner un nom à ton fichier de destination

dir_parent : "C:\Documents and Settings\jp\Bureau\appli developpement\sent\mail3.txt"

**sentenza** · 12/01/2004, 13h46

En effet, merci ca marche qd je lui met un nom...

Mais lorsque je le kill, il me met une erreur : fichier ouvert, pourtant j'ai bien fait un close avant...

**Admin** · 12/01/2004, 13h47

met nous ton code si il est pas trop grand.

**sentenza** · 12/01/2004, 13h56

Le 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
22
    'ouverture du fichier à intégrer
    Dim LFile As Long
    Dim OFile As String
    Dim Ligne As String
    OFile = chemin
    LFile = FreeFile
    Open OFile For Input As #LFile
    Line Input #LFile, Ligne
 
    'chemin complet du fichier
    chemin = Me!CommonDlg.FileName
    'repertoire du fichier
    dir_parent = ParentDir(chemin)
    dir_parent = dir_parent & "sent\" & var_nom.Value & ".txt"
 
    'fermeture du fichier texte
    Close OFile
 
    'copier
    FileCopy chemin, dir_parent
    supprimer
    Kill chemin

Merci...