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
Philippe.R
Bonjour à toi aussi Gilles, Si le nombre de lignes de la colonne ne dépasse pas 256, tu peux regarder du côté de édition / copier / collage spécial / et cocher transposé -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Gilles" a écrit dans le message de news:
j'ai recupére un fichier client Qui es sur une colonne et je voudrais le passe sur un ligne pour le transformer en csv
Merci de votre aide
-- # ANTISPAM # Click on the link to answer - Cliquez sur le lien pour répondre http://www.cerbermail.com/?zH3uNd5dV8
Bonjour à toi aussi Gilles,
Si le nombre de lignes de la colonne ne dépasse pas 256, tu peux regarder du côté de édition / copier /
collage spécial / et cocher transposé
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Gilles" <a@a.fr> a écrit dans le message de news: eKhysWZTFHA.3636@TK2MSFTNGP14.phx.gbl...
j'ai recupére un fichier client Qui es sur une colonne et je voudrais le passe sur un ligne pour le
transformer en csv
Merci de votre aide
--
# ANTISPAM #
Click on the link to answer - Cliquez sur le lien pour répondre
http://www.cerbermail.com/?zH3uNd5dV8
Bonjour à toi aussi Gilles, Si le nombre de lignes de la colonne ne dépasse pas 256, tu peux regarder du côté de édition / copier / collage spécial / et cocher transposé -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Gilles" a écrit dans le message de news:
j'ai recupére un fichier client Qui es sur une colonne et je voudrais le passe sur un ligne pour le transformer en csv
Merci de votre aide
-- # ANTISPAM # Click on the link to answer - Cliquez sur le lien pour répondre http://www.cerbermail.com/?zH3uNd5dV8
MichDenis
Bonjour Gilles,
Ces 2 procédures te permettent d'enregistrer toute la feuille de données que tu auras définie dans la procédure "EnregistrerFormaSpecial" directement au format de fichier .csv . en transposant tes colonnes pour des lignes. Tu peux même choisir ton séparateur..
N'oublie pas de désigner un chemin et un nom de fichier pour ton fichier .csv dans la procédure. '----------------------------------- Sub EnregistrerFormatSpecial()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
With ThisWorkbook.Worksheets("Feuil2") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
End Sub '----------------------------------- Sub SaveAsCSV(Plage As Range, Séparateur As String, _ NomFichierSauvegarde As String)
Dim Temp As String, R As Range, C As Range
Open NomFichierSauvegarde For Output As #1 For Each R In Plage.columns Temp = "" For Each C In R.Cells Temp = Temp & C & Séparateur Next Temp = Left(Temp, Len(Temp) - 3) Print #1, Temp Next Close Set Plage = Nothing: Set C = Nothing: Set R = Nothing End Sub '-----------------------------------
Salutations!
"Gilles" a écrit dans le message de news: j'ai recupére un fichier client Qui es sur une colonne et je voudrais le passe sur un ligne pour le transformer en csv
Merci de votre aide
-- # ANTISPAM # Click on the link to answer - Cliquez sur le lien pour répondre http://www.cerbermail.com/?zH3uNd5dV8
Bonjour Gilles,
Ces 2 procédures te permettent d'enregistrer toute la feuille de données que tu auras définie dans la procédure
"EnregistrerFormaSpecial" directement au format de fichier .csv . en transposant tes colonnes pour des lignes. Tu peux même choisir
ton séparateur..
N'oublie pas de désigner un chemin et un nom de fichier pour ton fichier .csv dans la procédure.
'-----------------------------------
Sub EnregistrerFormatSpecial()
Dim Plage As Range, Séparateur As String
Dim NomFichierSauvegarde As String
Dim R As Long, C As Integer
With ThisWorkbook.Worksheets("Feuil2")
R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
Set Plage = .Range(.Range("A1"), Cells(R, C))
End With
End Sub
'-----------------------------------
Sub SaveAsCSV(Plage As Range, Séparateur As String, _
NomFichierSauvegarde As String)
Dim Temp As String, R As Range, C As Range
Open NomFichierSauvegarde For Output As #1
For Each R In Plage.columns
Temp = ""
For Each C In R.Cells
Temp = Temp & C & Séparateur
Next
Temp = Left(Temp, Len(Temp) - 3)
Print #1, Temp
Next
Close
Set Plage = Nothing: Set C = Nothing: Set R = Nothing
End Sub
'-----------------------------------
Salutations!
"Gilles" <a@a.fr> a écrit dans le message de news: eKhysWZTFHA.3636@TK2MSFTNGP14.phx.gbl...
j'ai recupére un fichier client Qui es sur une colonne et je voudrais le
passe sur un ligne pour le transformer en csv
Merci de votre aide
--
# ANTISPAM #
Click on the link to answer - Cliquez sur le lien pour répondre
http://www.cerbermail.com/?zH3uNd5dV8
Ces 2 procédures te permettent d'enregistrer toute la feuille de données que tu auras définie dans la procédure "EnregistrerFormaSpecial" directement au format de fichier .csv . en transposant tes colonnes pour des lignes. Tu peux même choisir ton séparateur..
N'oublie pas de désigner un chemin et un nom de fichier pour ton fichier .csv dans la procédure. '----------------------------------- Sub EnregistrerFormatSpecial()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
With ThisWorkbook.Worksheets("Feuil2") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
End Sub '----------------------------------- Sub SaveAsCSV(Plage As Range, Séparateur As String, _ NomFichierSauvegarde As String)
Dim Temp As String, R As Range, C As Range
Open NomFichierSauvegarde For Output As #1 For Each R In Plage.columns Temp = "" For Each C In R.Cells Temp = Temp & C & Séparateur Next Temp = Left(Temp, Len(Temp) - 3) Print #1, Temp Next Close Set Plage = Nothing: Set C = Nothing: Set R = Nothing End Sub '-----------------------------------
Salutations!
"Gilles" a écrit dans le message de news: j'ai recupére un fichier client Qui es sur une colonne et je voudrais le passe sur un ligne pour le transformer en csv
Merci de votre aide
-- # ANTISPAM # Click on the link to answer - Cliquez sur le lien pour répondre http://www.cerbermail.com/?zH3uNd5dV8
