Discussion :

[Henri-gp]

Bonjour,

Excel 2010

Je dois lire un fichier sur un lecteur réseau, mais ceci ne fonctionne pas, ERREUR 53 ou 76,
Mon fichier est : Charge_Emission_Exemple.csv
La ligne complète est :

\\stage\DSIDoc\03 - Systèmes Applicatifs\08 CTI\00 A Classer\40-Projets\CTIv2-EC-2012-StatsMatin\zip_matin\Charge_Emission_Exemple.csv

Bizarrement, j’arrive bien à y déposer un fichier, donc pour moi c’a veut dire qu’il n’y a pas de problème de droit,
Comment lire ce fichier ?
C’a fonctionne très bien en locale, c'est-à-dire que si mon fichier est sur mon disque je le lis bien

Merci de vos réponses.
Henri

[jfontaine]

Bonjour,

Je n'ai pas de problème pour lire ou écrire un fichier sur le réseau avec cette notation.

Quel est le code qui va avec ce chemin ?

[Henri-gp]

Merci pour la réponse,

En gros ce qui appellee la procedure (et ce qui devrai fonctionner)

LectureCSV ("\\stg01\DSIDoc\03 - Systèmes Applicatifs\08 CTI\00 A Classer\40-Projets\CTIv2-EC-2012-StatsMatin\zip_matin\extraction_calls_20120116_20120116.csv")

La procedure appelé :

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
23
 Private Sub LectureCSV(sFichier As String)
Dim iRow As Long, iCol As Long
Dim iRow_inconnu As Long 'Pour conserver les labels INCONNU !
Dim NumFichier As Integer
Dim sChaine As String, i As Long
Dim tempo As String
Dim Separateur As String, Ar() As String
Dim to_date As String
 
             Application.StatusBar = sFichier
            '*********************** On va chercher le nom du fichier pour en faire une date ****************
            If Len(sFichier) > 8 Then
            to_date = Right(sFichier, 12)
            to_date = Left(to_date, 8)
            Feuil4.Cells(3, 4).Value = to_date
            End If
 
    NumFichier = FreeFile
    Separateur = ";"
    iRow = 1
    iRow_inconnu = 1
    '*************************************
    Open sFichier For Input As NumFichier

Et le plantage sur la deniere ligne (Open sFichier For Input) , c’est a dire mon erreur 53

Le reste fait appel à des objets et tout et tout, mais c’a marche en locale,
Ce que je veux c’est l’ouvrir sur un lecteur réseau, et là c’a plante !

[Invité]

Bonjour

Comme tu l'as dit plus haut tu as peut-être des problèmes de droits en écriture, etc...

Est-ce que tu peux faire des opérations manuelles sur ce réseau (écrire dans un fichier et l'enregistrer par exemple) ? Si non, il faut voir avec l'administrateur réseau pour qu'il te donne des droits.

Philippe

[Henri-gp]

J’ai l’air d’avoir tous les droits
Je peux créer des répertoires
Je peux lire les fichiers qui y sont déjà
Si je modifie un fichier, je retrouve bien mes modifs
J’y dépose déjà un fichier ZIP avec une macro dans ce même classeur

Henri

[jfontaine]

quelle est la valeur de freefile?

[Henri-gp]

NumFichier = FreeFile

Quand j'arrive sur cette ligne avec le debuger , j'ai 1
j'ai la même chose si je recupere un fichier en local

Henri