Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Demande Spéciale

Demande Spéciale

6 réponses
Avatar
Martin
Bonjour,

Je suis en excel 2000 et voici ce que j'ai besoin de faire:
Un fichier contient plusieurs feuilles, et chaque feuille est fait pareil

colA ColB ColC
nom prenom telephone

Je dois recuperer toutes ces données en un seul fichier texte qui ressemble
a ceci:

nom1,prenom1,telephone1,
nom2,prenom2,telephone2,
etc...

Je crois que le séparateur n'a pas trop d'importance pour l'instant. Donc il
peut aussi etre le ; comme dans un fichier csv.
Donc la partie plus difficile est de rassembler toutes les données dans une
meme feuille avant de le sauvegarder.
Aussi, chaque ligne doit se terminer pa un séparateur.

Merci beaucoup à l'avance pour votre aide.

Martin
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonsoir,

La conso se fait dans la première feuille:

For s = 2 To Sheets.Count
Sheets(s).[A1:E1].Copy Sheets(1).[A65000].End(xlUp).Offset(1, 0)
Next s

Ensuite enregistrer sous/ format Csv ou Texte

http://cjoint.com/?dpvjXCgzje

JB


On 15 mar, 20:51, "Martin" wrote:
Bonjour,

Je suis en excel 2000 et voici ce que j'ai besoin de faire:
Un fichier contient plusieurs feuilles, et chaque feuille est fait pareil

colA ColB ColC
nom prenom telephone

Je dois recuperer toutes ces données en un seul fichier texte qui resse mble
a ceci:

nom1,prenom1,telephone1,
nom2,prenom2,telephone2,
etc...

Je crois que le séparateur n'a pas trop d'importance pour l'instant. Do nc il
peut aussi etre le ; comme dans un fichier csv.
Donc la partie plus difficile est de rassembler toutes les données dans une
meme feuille avant de le sauvegarder.
Aussi, chaque ligne doit se terminer pa un séparateur.

Merci beaucoup à l'avance pour votre aide.

Martin


Avatar
Daniel
Bonsoir.
Essaie la macro :

Sub FichierTexte()
Dim sh As Worksheet, Enrgt As String, c As Range
Const Separateur = ","
Open "c:temptoto.csv" For Output As #1
For Each sh In Sheets
With sh
For Each c In .Range("A1", .Range("A65536").End(xlUp))
Enrgt = c & Separateur & c.Offset(0, 1) & Separateur & _
c.Offset(0, 2) & Separateur
Write #1, Enrgt
Next c
End With
Next sh
Close #1
End Sub

Cordialement.
Daniel
"Martin" a écrit dans le message de news:

Bonjour,

Je suis en excel 2000 et voici ce que j'ai besoin de faire:
Un fichier contient plusieurs feuilles, et chaque feuille est fait pareil

colA ColB ColC
nom prenom telephone

Je dois recuperer toutes ces données en un seul fichier texte qui
ressemble
a ceci:

nom1,prenom1,telephone1,
nom2,prenom2,telephone2,
etc...

Je crois que le séparateur n'a pas trop d'importance pour l'instant. Donc
il
peut aussi etre le ; comme dans un fichier csv.
Donc la partie plus difficile est de rassembler toutes les données dans
une
meme feuille avant de le sauvegarder.
Aussi, chaque ligne doit se terminer pa un séparateur.

Merci beaucoup à l'avance pour votre aide.

Martin




Avatar
Daniel
Non, malheureusement, les guillemets sont mis automatiqement. Le fichier est
néanmoins reconnu comme un fichier csv par Excel.Ouvre le fichier avec le
bloc-notes ou Word et fait un remplacer des guillemets par rien.
Daniel
"Martin" a écrit dans le message de news:
%
Re-bonjour

Merci Daniel, c'est vraiment bien

Comme je suis tres tres débutant en VBA, comment pourrais-je modifier ce
code pour enlever les "" au debut et a la fin de chaque ligne?

