Je dois m'excuses à ceux qui suivent le dossier, mais je dois rectifier mon tir.
Le document s'ouvre finalement correctement et dans le format voulut. Mon erreur était que je continuais à faire des test sur un "original" qui avait été modifié par les successifs tests.
Donc, actuellement j'ai le fichier en ";" et les champs sont à leurs places.
Je voudrais toute de même spécifier que finalement je ne vais pas utiliser la ligne de SaveAs. Cependant,, il y a un détail à revoir:
lorsque la commande s'exécute, un nouveau fichier est créé avec le nom donné dans la ligne SaveAs. Malgré cela, lorsqu'on va fermer le fichier, le système demandera si on veut enregistrer ou pas ce fichier. Si le fichier est en CSV sur la ligne SaveAs, il vont avoir pas mal de petites fenêtres à valider qui ne sont pas toujours faciles à gérer lorsque la personne est pressé ou avec la tête ailleurs. Pour cette raison, j'ai modifié la ligne comme suit:
Ligne originale:
ActiveWorkbook.SaveAs Filename:="C:\tmp\cpp+\test4.csv", FileFormat:=xlCSV, local :=True
Ligne modifié par moi:
ActiveWorkbook.SaveAs Filename:="C:\tmp\cpp+\test4.xlsx", FileFormat:=xlCurrentPlatformText, local :=True
Malgré cette modification il faut de toute façon cliquer sur Enregistrer à la fin de la consultation. Cependant, la fenêtre qui s'ouvrira sera déjà en format .xlsx et après avoir cliqué sur "Enregistrer" un message demandera si l'on veut modifier le fichier déjà existant. On dit "Oui" et le tour est joué!
La question est s'il y a un moyen d'exécuter la commande SaveAs sans avoir besoin de la répéter lorsque l'on veut fermer le fichier et que, bien évidement, on n'a pas fait des modifications.
Bien, pour moi c'est donc bon. Je ferrais un petit recap dans un autre message afin de résumer les étapes à suivre, en espérant que des ignorants comme moi puisse l’exécuter seuls.
Merci. Je vais clôturer le dossier après le recap.
Partager