Importation de données

[marjo06]

Bonjour,
J'ai un fichier client sur excel comportant différentes données les concernant et j'aimerais créer, à partir de ce fichier, des fiches individuelles (une par client). Cela est-il faisable ?
Merci d'avance.
Cordialement.

 

[mromain]

Re : Importation de données

re,

essaye avec ce code, et si erreur il y a, refait la procédure "pas à pas".

Private Sub CommandButton1_Click()
Dim zoneCopie As Range, i As Integer, nbVal As Integer

With ThisWorkbook.Sheets("Liste complète")
    Set zoneCopie = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft))
    nbVal = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

For i = 2 To nbVal
    With Application.Workbooks.Add(xlWBATWorksheet)
        zoneCopie.Copy
        .Sheets(1).Range("A1").PasteSpecial xlPasteAll, , , True
        zoneCopie.Offset(i - 1).Copy
        .Sheets(1).Range("B1").PasteSpecial xlPasteAll, , , True
        .SaveAs (ThisWorkbook.Path & "\test" & i - 1)
        .Close (False)
    End With
Next i
Application.CutCopyMode = False
End Sub

a+

 

[marjo06]

Re : Importation de données

nouvelle erreur : 1004

ligne ".SaveAs (ThisWorkbook.Path & "\test" & i - 1)"

 

[mromain]

Re : Importation de données

re,

essaye en remplaçant
.SaveAs (ThisWorkbook.Path & "\test" & i - 1)
par
.SaveAs ("C:\temp\test" & i - 1)

en vérifiant que tu as bien un dossier C:\temp

et regarde si ça buge

a+

 

[marjo06]

Re : Importation de données

même erreur à la même ligne

 

[mromain]

Re : Importation de données

là je ne vois pas,

tu es sur quelle version d'Excel?

 

[marjo06]

Re : Importation de données

version 2003

 

[mromain]

Re : Importation de données

...
je suis sous 2007.
je ne sais pas quoi te dire... désolé

a+

 

[marjo06]

Re : Importation de données

Ca n'est pas grave, c'est déjà très gentil d'y avoir passé autant de temps.
Merci beaucoup.
Bonne fin de journée.