Pb de séparation de cellules en différentes colonnes non demandée

Bonjour,

Il y a vraiment un mystère que je ne comprends pas : Lorsque j'exécute ma macro qui doit simplement ouvrir un fichier excel (avec une boucle), elle transforme les cellules du fichier je ne comprends vraiment pas comment ! J'ai l'impression que les virgules sont utilisées comme séparateur de colonne et des ";" apparaissent partout... C'est à ni rien comprendre...

Le début de ma macro :

"Sub Test()

Dim Fso As Object, MonRepertoire As String
Dim dossier As Object, fichier As Object, wb As Workbook, ws As Worksheet
Set Fso = CreateObject("Scripting.FileSystemObject")

MonRepertoire = "C:\la_suite_du_chemin"
For Each dossier In Fso.GetFolder(MonRepertoire).SubFolders
For Each fichier In dossier.Files
Set wb = Workbooks.Open(fichier)

Et voilà ce que j'obtiens entre le fichier initial et le fichier que ma macro ouvre :

Fichier initial :

Même fichier que la macro ouvre :

Quelqu'un aurait une idée ?

Merci!

Bonjour Oriane_

Si j'ai bien compris, vous souhaiteriez ouvrir un fichier Excel depuis une macro.

Comme le chemin est connu, je te propose d'essayer en faisant appel à la fonction Shell.

Dim MonRepertoire As String

MonRepertoire = "C:\la_suite_du_chemin"

Shell Environ("WINDIR") & "\explorer.exe " & MonRepertoire, vbNormalFocus.

Bonjour,

Si tu rajoute l'option lors de l'ouverture

local:=true

Ca donne quoi ?

Merci pour vos réponses.

La commande Shell fonctionne mais elle me demande de sélectionner mon fichier à la main, hors je veux que l'ouverture soit faite en automatique (sans mon intervention).

Pour local:=true je ne sais pas où l'ajouter dans la syntaxe de ma boucle ?

Non malheureusement cela ne fonctionne pas

Dans mes options Windows, j'ai mon symbole décimal qui est un point (plutôt qu'une virgule à la base) dans les Options Région.

En modifiant et remettant un point, ma macro bug toujours mais je ne sais pas si le problème ne serait pas lié à cela tout de même (certains ont-il déjà connu ca?)