Discussion :

[mikelion]

Bonjour
Je voudrais réaliser un publipostage, mais de Excel vers Excel.

Mon tableau de départ est un tableau classique.
Mes tableaux d'arrivée sont une sorte d'emploi du temps.

Je voudrais donc générer autant de fichiers d'arrivée qu'il y a de lignes dans mon tableau de départ, chaque tableau d'arrivée récupérant bien sûr les données de chaque ligne.


Par avance merci pour votre aide.

Avec mes respectueuses salutations.

[EngueEngue]

Bah fais le

[mikelion]

Effectivement je pourrai le faire. Le truc c'est que j'ai 500 lignes et plus de 100 colonnes dans mon tableau, je ne me vois pas reporter une par une les données. Ou même faire un lien vers une ligne, générer un tableau, puis passer au suivant.

Voilà.

[EngueEngue]

Fais le avec une macro..

Ou alors donne des informations, pose une question, demande précisement ce que tu veux fichiers à l'appui.

[mikelion]

Voici 2 fichiers simplifiés du type de ceux voulus.
Classeur1-data comporte les données.
Classeur2-log est le tableau qui recevra les données.
Classeur-exemple est l'exemple d'un des fichiers obtenu.

Je voudrais obtenir automatiquement le même tableau que classeur-exemple mais pour chaque ligne de Classeur1-data (donc un fichier par ligne).
Evidemment mon vrai tableau a plus de lignes (500) et de colonnes.

Je pense qu'il faut passer par une macro, mais je n'ai jamais fait de vba.

[EngueEngue]

Mets ce code dans un module de ton classeur datas adapte ton nom de sauvegarde et ton chemin d'accès et fait tourner

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub toto()
Dim i As Long, dernligne As Long
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
    'On créer l'objet Excel
    Set xlApp = CreateObject("Excel.Application")
    'On défini le nombre d'onglets (ici 1) puisqu'inutile d'en avoir trois
    xlApp.SheetsInNewWorkbook = 1
 
    Application.ScreenUpdating = False
 
 
    chemin = "C:\Users\User\Desktop\tttetetes\"
 
    With Feuil1
        dernligne = .Range("A" & .Rows.Count).End(xlUp).Row
 
        For i = 2 To dernligne
            Set nouvobook = xlApp.Workbooks.Add
            nouvobook.Sheets(1).Range("A1") = "nom"
            nouvobook.Sheets(1).Range("B1") = "prenom"
            nouvobook.Sheets(1).Range("A2") = .Cells(i, 1)
            nouvobook.Sheets(1).Range("B2") = .Cells(i, 2)
            nouvobook.Sheets(1).Range("C6") = "heure 1"
            nouvobook.Sheets(1).Range("D6") = "heure 2"
            nouvobook.Sheets(1).Range("E6") = "type activite"
            nouvobook.Sheets(1).Range("C7") = .Cells(i, 3)
            nouvobook.Sheets(1).Range("D7") = .Cells(i, 4)
            nouvobook.Sheets(1).Range("E7") = .Cells(i, 5)
            nouvobook.Sheets(1).Range("F7") = nouvobook.Sheets(1).Range("D7") - nouvobook.Sheets(1).Range("C7")
            nouvobook.Sheets(1).Range("C7:F7").NumberFormat = "h:mm;@"
 
 
            nouvobook.SaveAs (chemin & .Cells(i, 1) & " " & .Cells(i, 2) & ".xls")
 
            Set nouvobook = Nothing
        Next i
 
    End With
 
    xlApp.SheetsInNewWorkbook = 3
    Set xlApp = Nothing
    Application.ScreenUpdating = True
End Sub

[mikelion]

Waooow exactement ce que je voulais. Trop fort !
Merci beaucoup !