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

bonjour marjo06,

oui à priori...

peux-tu envoyer un fichier avec ta "base de données" et un modèle de "fiche individuelle" pour qu'on puisse t'aider.

a+

 

[marjo06]

Re : Importation de données

Ci-joint les deux fichiers.
Merci.

 

[mromain]

Re : Importation de données

re salut,

voici une macro à exécuter depuis le fichier "Base de données.xls" :

Sub Publier()
Dim zoneCopie As Range, i As Integer, nbVal As Integer

On Error GoTo Publier_Error
Application.ScreenUpdating = False

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

On Error GoTo 0
Exit Sub

Publier_Error:
Application.ScreenUpdating = True
End Sub

a+

 

[marjo06]

Re : Importation de données

Merci beaucoup pour ta réponse mais je ne connais pas les macros (sauf les toutes simples sans code) et donc je ne sais pas du tout où mettre ce code.
Désolée...

 

[mromain]

Re : Importation de données

re,

je t'ai créé un bouton dans la feuille.
pour voir le code, faire un "clic droit" sur l'onglet, puis "visualiser le code".

a+

 

[marjo06]

Re : Importation de données

Nickel, par contre là ça me remplie automatiquement les données de la ligne 3 donc question (très bête certainement...) comment je fais pour avoir les autres ?
Merci...

 

[mromain]

Re : Importation de données

je ne comprends pas ton problème.
chez moi, ça me crée bien un fichier par ligne.

 

[marjo06]

Re : Importation de données

en fait quand je clique sur le bouton, ça m'ouvre une feuille avec les données du client de la ligne 3 de la base de données. Comment faire pour avoir les autres clients ?

 

[mromain]

Re : Importation de données

re,

remplace le code par celui-ci et dis-moi ce qu'il en est :

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

On Error GoTo Publier_Error
Application.ScreenUpdating = False

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

On Error GoTo 0
Application.ScreenUpdating = True
Exit Sub

Publier_Error:
MsgBox ("erreur dans la macro")
Application.ScreenUpdating = True
End Sub

a+

 

[marjo06]

Re : Importation de données

idem sauf que j'ai avant le message "message d'erreur dans la macro"

 

[mromain]

Re : Importation de données

juste à tout hasard, ton fichier "Base de données.xls" est bien enregistré.
si oui,

met en commentaire la ligne "On Error GoTo Publier_Error" (apostrophe en début de ligne),
exécute la macro "pas à pas" (tu clique successivement sur F8)

et précise à quelle ligne le code arrête de fonctionner.

a+

 

[marjo06]

Re : Importation de données

apparemment ça stop à la première ligne "Private Sub CommandButton1_Click()"

 

[mromain]

Re : Importation de données

il faut appuyer sur F8 (plusieurs fois) jusqu'à qu'une fenêtre d'erreur s'ouvre (avec un message d'erreur)

 

[marjo06]

Re : Importation de données

Application.ScreenUpdating = True