XL 2013 macro csv / xls

[stfrad31]

Bonjour a tous et merci d'avance a tous ceux qui essaieront de m'aider/ de me répondre .

j'ai un problème avec une automatisation de tache par macro/vba sous excel/2013

je récupère des résultats d'un appareil de labo qui sont exporté automatiquement en fichier excel.csv sous excel 2013 windows 10 . J ouvre le fichier depuis un autre poste avec excel 2013 / Windows 7 ...je fait un copier/collage special valeur et tout se passe bien .
Si j'automatise cette tache avec une macro , rien ne va plus.... et les résultats qui sont " collés "ne sont plus au même format et donc ne correspondent plus avec la database sur laquelle je dois travailler .
apres quelques recherches sur le net , j'ai cru comprendre qu'ils s'agit d'une histoire de format Texte et de ";" au lieu de "," .. mais je n'ai rien trouvé de concret qui puisse me faire avancer , les quelques exemples de macro que j'ia trouvé censées résoudre le probleme ne fonctionnent pas.....

Help

merci

Stef

 

[patricktoulon]

fait un numberformat="@" a tes colonnes avant de coller
après tout dépend du comment tu importe tes données et un exemple de ce csv serait le bien venue

 

[stfrad31]

re bonjour
juste un copie d'ecran , je n'arrive pas a le charger via l outil de telechargement de fichier ( extention non autorisée )

je n'ai absolument aucun probleme pour l'ouvrir avec excel 2013 , juste c'ets avec les macros que ca ne passe plus...

 

[Hasco]

Bonjour,

juste un copie d'ecran , je n'arrive pas a le charger via l outil de telechargement de fichier ( extention non autorisée )

Changez son extension en .txt

A vous relire

 

[patricktoulon]

re
ben non comment veux tu que l'on voit le soucis de différence sans le csv original

 

[stfrad31]

en Txt

 

[stfrad31]

alors voila c'est exactement comme ca que la macro me le copie ... en format txt....

prochaine co pour moi Lundi
mercide vos réponses
bon we a tous

 

[Hasco]

Bonjour,

Ne pas ouvrir votre fichier directement mais importer les données par 'données/a partir du texte' ce qui va provoquer l'ouverture de l'assistant d'importation. A la troisième étape sélectionnez les colonne ayant des nombres et cliquer sur avancé pour choisir le séparateur décimal (. le point)
Choisissez Date pour la deuxième colonne.
Valider, c'est terminer.

Cordialement

 

[Staple1600]

Bonjour le fil,

stfrad31
Juste pour info.
On peut joindre des fichiers *.zip sur le forum
Partant de là, on peut joindre tout type de fichier
Il suffit de le compresser au préalable
(Sous Windows: Clic-droit -> Envoyer vers dossiers compressés puis joindre sur XLD le *.zip obtenu)

 

[Staple1600]

Re

Puisque le message#1 parlait d'automatisation et de VBA, voici une petit macro
(On pourrait peaufiner en ajoutant la sélection du dossier par boite de dialogue)
Testé avec Excel 2013
(code issu de l'enregistreur de macros, suivi d'un léger élagage)

Sub Test()
Dim FICHIER$
FICHIER = "C:\Users\STAPLE\LB .txt" 'adapter chemin dossier et nom fichier
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & FICHIER, Destination:=Range("$A$1"))
        .Name = "LB "
        .FieldNames = True
        .RowNumbers = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileSemicolonDelimiter = True
        .TextFileColumnDataTypes = Array(2, 4, 2, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

 

[stfrad31]

Bonjour a tous et merci pour vos suggestions / réponses . même si cela n'as pas été directement utilisé , cela m'asdonnée des psites pour résoudre le problème
encore merci
Steph