création de fichiers avec fichier de base sur excel et impression automatique

#1

Bonjour,

je souhaite créer des fichiers et les imprimer automatiquement à partir d’un tableau excel de base

Je souhaite à partir de mon fichier de base créer :
fichier ou sous fichier 1 en gardant les 4 ères lignes et en ajountant la ligne 5
fichier ou sous fichier 2 en gardant les 4 ères lignes et en ajountant la ligne 6
fichier ou sous fichier 3 en gardant les 4 ères lignes et en ajountant la ligne 7 etc
puis pouvoir imprimer tous ces fichiers automatiquement

Merci d’avance pour votre aide.

Cordialement

SnipImage
SnipImage.JPG1621×346 127 KB

#2

Bonjour,

Il nous faudrait votre fichier (avec des fausses données) pour pouvoir trouver réponse à votre question. D’ici, je vois déjà plusieurs méthodes mais elles peuvent ne pas convenir en fonction de ce dernier.

A bientôt !

#3

Bonjour,

je vous copie-colle mon fichier excel ci-dessous

Pour des questions d’audit je dois créer et imprimer avec la logique suivante.

Garder la première ligne avec les intitulés des colonnes:
Id Account Asset Class Sub Asset Class Action Qty/Nominal Symbol Name ISIN Exchange Currency Last price at CRE Run Counterpart Issuer Limit type Expiration Limit price Order Input User Order Input Time Order activation User Order activation Time Comment
et ajouter en dessous la ligne suivante avec les données:
11814 30000 stock sell 28300 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 8,08 KBL FIX spaciocco 30/05/2017 16:59

Puis créer un autre fichier (en l’imprimant si possible automatiquement)
Garder la première ligne avec les intitulés des colonnes + ajouter seconde ligne avec des données

etc etc

Merci d’avance pour votre aide.

Cordialement

