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

[Henri-gp]

Je travaille sur 2010 et je dois rendre ce classeur compatible avec 2003 et 2007 et quand j’enregistre, j’ai une fenêtre avec ce genre de message (image jointe) :

Microsoft Excel – Vérificateur de comptabilité
Les fonctionnalités suivantes de ce classeur ne sont pas prises en charge dans les versions antérieures d’Excel, ces fonctionnalités seront peut-être perdues ou dégradées . . . . . . .

C’est là que c’a coince

Merci de vos réponse (et de votre patience)

Henri

[Philippe Tulliez]

Bonjour,
Le message que tu affiches est normal et n'est pas responsable de ton problème.
En effet, lorsque depuis une version 2007, 2010 l'on sauve un fichier sous version 97-2003 c'est à dire suffixée xls c'est le genre de message que l'on obtient et de plus dans ta barre des titres tu va visualiser le nom du fichier suivi du message Mode de compatibilité entouré de crochets monFichier.xls [Mode de compatibilité].
Pour ma part, tous mes tests sont d'abord fait sous la version 2003 pour m'assurer de leurs compatibilités avec les 3 versions.

[Henri-gp]

Bonjour à tous,

En fait mon problème se limitait à la librairie Microsoft Outlook XX.0 Object Library,
Il me suffisait de changer la version en fonction de celle d’Excel,
J’aurai largement préférer travailler en mode ascendant plutôt que le contraire.

L’adaptation aux différentes versions d’Excel est un point que j’aimerai approfondir, notamment les déclarations de référence.

Merci à tous et bonne journée,
Henri

[Didier Gonard]

Bonjour,

tu avais donc des références manquantes...

en regardant quelques lignes plus bas tu pouvais voir ce sujet :

Supprimer une référence 2010

il y a de nombreuses occurrences dur DVP à ce niveau, bon courage,

cordialement,

Didier

[Henri-gp]

Non justement elles n’étaient pas marquées comme références manquantes, mais pas la bonne version,

Microsoft Outlook 14.0 Object Library avec Excel 2010
Microsoft Outlook 11.0 Object Library avec Excel 2003 et 2007

Henri

[Didier Gonard]

Bonjour,

L’intérêt du forum, au-delà de dépanner dans l’immédiat des contributeurs, est surtout de constituer une base de connaissance pour tous les lecteurs présents et futurs et notamment sur les comportements bizarroïdes avérés pour faire avancer le schmilblick

Donc, peux-tu préciser le contexte afin de tenter de cerner au mieux possible.

Tu es en VBA sous Excel

1. Tes fonctions de chaînes n’interviennent que sous Excel ou tu pilotais Outlook au travers du VBA Excel ?
2. Tu mentionnes Microsoft Outlook 11.0 Object Library avec Excel 2003 et 2007, mais pour 2007, ça devrait être Microsoft Outlook 12.0 Object Library, ce qui voudrait dire que tu aurais sur ce poste Excel 2007, mais Outlook 2003 ?

etc....

Bref, pour cerner le problème par rapport à l’avenir, il serait bien de décrire précisément ton contexte.

Pour sa résolution, c’est clair, il faut voir le lien que j’ai indiqué et te mettre à travailler en Late Binding, ce sera la solution la plus stable.

cordialement,

Didier

[Henri-gp]

Je récupère 5 fichiers *.csv sur un réseau d’entreprise (de 50 à 5000 lignes, 4 à 40 champs)
Je mouline ces cinq fichiers avec pleins de macros pour en faire une jolie feuille de résultat
J’ai mis un maximum de données dans des tableaux pour optimiser le temps d’exécution
J’envoie par mail cette jolie feuille à 60/80 utilisateurs selon la journée à l’aide de CDO (d’où l’appelle à Microsoft Outlook XX.0 Object Library)
Je zip le tout dans un autre répertoire réseau afin d’avoir une trace

Le tout peut se faire en ouvrant mon classeur ou en ligne de commande,
Pour arriver à ce résultat, j’utilise trois feuilles de calcul, deux modules et un module de classe pour un total de 1300 ligne de code,

On m’a imposé la version 2010 alors que tous travaille avec 2003 (pour me faciliter la vie je suppose)

Et après ceci : un bon Week-end à tous, sans oublier de vous remercié.

Henri

[Rackam Le Rouge]

J'ai eu ce problème de "Mid" qui ne fonctionne pas. En regardant les références j'ai constaté qu'une référence nommée "Microsoft CDO..." était manquante. J'ai trouvé sous mon nouveau windows 8 une référence nommée "Microsoft CDO windows 2000 library". Je l'ai coché, et décoché la première et cela fonctionne.
Je précise : j'ai rencontré le problème avec outlook 2013 sous windows 8.