Pour le reste, ca fait exactement ce que je veux..

Merci, vraiment beaucoup

Martin
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie la macro :

Sub FichierTexte()
Dim sh As Worksheet, Enrgt As String, c As Range
Const Separateur = ","
Open "c:temptoto.csv" For Output As #1
For Each sh In Sheets
With sh
For Each c In .Range("A1", .Range("A65536").End(xlUp))
Enrgt = c & Separateur & c.Offset(0, 1) & Separateur & _
c.Offset(0, 2) & Separateur
Write #1, Enrgt
Next c
End With
Next sh
Close #1
End Sub

Cordialement.
Daniel
"Martin" a écrit dans le message de news:

Bonjour,

Je suis en excel 2000 et voici ce que j'ai besoin de faire:
Un fichier contient plusieurs feuilles, et chaque feuille est fait
pareil

colA ColB ColC
nom prenom telephone

Je dois recuperer toutes ces données en un seul fichier texte qui
ressemble
a ceci:

nom1,prenom1,telephone1,
nom2,prenom2,telephone2,
etc...

Je crois que le séparateur n'a pas trop d'importance pour l'instant.
Donc il
peut aussi etre le ; comme dans un fichier csv.
Donc la partie plus difficile est de rassembler toutes les données dans
une
meme feuille avant de le sauvegarder.
Aussi, chaque ligne doit se terminer pa un séparateur.

Merci beaucoup à l'avance pour votre aide.

Martin












Avatar
Martin
Re-bonjour

Merci Daniel, c'est vraiment bien

Comme je suis tres tres débutant en VBA, comment pourrais-je modifier ce
code pour enlever les "" au debut et a la fin de chaque ligne?

Pour le reste, ca fait exactement ce que je veux..

Merci, vraiment beaucoup

Martin
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie la macro :

Sub FichierTexte()
Dim sh As Worksheet, Enrgt As String, c As Range
Const Separateur = ","
Open "c:temptoto.csv" For Output As #1
For Each sh In Sheets
With sh
For Each c In .Range("A1", .Range("A65536").End(xlUp))
Enrgt = c & Separateur & c.Offset(0, 1) & Separateur & _
c.Offset(0, 2) & Separateur
Write #1, Enrgt
Next c
End With
Next sh
Close #1
End Sub

Cordialement.
Daniel
"Martin" a écrit dans le message de news:

Bonjour,

Je suis en excel 2000 et voici ce que j'ai besoin de faire:
Un fichier contient plusieurs feuilles, et chaque feuille est fait pareil

colA ColB ColC
nom prenom telephone

Je dois recuperer toutes ces données en un seul fichier texte qui
ressemble
a ceci:

nom1,prenom1,telephone1,
nom2,prenom2,telephone2,
etc...

Je crois que le séparateur n'a pas trop d'importance pour l'instant. Donc
il
peut aussi etre le ; comme dans un fichier csv.
Donc la partie plus difficile est de rassembler toutes les données dans
une
meme feuille avant de le sauvegarder.
Aussi, chaque ligne doit se terminer pa un séparateur.

Merci beaucoup à l'avance pour votre aide.

Martin








Avatar
Daniel
Ignore ma réponse précédente. Essaie la macro :

Sub FichierTexte()
Dim sh As Worksheet, Enrgt As String, c As Range
Const Separateur = ","
Open "c:temptoto.csv" For Output As #1
For Each sh In Sheets
With sh
For Each c In .Range("A1", .Range("A65536").End(xlUp))
Enrgt = c & Separateur & c.Offset(0, 1) & Separateur & _
c.Offset(0, 2) & Separateur
Print #1, Enrgt
Next c
End With
Next sh
Close #1
End Sub

Daniel
"Martin" a écrit dans le message de news:
%
Re-bonjour

Merci Daniel, c'est vraiment bien

Comme je suis tres tres débutant en VBA, comment pourrais-je modifier ce
code pour enlever les "" au debut et a la fin de chaque ligne?

