Conversion csv en xls [Résolu/Fermé]

Signaler
Messages postés
8
Date d'inscription
jeudi 3 mai 2018
Statut
Membre
Dernière intervention
7 août 2018
-
Messages postés
8
Date d'inscription
jeudi 3 mai 2018
Statut
Membre
Dernière intervention
7 août 2018
-
Bonjour, je suis nouveau sur le forum et je solicite votre aide car je rencontre un soucis lors de mon stage.

Je dois convertir des fichiers crées par un logiciel en format csv en xls mais je rencontre un problème c'est à dire que quand je copie colle a la main et avec mon code sur vba je n'ai pas le même le résultat je vais essayer de montrer le plus possible n'hesiter pas à demander des inforamtions si nécessaire.
voici code pour convertir :

Sub ConvertiCvsXls()
Workbooks.Open Filename:=chemin & "\" & fichier

Workbooks(fichier).SaveAs Left(fichier, Len(fichier) - 3) & "xls"
fichier = Left(fichier, Len(fichier) - 3) & "xls"
Workbooks(fichier).Close
end sub


voici le resultat du copier manuelle :


et voici celui du code :



merci de votre aide

1 réponse

Messages postés
27927
Date d'inscription
samedi 29 décembre 2012
Statut
Modérateur, Contributeur sécurité
Dernière intervention
14 octobre 2020
10 549
Messages postés
8
Date d'inscription
jeudi 3 mai 2018
Statut
Membre
Dernière intervention
7 août 2018

Salut merci de ta reponse mais j'ai chercher un moyen d'importer via une macro et je n'ai pas trouver la commande aurais-tu une idée a ce sujet? je ne peux pas importer à la main car j'ai plusieurs fichiers a convertir que je ne connais pas forcement je l'ai recherche dans un dossier via un code que j'ai plus haut. je tiens a souligner que le fichier generer par le code à l'exception des 7 premières lignes le problème que je rencontre sont les guillemets