Id Account Asset Class Sub Asset Class Action Qty/Nominal Symbol Name ISIN Exchange Currency Last price at CRE Run Counterpart Issuer Limit type Expiration Limit price Order Input User Order Input Time Order activation User Order activation Time Comment
11814 30000 stock sell 28300 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 8,08 KBL FIX spaciocco 30/05/2017 16:59
11815 30000 stock buy 1800 PNDORA PANDORA A/S DK0060252690 Denmark (Copenhagen) DKK 600 KBL FIX spaciocco 30/05/2017 16:57
11624 30000 stock buy 2300 TSCO TRACTOR SUPPLY COMPANY US8923561067 US (NASDAQ GS) USD 57,57 KBL FIX jartusi 22/05/2017 18:12
11428 30000 stock buy 14900 BAD BADGER DAYLIGHTING LTD CA05651W2094 Canada (Toronto) CAD 30,56 KBL FIX jartusi 12/05/2017 17:39
11424 30000 stock buy 10900 HCG HOME CAPITAL GROUP INC CA4369131079 Canada (Toronto) CAD 10,81 KBL FIX spaciocco 12/05/2017 17:15
11417 30000 stock buy 1000 NTES NETEASE INC-ADR US64110W1027 US (NASDAQ) USD 281,49 KBL FIX spaciocco 12/05/2017 09:11
11313 30000 stock buy 10327 UEPS NET 1 UEPS TECHNOLOGIES INC US64107N2062 US (NASDAQ) USD 10,2 KBL FIX spaciocco 09/05/2017 09:16
11112 30000 stock sell 270000 EUROB EUROBANK ERGASIAS SA GRS323003012 Greece (Athens) EUR 0,836 KBL FIX jartusi 03/05/2017 11:19
10921 30000 stock sell 254000 EUROB EUROBANK ERGASIAS SA GRS323003012 Greece (Athens) EUR 0,687 KBL FIX jartusi 27/04/2017 15:46
10734 30000 stock buy 22000 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 7,94 Manual Adjustment spaciocco 21/04/2017 15:25
10735 30000 stock buy 3400 PNDORA PANDORA A/S DK0060252690 Denmark (Copenhagen) DKK 710,5 KBL FIX spaciocco 21/04/2017 14:44
10685 30000 stock buy 3400 PNDORA PANDORA A/S DK0060252690 Denmark (Copenhagen) DKK 712 KBL FIX spaciocco 21/04/2017 14:15
10583 30000 stock buy 4100 GTT GAZTRANSPORT ET TECHNIGA SA FR0011726835 France (Paris) EUR 33,9 KBL FIX jartusi 13/04/2017 17:15
10416 30000 stock buy 1700 TSCO TRACTOR SUPPLY COMPANY US8923561067 US (NASDAQ GS) USD 70,16 KBL FIX spaciocco 10/04/2017 16:40
10417 30000 stock buy 7200 NTCT NETSCOUT SYSTEMS INC US64115T1043 US (NASDAQ GS) USD 37,75 KBL FIX spaciocco 10/04/2017 16:39
10411 30000 stock buy 3900 RMV RIGHTMOVE PLC GB00B2987V85 UK (London) GBP 40,29 KBL FIX spaciocco 10/04/2017 15:52
9628 30000 callmoney 120000 call money EUR Manual Adjustment jartusi 16/03/2017 17:18
9523 30000 stock buy 15000 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 9,28 KBL FIX jartusi 10/03/2017 16:12
9386 30000 stock buy 8500 NOVOB NOVO NORDISK A/S-B DK0060534915 Denmark (Copenhagen) DKK 235,7 KBL FIX jartusi 07/03/2017 16:19
9086 30000 stock sell 2309 UEPS NET 1 UEPS TECHNOLOGIES INC US64107N2062 US (NASDAQ) USD 13,65 KBL FIX fbaruzzi 27/02/2017 09:44
8897 30000 stock sell 2650 BMW3 BAYERISCHE MOTOREN WERKE-PRF DE0005190037 Germany (Frankfurt) EUR 69,8 KBL FIX jartusi 20/02/2017 17:30
8898 30000 stock sell 72369 SPD SPORTS DIRECT INTERNATIONAL GB00B1QH8P22 UK (London) GBP 2,961 KBL FIX jartusi 20/02/2017 17:20
8558 30000 stock buy 230000 EUROB EUROBANK ERGASIAS SA GRS323003012 Greece (Athens) EUR 0,571 KBL FIX jartusi 13/02/2017 13:39
8175 30000 stock buy 11000 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 12,18 KBL FIX jartusi 01/02/2017 13:28
8146 30000 spot buy 230000 spot exchange deal USD/EUR OTC EUR (Fixed Income Market) USD 0,9341 KBL Forex jartusi 31/01/2017 14:06
8068 30000 stock buy 4000 QCOM QUALCOMM INC US7475251036 US (NASDAQ GS) USD 54,24 KBL FIX jartusi 30/01/2017 15:56
8016 30000 spot buy 253000 spot exchange deal USD/EUR OTC EUR (Fixed Income Market) USD 0,9379 KBL Forex jartusi 30/01/2017 15:46
8011 30000 stock buy 20000 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 13,93 KBL FIX jartusi 26/01/2017 17:36
7522 30000 stock buy 2800 BBBY BED BATH & BEYOND INC US0758961009 US (NASDAQ) USD 40,75 KBL FIX jartusi 12/01/2017 09:16
7475 30000 stock sell 725 WDC WESTERN DIGITAL CORP US9581021055 US (NASDAQ) USD 71,86 KBL FIX jartusi 12/01/2017 09:16
7405 30000 stock buy 55 AZO AUTOZONE INC US0533321024 US (NYSE) USD 791,46 KBL FIX jartusi 05/01/2017 16:49
7403 30000 stock buy 7600 GILD GILEAD SCIENCES INC US3755581036 US (NASDAQ) USD 76,4093 KBL FIX jartusi 05/01/2017 16:48
7328 30000 stock sell 6900 CALM CAL-MAINE FOODS INC US1280302027 US (NASDAQ) USD 45,45 KBL FIX fbaruzzi 29/12/2016 15:08
7108 30000 stock sell 1800 BMW3 BAYERISCHE MOTOREN WERKE-PRF DE0005190037 Germany (Frankfurt) EUR 73,9 KBL FIX jartusi 16/12/2016 11:46
6870 30000 stock sell 12800 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 13,49 KBL FIX jartusi 12/12/2016 16:28
6867 30000 stock sell 18000 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 13,49 Manual Adjustment jartusi 12/12/2016 15:18
6868 30000 stock sell 5600 BAD BADGER DAYLIGHTING LTD CA05651W2094 Canada (Toronto) CAD 31,39 Manual Adjustment jartusi 12/12/2016 15:18
6865 30000 stock sell 2175 WDC WESTERN DIGITAL CORP US9581021055 US (NASDAQ) USD 67,71 Manual Adjustment jartusi 12/12/2016 15:14
6727 30000 stock sell 7900 BBBY BED BATH & BEYOND INC US0758961009 US (NASDAQ) USD 48,01 KBL FIX jartusi 09/12/2016 16:03
6567 30000 stock sell 3900 GTT GAZTRANSPORT ET TECHNIGA SA FR0011726835 France (Paris) EUR 33,04 KBL FIX jartusi 07/12/2016 16:06
6574 30000 stock sell 12800 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 11,34 KBL FIX jartusi 07/12/2016 16:05
6349 30000 stock sell 5600 BAD BADGER DAYLIGHTING LTD CA05651W2094 Canada (Toronto) CAD 31,25 KBL FIX jartusi 01/12/2016 16:30
6348 30000 stock sell 18000 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD 9,46 KBL FIX jartusi 01/12/2016 16:28
6323 30000 stock sell 2175 WDC WESTERN DIGITAL CORP US9581021055 US (NASDAQ) USD 62,27 KBL FIX jartusi 29/11/2016 17:30
4756 30000 stock sell 260000 EUROB EUROBANK ERGASIAS SA GRS323003012 Greece (Athens) EUR 0,674 KBL FIX jartusi 21/11/2016 12:58
4749 30000 spot sell 887527,31 spot exchange deal CAD/EUR OTC EUR (Fixed Income Market) CAD 0,6972 KBL Forex jartusi 21/11/2016 11:44
4492 30000 stock buy 3000 LNR LINAMAR CORP CA53278L1076 Canada (Toronto) CAD KBL FIX jartusi 04/11/2016 16:43
4351 30000 stock buy 4900 SYNT SYNTEL INC US87162H1032 US (NASDAQ) USD KBL FIX jartusi 20/10/2016 18:00
4343 30000 spot buy 57000 spot exchange deal USD/EUR OTC EUR (Fixed Income Market) USD KBL Forex jartusi 17/10/2016 17:38
4340 30000 stock buy 2700 BBBY BED BATH & BEYOND INC US0758961009 US (NASDAQ) USD KBL FIX jartusi 17/10/2016 16:13
4312 30000 stock buy 13368 SPD SPORTS DIRECT INTERNATIONAL GB00B1QH8P22 UK (London) GBP KBL FIX jartusi 11/10/2016 09:24
4301 30000 stock buy 10000 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD KBL FIX jartusi 10/10/2016 09:23
4292 30000 stock sell 17000 UEPS NET 1 UEPS TECHNOLOGIES INC US64107N2062 US (NASDAQ) USD KBL FIX jartusi 06/10/2016 15:53
4280 30000 spot buy 360000 spot exchange deal USD/EUR OTC EUR (Fixed Income Market) USD KBL Forex jartusi 05/10/2016 17:13
4278 30000 stock buy 13600 SYNT SYNTEL INC US87162H1032 US (NASDAQ) USD KBL FIX jartusi 05/10/2016 09:29
4270 30000 stock sell 600 BAD BADGER DAYLIGHTING LTD CA05651W2094 Canada (Toronto) CAD KBL FIX fbaruzzi 03/10/2016 09:16
4224 30000 stock buy 12700 UEPS NET 1 UEPS TECHNOLOGIES INC US64107N2062 US (NASDAQ) USD KBL FIX jartusi 30/09/2016 10:50
4167 30000 spot buy 289265,13 spot exchange deal USD/EUR OTC EUR (Fixed Income Market) USD KBL Forex jartusi 29/09/2016 16:24
4164 30000 stock buy 40000 ATW ATWOOD OCEANICS INC US0500951084 US (NYSE) USD KBL FIX fbaruzzi 23/09/2016 14:40
4144 30000 spot buy 60000 spot exchange deal USD/EUR OTC EUR (Fixed Income Market) USD KBL Forex fbaruzzi 20/09/2016 09:25
4138 30000 stock sell 2500 WDC WESTERN DIGITAL CORP US9581021055 US (NASDAQ) USD KBL FIX fbaruzzi 16/09/2016 17:01
4068 30000 stock buy 6900 CALM CAL-MAINE FOODS INC US1280302027 US (NASDAQ) USD KBL FIX fbaruzzi 14/09/2016 17:29
4009 30000 stock buy 7000 GTT GAZTRANSPORT ET TECHNIGA SA FR0011726835 France (Paris) EUR KBL FIX fbaruzzi 13/09/2016 16:47
3996 30000 stock sell 3399 TGS TGS NOPEC GEOPHYSICAL CO ASA NO0003078800 Norway (Oslo) NOK Manual Adjustment fbaruzzi 12/09/2016 11:12
3995 30000 stock sell 36500 SPD SPORTS DIRECT INTERNATIONAL GB00B1QH8P22 UK (London) GBP Manual Adjustment fbaruzzi 12/09/2016 11:10
3994 30000 stock sell 25000 SPD SPORTS DIRECT INTERNATIONAL GB00B1QH8P22 UK (London) GBP Manual Adjustment fbaruzzi 12/09/2016 11:06
3992 30000 stock buy 2600 WDC WESTERN DIGITAL CORP US9581021055 US (NASDAQ) USD Manual Adjustment fbaruzzi 12/09/2016 10:58
3991 30000 stock buy 120501 SPD SPORTS DIRECT INTERNATIONAL GB00B1QH8P22 UK (London) GBP Manual Adjustment fbaruzzi 09/09/2016 17:20
3990 30000 stock buy 2000 LNR LINAMAR CORP CA53278L1076 Canada (Toronto) CAD Manual Adjustment fbaruzzi 09/09/2016 17:18
3989 30000 stock buy 9100 HCG HOME CAPITAL GROUP INC CA4369131079 Canada (Toronto) CAD Manual Adjustment fbaruzzi 09/09/2016 17:17
3988 30000 stock buy 8500 BAD BADGER DAYLIGHTING LTD CA05651W2094 Canada (Toronto) CAD Manual Adjustment fbaruzzi 09/09/2016 17:16
3983 30000 stock buy 2800 WDC WESTERN DIGITAL CORP US9581021055 US (NASDAQ) USD Manual Adjustment fbaruzzi 09/09/2016 16:46
3982 30000 stock buy 6100 SYNT SYNTEL INC US87162H1032 US (NASDAQ) USD Manual Adjustment fbaruzzi 09/09/2016 16:44
3981 30000 stock buy 1400 QCOM QUALCOMM INC US7475251036 US (NASDAQ) USD Manual Adjustment fbaruzzi 09/09/2016 16:43
3980 30000 stock buy 50000 UEPS NET 1 UEPS TECHNOLOGIES INC US64107N2062 US (NASDAQ) USD Manual Adjustment fbaruzzi 09/09/2016 16:41
3979 30000 stock buy 7800 BBBY BED BATH & BEYOND INC US0758961009 US (NASDAQ) USD Manual Adjustment fbaruzzi 09/09/2016 16:39
3978 30000 stock buy 3399 TGS TGS NOPEC GEOPHYSICAL CO ASA NO0003078800 Norway (Oslo) NOK Manual Adjustment fbaruzzi 09/09/2016 16:25
3977 30000 stock buy 120501 SPD SPORTS DIRECT INTERNATIONAL GB00B1QH8P22 UK (London) GBP Manual Adjustment fbaruzzi 09/09/2016 15:45
3976 30000 stock buy 1049000 EUROB EUROBANK ERGASIAS SA GRS323003012 Greece (Athens) EUR Manual Adjustment fbaruzzi 09/09/2016 15:43
3975 30000 stock buy 10187 DANR DANIELI & CO-RSP IT0000076486 Italy (Milano) EUR Manual Adjustment fbaruzzi 09/09/2016 15:42
3974 30000 stock buy 4450 BMW3 BAYERISCHE MOTOREN WERKE-PRF DE0005190037 Germany (Frankfurt) EUR Manual Adjustment fbaruzzi 09/09/2016 15:41
3973 30000 stock buy 2000 LNR LINAMAR CORP CA53278L1076 Canada (Toronto) CAD Manual Adjustment fbaruzzi 09/09/2016 15:38
3972 30000 stock buy 9100 HCG HOME CAPITAL GROUP INC CA4369131079 Canada (Toronto) CAD Manual Adjustment fbaruzzi 09/09/2016 15:37
3971 30000 stock buy 8500 BAD BADGER DAYLIGHTING LTD CA05651W2094 Canada (Toronto) CAD Manual Adjustment fbaruzzi 09/09/2016 15:33
1959 30000 stock buy 10187 DANR DANIELI & CO-RSP IT0000076486 Italy (Milano) EUR Manual Adjustment fbaruzzi 10/06/2016 15:22
1958 30000 stock buy 45000 BBRY BLACKBERRY LTD CA09228F1036 US (NASDAQ) USD Manual Adjustment fbaruzzi 10/06/2016 15:22
1957 30000 stock buy 7800 BBBY BED BATH & BEYOND INC US0758961009 US (NASDAQ) USD Manual Adjustment fbaruzzi 10/06/2016 15:21
1956 30000 stock buy 3250 BMW3 BAYERISCHE MOTOREN WERKE-PRF DE0005190037 Germany (Frankfurt) EUR Manual Adjustment fbaruzzi 10/06/2016 15:21
1955 30000 stock buy 1400 QCOM QUALCOMM INC US7475251036 US (NASDAQ) USD Manual Adjustment fbaruzzi 10/06/2016 15:20
1954 30000 stock buy 321000 EUROB EUROBANK ERGASIAS SA GRS323003012 Greece (Athens) EUR Manual Adjustment fbaruzzi 10/06/2016 15:20

