Importation d'un format csv dans un classeur excelRésolu

Question

Bonjour à tous,

Voila j'ai un soucis concernant l'importation de données dun csv dans un classeur excel.

Petit malin que je suis je pensais faire un copier coller de mon csv vers mon classeur grace a une macro automatique 
mais au final mes cases ne sont pas distinctes et toutes mes valeurs de lignes sont à la suite avec des ; 

    Shell "net use u: [file://\1.1.1.1\home \1.1.1.1\home] /USER:bonnin bonnin /PERSISTENT:YES", vbHide


    ChDir "U:\preguillon\stats modele"
    
    Workbooks.Open Filename:="U:\preguillon\stats modele\stats.csv"
    Cells.Select
    Selection.Copy
    
    Windows("stats vie modeles.xls").Activate
    Sheets("stats vie modeles").Select
    Cells.Select
    ActiveSheet.Paste


    ActiveWindow.WindowState = xlMinimized
    Windows("stats.csv").Activate
    ActiveWindow.Close
    Sheets("Menu").Select

Voyez vous un moyen de passetr outre le format csv avec délimiteur le ";"??

merci d'avance pour vos réponses

cs_MPi · Accepted Answer

Essaie de cette manière en utilisant le Clipboard d'Excel.
Il faut que tu crées une référence à "Microsoft Forms 2.0 Object library"

    Dim MyDataObject As DataObject
    Dim strTemp As String
    
    Open "C:\Fichier.csv" For Binary As #1  'change le nom du fichier
        strTemp = Space$(LOF(1))
        Get #1, , strTemp
        strTemp = Replace(strTemp, ";", vbTab) 'remplace les ; par des tabulations
        
        Set MyDataObject = New DataObject
        MyDataObject.SetText strTemp
        MyDataObject.PutInClipboard
        Range("A1").PasteSpecial
    Close #1
    
    MyDataObject.Clear
    Set MyDataObject = Nothing

MPi²

Adn56 · Answer

Moi je fais comme ça , si cela peut aider :

private sub workbook_open() 'ou autre ^^
workbook.open Filename:= thisworkbook.path + "	est.csv"
range("A2:K999".copy
windows("importation.xls).activate
range("A3").Select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks:=false, transpose:=false

C'est quasi se que tu fais mais je sais que le past special fonctionne avec un csv "data1;data2;...."
voila j'éspére que j'ai pas fait trop de faute car c'est recopié à la main 

Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

Adn56 · Answer

Arg comment on fait pour éditer son post ??


bon ben double post alors, dsl.


j'ai oublier une parenthése à la fin du rangeA2,A999.
et indiquer la fin de la copy pour ne pas avoir la selection qui traine dans le presspapier


De plus il faut fermer le fichier CSV à la fin, mais bon tu le sais déja^^

Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

fred2567 · Answer

je tes ça et je te redis

merci par avance de ta contribution

fred2567 · Answer

j'ai utilisé ton code mais apparamment il veut pas faire de collage spéciale,
en tout cas il ne remplace pas les ; .
c'es d'autant plus étrange que lorsque manuellement je fais ouvrir le fichier csv il apparait sous forme de colonne et si je le fai en auto il le présente avec des ; arggghhh

voici le code après modif : 

    Shell "net use u: [file://\1.1.1.1\home \1.1.1.1\home] /USER:bonnin bonnin /PERSISTENT:YES", vbHide


    ChDir "U:\preguillon\stats modele"
    
    Workbooks.Open Filename:="U:\preguillon\stats modele\stats.csv"
    Worksheets("stats").Range("A1:AM999").Copy
    Windows("stats vie modeles.xls").Activate
    Worksheets("stats vie modeles").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
    Windows("stats.csv").Activate
    ActiveWindow.Close
    Windows("stats vie modeles.xls").Activate
    Sheets("Menu").Select

Adn56 · Answer

ou alors le plus simple :
tu me dis que l'orsque tu l'ouvre il format bien ton csv ? mais pas via la macro c'est ça ?
Alors le plus simple c'est de cliquer sur enregistrer une macro et de faire toute les manip d'ouverture et de copier / coller à la main ^^
Et apres tu regardes le codes XD, c'est con mais ça marche ;)
++
Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

fred2567 · Answer

Merci mpi ton code marche nickel 

Adn 56 merci pour ta contribution sinon j'avais déjà essayer la macro auto sans succès;

Adn56 : 56 pour morbihan?

Adn56 · Answer

yep ^___^ Lorient city ;)

Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

Importation d'un format csv dans un classeur excel

8 réponses

Votre réponse

Discussions similaires