Discussion :

[ti-flo41]

Bonjour,

J'utilise des macros qui fonctionnaient à la base pour la version 2003 d'excel, dorénavant nous utilisons la version 2010. J'ai donc du corrigé mes macros pour qu'elles fonctionnent sur 2010 mais quand j'execute mes macro, j'ai le message d'erreur suivant:

Code :

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

Erreur '76' Chemin d'accès introuvable

J'utilise donc le debogage qui me montre les lignes qui pausent problèmes:

Code :

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

1
2
3
4
5
6
7
8
9
Workbooks.OpenText Filename:= _
    "\\@_ip_du_serveur\Sauvegarde\fave100.txt", Origin:=xlMSDOS, _
    StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, _
    1), Array(6, 4), Array(16, 1), Array(18, 4), Array(27, 1), Array(33, 1), Array(58, 1), Array _
    (63, 1), Array(80, 1), Array(94, 1), Array(95, 1), Array(100, 1), Array(113, 1), Array(127, _
    1), Array(141, 1), Array(214, 1), Array(246, 1), Array(249, 1), Array(253, 2), Array(260, 2 _
    ), Array(268, 1), Array(295, 2), Array(302, 1), Array(327, 1), Array(339, 2), Array(371, 1) _
    , Array(392, 1), Array(397, 1), Array(399, 4), Array(409, 4), Array(417, 1), Array(441, 1)) _
    , DecimalSeparator:=".", TrailingMinusNumbers:=True

Quelqu'un pourrait-il m'aider à résoudre se problème ?

Merci d'avance.

[Invité]

A mon avis cette ligne de connexion est fausse:

Code :

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

"\\@_ip_du_serveur\Sauvegarde\fave100.txt"

'@_ip_du_serveur' doit être remplacé par l'ip du serveur. Ça m'étonnerai que ce code fonctionne même en 2003.

[ti-flo41]

la ligne "@_ip_du_serveur" n'est pas ce qui est écris réelement dans la macro, il y a une adresse en XXX.XXX.XXX.XXX, c'est juste pour ne pas publier l'adresse ip que j'ai écris ça.

Pourtant si, ca fonctionnais bien avant avec 2003 mais maintenant ca me met le message d'erreur. la macro va chercher le fichier sur le serveur puis ca extrait les données du fichier txt dans un tableau excel pour que les valeurs soient lissible plus facilement.

Quand je l'execute sur 2010 ca a l'air de bien fonctionner mais j'aimerais enlever le message d'errreur au lancement de la macro pour ne pas que ca gêne les utilisateurs.

[Invité]

Quand je l'execute sur 2010 ca a l'air de bien fonctionner mais j'aimerais enlever le message d'errreur au lancement de la macro pour ne pas que ca gêne les utilisateurs.

La macro ne peut pas bien fonctionner si tu as effectivement ce message d'erreur puisqu'elle ne trouve pas le fichier en question.

En tout cas si tu ne veux pas afficher le message d'erreur alors:

Code :

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

1
2
3
Application.DisplayAlerts = False
...
Application.DisplayAlerts = True

Tu peux aussi catcher l'erreur pour que ça soit plus propre:

Code :

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

1
2
3
4
5
6
    On Error GoTo Erreur:
        ...
    On Error GoTo 0
 
Erreur:
    Debug.Print ("Une erreur est survenue")

[Invité]

Bonjour,
j'ai une question toute bête car je présume que tu la déjà vérifiée.
comme tu ne l'aborde pas dans ta question, je me permets de te la poser.
as tu vérifié avec windows explorer le chemin du fichier texte?

[ti-flo41]

Bien sûr, j'ai bien vérifié le fichier texte dans l'explorer, de même lorsque je lance la macro, j'ai le fameux message d'erreur '76' mais quand je clique sur "OK", mon fichier texte est extrait dans mon fichier excel et les informations sont mises dans les bonnes colonnes.

[Invité]

Bonjour,
Désolé pour cette question sotte et grenu, mais les choses vont sans dire, mais elles vont toujours mieux en les disant.
Maintenant, dans ton explorateur Windows, trouve tu qu’il s’écoule un temps trop long pour atteindre le fichier. Pour cela copie colle le chemin complet de ton fichier dans la barre d’adresse et évalues le temps d’ouverture (Timeout?)
Si le problème vient de là envisage un traitement qui confirme l’erreur !

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
Sub test()
 
Dim fichier As String
 
fichier = ActiveWorkbook.Name
Application.DisplayAlerts = False
On Error Resume Next
Workbooks.OpenText Filename:= _
    "\\@_ip_du_serveur\Sauvegarde\fave100.txt", Origin:=xlMSDOS, _
    StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, _
    1), Array(6, 4), Array(16, 1), Array(18, 4), Array(27, 1), Array(33, 1), Array(58, 1), Array _
    (63, 1), Array(80, 1), Array(94, 1), Array(95, 1), Array(100, 1), Array(113, 1), Array(127, _
    1), Array(141, 1), Array(214, 1), Array(246, 1), Array(249, 1), Array(253, 2), Array(260, 2 _
    ), Array(268, 1), Array(295, 2), Array(302, 1), Array(327, 1), Array(339, 2), Array(371, 1) _
    , Array(392, 1), Array(397, 1), Array(399, 4), Array(409, 4), Array(417, 1), Array(441, 1)) _
    , DecimalSeparator:=".", TrailingMinusNumbers:=True
 
If ActiveWorkbook.Name = fichier Then MsgBox "ERR"
On Error GoTo 0
Application.DisplayAlerts = True
End Sub

[ti-flo41]

Le temps de réponse pour accéder à ce fichier sur le réseau est quasi instantané, en tout cas rien d'anormal dans les temps de réponses.

[Invité]

Test ma procédure avec gestion des erreurs, si le fichier est gros le découpage risque de l’être !!

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
Sub test()
 
Dim fichier As String
 
fichier = ActiveWorkbook.Name
Application.DisplayAlerts = False
On Error Resume Next
Workbooks.OpenText Filename:= _
    "\\@_ip_du_serveur\Sauvegarde\fave100.txt", Origin:=xlMSDOS, _
    StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, _
    1), Array(6, 4), Array(16, 1), Array(18, 4), Array(27, 1), Array(33, 1), Array(58, 1), Array _
    (63, 1), Array(80, 1), Array(94, 1), Array(95, 1), Array(100, 1), Array(113, 1), Array(127, _
    1), Array(141, 1), Array(214, 1), Array(246, 1), Array(249, 1), Array(253, 2), Array(260, 2 _
    ), Array(268, 1), Array(295, 2), Array(302, 1), Array(327, 1), Array(339, 2), Array(371, 1) _
    , Array(392, 1), Array(397, 1), Array(399, 4), Array(409, 4), Array(417, 1), Array(441, 1)) _
    , DecimalSeparator:=".", TrailingMinusNumbers:=True
 
If ActiveWorkbook.Name = fichier Then MsgBox "ERR"
On Error GoTo 0
Application.DisplayAlerts = True
End Sub

[ti-flo41]

Quand je lance le test, tous s'affiche rapidement et sans erreur.