#4

Bonjour,

Est-ce que vous pourriez transmettre votre fichier svp ?
Parce qu’avec les éléments ci-dessus je peux pas faire grand chose :hushed:
Pour ajouter un fichier:
image

Merci :wink:

#5

forum.xlsx (18,0 Ko)

Voici le fichier

1 J'aime
#6

Re :wink:

Alors petites questions:

  • Il faut créer un fichier avec les entêtes de colonne puis la ligne 5, puis une autre fichier avec les entêtes et la ligne 6 ou la ligne 5 ET 6 ?
  • Si je suis le raisonnement, il faudrait donc créer 90 fichiers (?!) et les imprimer ?
  • Et dernière question, la plus importante, ça sert à quoi ?

Si vous voulez imprimer ligne par ligne, pourquoi ne pas faire un publipostage avec word ?

#7

Bonjour,

Avec deux petites macros, une pour la création d’onglet et l’autre pour l’impression

Option Explicit

  Dim MySheet, Ws
  Dim I%, Dl%, Sh As Shape
 
Sub CreationOnglet()
  Application.ScreenUpdating = False
  Dl = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
   
  For I = 5 To Dl 'boucle sur les lignes
    Worksheets.Add After:=Sheets(Worksheets.Count) 'Ajoute un onglet
    Set Ws = Sheets("Stocks Transactions")
    Set MySheet = ActiveSheet
      With MySheet
        .Name = Ws.Cells(I, 1).Value 'attribue le nom de la cellue colonne A de la ligne concernée
      End With
      Ws.Activate
      Ws.Range(Cells(1, 1), Cells(4, 35)).Copy MySheet.Cells(1, 1) 'Copie l'entête
      Ws.Range(Cells(I, 1), Cells(I, 35)).Copy MySheet.Cells(5, 1) 'Copie la ligne
        For Each Sh In MySheet.Shapes
          Sh.Delete 'Supprime les boutons
        Next Sh
  Next I
End Sub

Sub Impression()
  For I = 2 To Sheets.Count
    'Sheets(I).PrintOut            ' Pour imprimer
    Sheets(I).PrintPreview        ' Apercu avant impression
  Next I
End Sub

forum.xlsm (40,6 Ko)

1 J'aime
Formule pour incrémenter des chiffres avec conditions
#8

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.