Encadrement automatique cellules avec guillemets

Bonjour,

Voila mon problème:

j ai ouvert un classeur excel pour faire 2 colones pour faire une base de donnée pour email, a savoir que j enregistre ensuite en csv avec , comme separateur.

voila l'exemple de mon classeur:

nom email

jiji jiji@ok.com

fred fred@gugus.com

marie marie@lala.com

j aimerai rajouter automatiquement des guillemets dans toutes les cellules exemple:

"nom" "email"

"jiji" "jiji@ok.com"

"fred" "fred@gugus.com"

"marie" "marie@lala.com"

Du moins quand j enregistre mon fichier en csv, que toutes mes cellules apparaisse comme l exemple ci-dessus, j aurai la virgule comme separatrice.

J ai plus de 1300 noms et emails donc je ne veux pas mettres les guillemets a la main et de toute façon cela ne fonctionnet pas quand j enregistre en csv.

Merci d'avance.

Bonjour,

teste ce code..

Répertoire et nom de fichier à adapter...

Sub ModifFichierTexte()
Dim Tbl()
Dim I As Integer
        'ouvre le fichier texte en lecture
Open "C:\Test\test.csv" For Input As #1
        'récupère toutes les valeurs
        'dans un tableau
Do While Not EOF(1)
    I = I + 1
    ReDim Preserve Tbl(1 To I)
    Input #1, Tbl(I)
Loop
        'si le fichier est vide...
If I = 0 Then
    Close #1
    MsgBox "Le fichier ne contient aucune données !"
    Exit Sub
End If
        'supprime les guillemets
For I = 1 To UBound(Tbl)
    x = InStr(1, Tbl(I), ";")
    y = """" & Left(Tbl(I), x - 1) & """" & "," & """" & Right(Tbl(I), Len(Tbl(I)) - x) & """"
    Tbl(I) = y
Next I
        'referme le fichier avant de le ré-ouvrir
        'en écriture
Close #1
Open "C:\Test\test.csv" For Output As #1
        'ré-inscrit les valeurs et referme
For I = 1 To UBound(Tbl)
    Print #1, Tbl(I)
Next I
Close #1
Erase Tbl
End Sub

Ou lala j ai oublié de signaler que je ne connaissait pas excel...

Re-,

enregistre le fichier joint sur ton PC, et suis les instructions à l'intérieur....

https://www.excel-pratique.com/~files/doc2/transforme_txt.xlsm

hello à tous

juste par curiosité :

pourquoi avoir besoin de mettre tous ces " ?

un logiciel spécial qui lit les csv qui possèdent ces " ?

cousinhub:

Avec quoi je lis ?

jmd:

C'est pour un auto répondeur.

Bonsoir,

si tu as déroulé conformément à la procédure, ouvre ton fichier .Csv avec Notepad, pour voir le résultat....

Je recommence,

c'est ce que tu m a donné https://www.excel-pratique.com/~files/doc2/transforme_txt.xlsm que je n arrive pas a exploiter. Je l ai sur mon pc mais apres cet un fichier non reconnu par mon pc, donc je ne sais pas avec quoi l ouvrir.

Re-,

euh, tu as bien Excel 2007?

C'est ce qui est marqué dans ton profil....

Bonsoir

Peut-être une idée : matdollars, tu es sous Internet Explorer ?

A te relire

Amicalement

Nad

ah ok, alors je vais essayé avec le 2007 pardon...

Re-,

J'avais mis justement en .xlsm (fichier excel 2007 contenant des macros), car j'avais vu que tu l'avais..

Sinon, pour les autres versions, ce sont toujours des fichiers .xls

Nad,

alors pour le pc bureau firfox avec excel 2000

pc portable ie avec excel 2007

Et là, c'est le portable, donc IE ?

Nad

oui, enfin j ai les 2 sous les yeux

Si tu te mets sous Mozilla, tu n'auras pas de problème d'ouverture.

Pour IE, il faut d'abord que tu fasses une manip :

1 – Au lieu de cliquer sur OUVRIR tu fais ENREGISTRER

2 - Tu vas dans Démarrer ==> Ordinateur, et dans la partie gauche tu ouvres « Mes Documents » ou le nom que tu as donné à ce dossier. (pour Vista)

3 – Tu ouvres TELECHARGEMENT

4 – Tu vois le fichier transforme_txt.zip ; tu fais un click droit et du choisis « Ouvrir Avec », « Choisir le programme par défaut » puis « Parcourir » – Tu ouvres Microsoft Office ==> Office12 et tu cliques sur excel.exe

Maintenant, tu pourras ouvrir les liens en étant sur internet explorer. Il y a juste un message d’avertissement comme quoi l’extension du fichier n’est pas la même.

Amicalement

Nad

j ai une fenetre qui c'est ouverte de visual basic avec

erreur d'execution 53 fichier intouvable.

Re-

tu as bien rentré le répertoire (entier) en A1, et le nom du fichier avec son extension (fichier.csv) en A2?

Oui alors

dans l ordre

J ouvre le fichier que tu ma donné, ca s ouvre avec excel.

ensuite je remplis le répertoire ou se situe mon fichier.csv, mais je n ai pas de fichier csv, j ai juste un fichier qui s appelle liste enregistrer comme un classeur normal avec dedans une colonne A avec tout les noms et une colone B avec tout les emails.

Re,

dans ce cas, tu exportes ce fichier (Bouton Office, Enregistrer Sous, Autre Format)

Dans la fenêtre Enregistrer sous, tu choisis CSV (séparateur : point virgule)(*.csv) le 15 ème choix....

Une fois enregistré, tu le fermes, et tu commences la manip