Discussion :

[leskev]

Bonjour,
voila j'ai un problème avec FileCopy:
J'ai une base sur réseau, et depuis cette base on peut consulter des fichier ods (version OpenOffice de Excel). On trouve un fichier par client. J'utilise FileCopy pour copier le modèle du document dans le répertoire du client.
Sur mon ordi pas de souci tout fonctionne mais sur les autres postes ça ne fonctionne pas.

Voici mon 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
path = "//controlleur/SuiviClient/" & Form_FormulaireVisuClient.NomClient & "/"
    path = path & Form_FormulaireVisuSite.NomSite & "/Interventions.ods"
 
    Source = "//controlleur/SuiviClient/Documents vierges/Modele Interventions.ods"
 
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    Dim Ex As Boolean
    Ex = fs.FileExists(path)
    If Ex = False Then
        'Le fichier n existe pas
        'Set FileIntervention = fs.CreateTextFile(path, True)
        'FileIntervention.Close
 
        ' Copie le fichier source dans le fichier cible.
        FileCopy Source, path
    End If

Tel quel, j'ai une erreur d'accès Chemin/Fichier (sauf sur mon poste)

Si j'ajoute ce que j'ai en commentaire : CreateTextFile
Alors là le fichier se créé sans problème mais le fichier de destination est différent du fichier source: il ne fait que 2ko et si je l'ouvre, il me demande de sélectionner un filtre

Si quelqu'un pouvais m'aider se serait sympa merci d'avance

[Didier L]

Bonjour,

As tu testé sur ton serveur le fait qu'il trouve bien ton fichier source? N'aurais tu pas un problème du aux extensions cachés et qu'il ne trouve pas ton fichier source car tu lui à spécifié".ods"?

[leskev]

En effet après avoir testé sur le serveur les accès aux fichiers je me suis rendu compte que les utilisateurs n'avaient pas les droits d'accès sur le dossier qui contient les modèles de documents.
Du coup ça fonctionne très bien, je n'y avais pas pensé

Merci à bientôt