Discussion :

[sylviobarca]

Bonjour,

Je cherche depuis hier (et je continus) du code en VBA qui me permettrait de réaliser 2 Opérations.

J'ai deux fichiers excel.
Le premier que j'appelerai "données.xls" ressort d'une extraction d'une base access. Il s'agit d'un fichier avec des données sur des clients. (Une ligne par client avec par exemple: codeclient, nomclient, prenomclient....)

L'autre fichier est une plaquette avec plusieurs feuilles consernant des informations sur ces clients: Nom, Prénom Adresse....
Je l'appèlerais: "client.xls"

Je souhaiterais dans un premier temps:

1- Créer autant de fichiers "client.xls", qu'il y a de lignes dans le fichier "données" et renommer chaques fichiers par le code client (code unique).

2- Dans la deuxième Opération, j'aimerais à partir du fichier "données.xls" transfrèrer ces données dans les fichiers "client.xls" afin de remplir automatiquement les informations consernant chaque client.

Je suis débutant en VBA mais je me débrouille à récupèrer du code par ci par là pour faire ce que je veux mais là, je ne trouve vraiment pas...

Si quelqu'un peut me venir en aide ça ne serait vraiment pas de refus!!!

Merci d'avance!!!

[Theze]

Bonsoir,

Une piste, à mettre dans un module standard, à adapter et tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub CreerClasseur()
 
    Dim Cls As Workbook
    Dim Plage As Range
    Dim Cel As Range
 
    'la plage des codes clients est en colonne A
    With ActiveSheet
        Set Plage = .Range(.[A1], .[A65536].End(xlUp))
    End With
 
    For Each Cel In Plage
 
        'le code étant sensé être unique, un classeur est créé
        'pour chaque ligne de la colonne A puis la ligne
        'entière est copiée dans la feuille "Feuil1" du
        'classeur, ce dernier est enregistré dans le même dossier
        'que le classeur "données.xls" avec comme nom le code client
        'puis fermé afin de ne pas encombrer
        Set Cls = Workbooks.Add
        Cel.EntireRow.Copy Cls.Worksheets("Feuil1").[A1]
        Cls.SaveAs ThisWorkbook.Path & "\" & Cel.Value & ".xls"
        Cls.Close
 
    Next Cel
 
End Sub

Hervé.