Demande Spéciale

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4249201
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"
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


Daniel
Le #4249181
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"
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




Daniel
Le #4248951
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" %
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"
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"
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












Martin
Le #4248931
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"
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"
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








Daniel
Le #4248911
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" %
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"
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"
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












Martin
Le #4246301
C'est merveilleux!!

`Le bonheur total :)

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

Bonne journée à vous!

Martin
"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" %
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"
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"
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
















Publicité
Poster une réponse
Anonyme