Discussion :

[Henri-gp]

Bonjour,
Selon la version que j’utilise, sur mon pc la version 2010, chez moi une 2007et mes collègues des 2003, la fonction Mid, right, left ne fonctionne pas,
Il me demande de vérifier les références, et elles sont pourtant toutes bien là
J’ai lus des commentaires là-dessus, mais je ne peux par remettre les retrouver,

Quelqu’un a une idée ou a déjà rencontré ce problème ?

Merci par avance de vos réponses

Henri

[Philippe Tulliez]

Bonjour,
C'est très curieux ce que tu racontes là parce-que j'utilise ces fonctions sans problèmes peu importe les versions .
Peux-tu publier le code, le problème vient sans doute d'ailleurs,

[Henri-gp]

Par exemple :
Avec ce chemin de répertoire dans une cellule de Worksheets("Parametrage").Range("D1 »)
\\stg01\DSIDoc\03 - Systèmes Applicatifs\08 CTI\00 A Classer\40-Projets\CTIv2-EC-2012-StatsMatin\zip_matin\Stats_Matin_TEL_Appels_20120927.csv

Par exemple :

Code :

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

1
2
3
4
5
6
 long_chemin = InStrRev(Worksheets("Parametrage").Range("D1"), Chr(92))                  'Me donne la position du dernier slash
chemin_zip = Left(Worksheets("Parametrage").Range("D1"), long_chemin - 1)               'Me donne le chemin du repertoire distant
'nom_fichier = Trim(Mid(Worksheets("Parametrage").Range("D1"), long_chemin + 1, 100))   'Me donne le nom du fichier
'fichier 1
nom_fichier = Trim(Mid(Worksheets("Parametrage").Range("D1"), long_chemin + 1, 100))    'Me donne le nom du fichier
FileCopy Worksheets("Parametrage").Range("D1"), chemin_zip & "\tmp\" & nom_fichierMerci par avance de vos réponses

Sur mon 2010 c’a fonctionne et ailleurs non, et pas de référence manquante !

Merci de votre aide,

Henri

[Philippe Tulliez]

Bonjour,
Je suppose que tu as utilisé le débogueur.
A quelle ligne se situe le problème ?
A la ligne 2 avec l'instruction Left ou à la ligne 5 avec Mid.
A propos de l'instruction Mid une petite remarque et le problème vient peut-être de là si le nombre de caractères du chemin + non de fichier est supérieur à 100 dans une des version il y aura un problème.
L'instruction Mid dans VBA n'a pas tout à fait le même comportement que la formule Mid dans Excel
Dans Excel, il faut préciser le nombre de caractères que l'on prend (3ème argument) alors que dans VBA, le 3ème argument est facultatif et prend tous les caractères qui suivent si ignoré. C'est bizarre mais voilà, les développeurs de chez Microsoft n'harmonise pas leurs produits (Comme OuiNon dans Access au lieu de SI).

[Henri-gp]

Bien sûr j’ai utilisé le débugger et je me casse les dents sur le premier Mid(xxx trouv, mais si c’a avait été un Right ou un left, j’aurai eu le même problème,
Bien plus surprenant encore, quand je fais F2 dans l’environnement de dev VBA je retrouve bien ces fonctions et je peux les remplacer par ce que j’avais écrit à la main
Comme je le dis plus haut, mid, rigth et left me font le même problème, sous 2007 et 2003 et pas mon 2010

J’ai 1300 lignes dans mon module et j’utilise ces fonctions une vingtaine de fois
Quand j’ecris 100 dans << Trim(Mid(Worksheets("Parametrage").Range("D1"), long_chemin + 1, 100)) >> c’est pour avoir de la marge, alors que c’a ne dépasse pas 30 char, et c’est pour ça que j’ai mis un trim devant,

A suivre !

[Philippe Tulliez]

Bonjour,
Alors je ne comprends pas. Comme je l'ai précisé dans mon premier post, j'ai beaucoup de procédures qui tourne avec ces fonctions aussi bien en 2003, qu'en 2007 et 2010. Par contre toutes mes versions sont en 32 bits, je ne sais pas si c'est le cas chez toi.
Qu'est-ce qui ne vas pas en fait, il coupe plus de caractères dans une version que dans l'autre ?
Y a-t-il un message d'erreur ?

[Didier Gonard]

Il me demande de vérifier les références, et elles sont pourtant toutes bien là

Bonjour,

Le souci n'est pas celles qui sont là mais celles qui seraient manquantes, donc dans outils Références, si tu as sur le poste xx des références manquantes, décoches les ! C'est une des raisons de ce phénomène....

cordialement,

Didier