Erreur lancement macro en mode partagé

Bonjour Mesdames et Messieurs

Je sollicite votre aide car je n'arrive pas a trouver la solution à mon problème

J'explique :j'ai fait une macro (attention pour les puristes ,c'est plus du bricolage que j'ai fait)

macro "autocontrole" qui marche très bien ,en mettant une X dans la colonne B de la feuille 1 en fait j'extraie des données de cette feuil1 pour les classer dans le fichier 2 et qui sont copié ensuite dans l'onglet "autocontrole"

Par contre quand je partage le dossier cette macro ne fonctionne plus et j'ai le message suivant:

La methode Texttocolums de la classe range à échoué

je vous met le fichier en mode partagé en fichier joint ,

lors de la copie il y a un message d'erreur ,c'est en fait un enregistrement automatique (code dans workbook et macro savethis) donc normal

pour la macro la je ne sais pas quoi faire ,avez vous une idee svp

merci d 'avance

Je pense avoir trouvé ,c'est que la fonction convertir ne marche pas en mode partagé quand on lance la macro alors est t'il possible si j'ai

2.00x1000x2000 avoir une fonction MFC pour pouvoir mettre 2.00 dans une case ,1000 dans une autre et ,2000 dans une autre

les 3 premiers caractères ne changerons jamais au niveau nombres (2.00,1.50,3.00 etc etc) toujours 3 chiffres plus le point

le 1000 peut etre a 3 chiffres ex 800

le 2000 peut etre a 3 chiffres ex 800 ou 4 chiffres 1000,2000,3000 etc ou encore a 5 chiffres 10 000 etc

avez vous la formule tant désiré

merci

Bonsoir,

3 formules pour couper 2.00x1000x2000 en A1

mettre en B1

=GAUCHE(A1;CHERCHE("x";A1)-1)

mettre en C1

=STXT(A1;NBCAR(B1)+2;TROUVE("x";A1;NBCAR(B1)+2)-NBCAR(B1)-2)

mettre en D1

=DROITE(A1;NBCAR(A1)-NBCAR(B1)-NBCAR(C1)-2)

Bonjour Monsieur H2so

grand merci pour votre réponse qui une fois de plus est impeccable

merci et bonne journée