Format personnalisé

[califmeg27]

Bonjour,

Je dois créer un fichier d'import d'une liste de produit, prix....
Le format d'import correct est celui-ci:
1000008,"appareil photo","120","240" soit
Référence,"désignation","prix d'achat","prix de vente"

Mon fichier initial avec mes 20000 références est de la forme suivante:

1000008,appareil photo,120,2409 soit
Référence,appareil photo,prix d'achat,prix de vente

Je souhaiterai donc que les 20000 lignes soit au format d'import correct (ci-dessus) et ne pas avoir à le faire à la main...

merci d'avance de votre aide.

Mimi

 

[Pierrot93]

Re : Format personnalisé

Bonjour,

pas très clair ceci... s'il s'agit d'importation de données, passe peut être par la conversion, sous 2003 => barre de menu => données => convertir, existe également sous 2007..

bon après midi
@+

 

[califmeg27]

Re : Format personnalisé

Merci pour la réponse, mais j'ai déja essayé de convertir les données...
ça n'aide pas, en fait le format que je voudrais c'est:

1000008 virgule guillemet appareil photo guillemet virgule guillemet120 guillemet virgule guillemet240 guillemet

au lieu des seules virgules de moins fichier initial...

 

[Pierrot93]

Re : Format personnalisé

Re,

et pourquoi la première valeur n'est pas entre guillemet... mets peut être un extrait de ton fichier en pièce jointe avec données de départ et résultat attendu, sera sans doute plus facile pour t'aider...

 

[califmeg27]

Re : Format personnalisé

Voici les fichiers en pièce jointe

 

[Pierrot93]

Re : Format personnalisé

Re,

essaye ceci, attention la 2ème ligne de ton fichier initial possède déjà des guillemets....

Option Explicit
Sub test()
Dim i As Long, t() As String, j As Byte
For i = 1 To Range("A65536").End(xlUp).Row
    t = Split(Cells(i, 1), ",")
    For j = 1 To UBound(t)
        t(j) = """" & t(j) & """"
    Next j
    Cells(i, 1) = Join(t, ",")
Next i
End Sub

 

[ralph45]

Re : Format personnalisé

Bonjour le fil et à toi, califmeg27

Un début : sélectionne ta colonne, puis
- Rechercher ,
- et Remplacer par ","

A plus...

 

[Pierrot93]

Re : Format personnalisé

Re, bonsoir Ralph

A noter que l'on peut passer également par un variant pour gagner en vitesse d'exécution :

Option Explicit
Sub test()
Dim v() As Variant, i As Long, t() As String, j As Byte
v = Application.Transpose(Range("A1", Range("A65536").End(xlUp)))
For i = LBound(v) To UBound(v)
    t = Split(v(i), ",")
    For j = 1 To UBound(t)
        t(j) = """" & t(j) & """"
    Next j
    Cells(i, 1) = Join(t, ",")
Next i
End Sub

 

[JBOBO]

Re : Format personnalisé

Bonjour,

Un essai avec texte en A2

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;",";","&CAR(34);1);",";CAR(34)&","&CAR(34);2);",";CAR(34)&","&CAR(34);3);CAR(34)&CAR(34);CAR(34))&CAR(34);CAR(34)&CAR(34);CAR(34))

 

[califmeg27]

Re : Format personnalisé

Merci à tous pour vos réponses et plus particulièrement à Pierrot, ça marche!!!
Super je vais gagner un temps fou.
Merci encore.

 

[califmeg27]

Re : Format personnalisé

Bonjour à tous,

J'ai à nouveau un petit problème, mon import ne marche plus à moins d'ajouter également des guillemets à la première valeur "référence".
Je ne sais pas comment modifier le code pour ce faire.
Merci de votre aide