manipulation de fichier

Version imprimable

Bonjour tous le monde

j'ai un petit probleme sur la manipulation de mes fichiers

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    Dim nom_fichier As String
 
    nom_fichier = Format(Date, "yyyymmdd")
    nom_fichier = "C:\Documents and Settings\laborder\Bureau\SAV" & nom_fichier & ".xls"
 
    FileCopy "C:\Documents and Settings\laborder\Bureau\assmat.xls", nom_fichier
 
    Open "C:\Documents and Settings\laborder\Bureau\assmat_valide.csv" For Append As #1
 
    With ActiveSheet
        For i = 2 To .Cells(2, 1).End(xlDown).Row + 1
            mon traitement de donnée
            assmat_valide = Cells(i, "A") & ";" & Cells(i, "B") & ";" & Cells(i, "C") & ";" & Cells(i, "D") & ";" & Cells(i, "E") & ";" & Cells(i, "F") & ";" & Cells(i, "G") & ";" & Cells(i, "H") & ";" & Cells(i, "I")
            Write #1, assmat_valide
 
        Next i
    End With
 
    Close #1

l'orsque je veux exécuter la macro, il me dit :
erreur d'éxécution 70
permission refusée

et si je clique sur debogage c la ligne de filecopy qui est designer

je ne comprend pas pourquoi

comment resoudre se probleme
merci de votre aide

20/07/2010, 22h01
zyhack

Bonsoir

tu n'aurais pas un problème de droit de session ?

tu cherches à lire et écrire dans la session "laborder", est-ce celle qui est ouverte ?
21/07/2010, 09h40
teen6517
non aucun probleme de droit

par contre le fichier sur lequel je fais un filecopy, c'est le fichier qui lance la macro donc il est ouvert

c'est pe etre sa mon probleme

je cherche a faire une sauvegarde au tout debut de ma macro avant quelle commence les modifs sur le fichier ouver

peut etre exist-il une fonction plus apropriée que filecopy

merci de votre aide

je viens de trouvais ceci qui a l'aire de fonctionnée
Code:

1 2 3 4 nom_fichier = Format(Date, "yyyymmdd") nom_fichier = "C:\Documents and Settings\laborder\Bureau\SAV" & nom_fichier & ".xls" ActiveWorkbook.SaveAs Filename:=nom_fichier
c'est la seule option possible??
21/07/2010, 12h51
zyhack

Bonjour

Ta dernière solution n'est pas mal mais le seul problème est que le fichier sur lequel tu travailleras sera le fichier de sauvegarde et ce n'est pas le résultat attendu.

je vais essayer de voir s'il n'y aurai pas une autre méthode.
21/07/2010, 13h03
teen6517

zyhack effectivement je me retrouve a travailler dans le fichier de sauvegarde
s'il y a une autre alternative je suis preneur

merci de ton aide

Bonjour

Je viens de faire le test en passant par l'objet FSO et ça marche
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim fso As Object, nom_fichier As String Set fso = CreateObject("Scripting.FileSystemObject") nom_fichier = Format(Date, "yyyymmdd") nom_fichier = "C:\Documents and Settings\laborder\Bureau\SAV" & nom_fichier & ".xls" fso.CopyFile "C:\Documents and Settings\laborder\Bureau\assmat.xls", nom_fichier Set fso = Nothing End Sub
je n'ai pas mis de gestion d'erreur au cas ou le fichier existerait déja mais je pense que tu n'aura pas de mal à l'ajouter au besoin.

21/07/2010, 13h12
teen6517

je par manger je test sa a mon retour

merci d'avance