Pour le reste, ca fait exactement ce que je veux..

Merci, vraiment beaucoup

Martin
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie la macro :

Sub FichierTexte()
Dim sh As Worksheet, Enrgt As String, c As Range
Const Separateur = ","
Open "c:temptoto.csv" For Output As #1
For Each sh In Sheets
With sh
For Each c In .Range("A1", .Range("A65536").End(xlUp))
Enrgt = c & Separateur & c.Offset(0, 1) & Separateur & _
c.Offset(0, 2) & Separateur
Write #1, Enrgt
Next c
End With
Next sh
Close #1
End Sub

Cordialement.
Daniel
"Martin" a écrit dans le message de news:

Bonjour,

Je suis en excel 2000 et voici ce que j'ai besoin de faire:
Un fichier contient plusieurs feuilles, et chaque feuille est fait
pareil

colA ColB ColC
nom prenom telephone

Je dois recuperer toutes ces données en un seul fichier texte qui
ressemble
a ceci:

nom1,prenom1,telephone1,
nom2,prenom2,telephone2,
etc...

Je crois que le séparateur n'a pas trop d'importance pour l'instant.
Donc il
peut aussi etre le ; comme dans un fichier csv.
Donc la partie plus difficile est de rassembler toutes les données dans
une
meme feuille avant de le sauvegarder.
Aussi, chaque ligne doit se terminer pa un séparateur.

Merci beaucoup à l'avance pour votre aide.

Martin












Avatar
Martin
C'est merveilleux!!

`Le bonheur total :)

Merci beaucoup à toi Daniel, merci aussi a JB pour sa réponse

Bonne journée à vous!

Martin
"Daniel" a écrit dans le message de news:

Ignore ma réponse précédente. Essaie la macro :

Sub FichierTexte()
Dim sh As Worksheet, Enrgt As String, c As Range
Const Separateur = ","
Open "c:temptoto.csv" For Output As #1
For Each sh In Sheets
With sh
For Each c In .Range("A1", .Range("A65536").End(xlUp))
Enrgt = c & Separateur & c.Offset(0, 1) & Separateur & _
c.Offset(0, 2) & Separateur
Print #1, Enrgt
Next c
End With
Next sh
Close #1
End Sub

Daniel
"Martin" a écrit dans le message de news:
%
Re-bonjour

Merci Daniel, c'est vraiment bien

Comme je suis tres tres débutant en VBA, comment pourrais-je modifier
ce


code pour enlever les "" au debut et a la fin de chaque ligne?

Pour le reste, ca fait exactement ce que je veux..

Merci, vraiment beaucoup

Martin
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie la macro :

Sub FichierTexte()
Dim sh As Worksheet, Enrgt As String, c As Range
Const Separateur = ","
Open "c:temptoto.csv" For Output As #1
For Each sh In Sheets
With sh
For Each c In .Range("A1", .Range("A65536").End(xlUp))
Enrgt = c & Separateur & c.Offset(0, 1) & Separateur & _
c.Offset(0, 2) & Separateur
Write #1, Enrgt
Next c
End With
Next sh
Close #1
End Sub

Cordialement.
Daniel
"Martin" a écrit dans le message de news:

Bonjour,

Je suis en excel 2000 et voici ce que j'ai besoin de faire:
Un fichier contient plusieurs feuilles, et chaque feuille est fait
pareil

colA ColB ColC
nom prenom telephone

Je dois recuperer toutes ces données en un seul fichier texte qui
ressemble
a ceci:

nom1,prenom1,telephone1,
nom2,prenom2,telephone2,
etc...

Je crois que le séparateur n'a pas trop d'importance pour l'instant.
Donc il
peut aussi etre le ; comme dans un fichier csv.
Donc la partie plus difficile est de rassembler toutes les données
dans




une
meme feuille avant de le sauvegarder.
Aussi, chaque ligne doit se terminer pa un séparateur.

Merci beaucoup à l'avance pour votre aide.

Martin