Discussion :

[teen6517]

Bonjour tous le monde

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

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
 
    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

[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 ?

[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 :

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

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??

[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.

[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

[zyhack]

Bonjour

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

Code :

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

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.