VBA, ouvrir CSV pdt une maccro.

Résolu
Julistage Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -  
Julistage Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à toutes et à tous,

J'ai un petit soucis que je n'arrive pas à résoudre:
Pendant le déroulement de ma maccro, je souhaiterais ouvrir un fichier csv spécifique. Malheureusement :( mon fichier csv s'ouvre, mais tout se trouve dans la colonne A séparé par des points virgules.
J'ai essayer cette syntaxe: 

Workbooks.Open ("S:\PromoVente\2010_Animation\CESAR\Alimentation\Alimentation Cesar\Traductions\Traductions finales\Copie de Période courante csv\xls\" & sheetsave


avec sheetsave le nom du fichier que je souhaiterais ouvrir.
J'aimerais que mon fichier csv s'ouvre correctement.
Quelque chose manque dans ma syntaxe? Que faut-il que je modifie?
Merci d'avance :) !
A voir également:

3 réponses

Réponse 1 / 3
Julistage Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   3
 
Salut.

j'ai résolus mon soucis en bidouillant. Je viens de voir que j'avais eu une réponse. Je n'ai pas réussi à faire marcher ta réponse :x par contre...

Voilà comment j'ai résolus le soucis, et ça marche bien :) : 
wb = "S:\chemin\"

Workbooks.Open _
Filename:=wb, _
Origin:=xlWindows, _
Local:=True


Merci pour ta réponse :). Je vais essayer de continuer à bidouiller ton bout de code.

Bonne journée! :)
2
Réponse 2 / 3
Julistage Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   3
 
je me permet de faire un petit up sur ce post. :)
0
Réponse 3 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonsoir
peut etre ouvrir comme fichier texte, l'editeur de macro donne ceci qui fonctionne pour un .txt



Private Sub CommandButton2_Click()
Dim nomfic As String, nomchemin As String
nomfic = "doc1.txt"
nomchemin = "C:\Users\max\Documents\"
Workbooks.OpenText Filename:=nomchemin & nomfic, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False
End Sub

bonne suite
0