création de fichiers avec fichier de base sur excel et impression automatique
#1
Débutant XLPages

Inscription: 17/08/2018
De luxembourg

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 17-08-2018 17h35

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

Hors Ligne
Rapport   Haut 

Re: création de fichiers avec fichier de base sur excel et impression automatique
#2
Débutant XLPages

Inscription: 19/08/2018
De Grenoble

Messages: 2

Système d'exploitation:
PC
Version Excel utilisée:
2013, 2016
Posté le : 19-08-2018 01h48

Bonjour,

Afin de te proposer une solution, j'aimerai savoir combien de colonne tu utilise dans ton fichier de références. Savoir lesquelles sont systématiquement remplies et si il en reste qui sont parfois vides?

 

 

 

Hors Ligne
Rapport   Haut 

Re: création de fichiers avec fichier de base sur excel et impression automatique
#3
Débutant XLPages

Inscription: 19/08/2018
De Grenoble

Messages: 2

Système d'exploitation:
PC
Version Excel utilisée:
2013, 2016
Posté le : 20-08-2018 02h23

En attendant ta réponse, essaie avec ce code dans l'onglet source et les deux qui suivent appelés par des boutons en fonction de la  ligne saisie. Je viens de tester, cela fonctionne chez moi.

 

Private Sub Worksheet_change(ByVal Target As Range)

If Target.Address = Range("$a$4").Address Then
   Workbooks.Add
 NomSave = "Line4"
 chemin = "D:\SOLEUSTERM\DOCS\TESTEUR de CLASSEURS"
 ActiveWorkbook.SaveAs chemin & (NomSave)
  ActiveWorkbook.Close
      Application.Speech.Speak " Classeur Cr??"
End If
If Target.Address = Range("$a$5").Address Then
   Workbooks.Add
 NomSave = "Line5"
 chemin = "D:\SOLEUSTERM\DOCS\TESTEUR de CLASSEURS"
 ActiveWorkbook.SaveAs chemin & (NomSave)
  ActiveWorkbook.Close
      Application.Speech.Speak " Classeur Cr??"
End If
End Sub
Sub Ligne4()
'
' Macro2 Macro
'
Application.ScreenUpdating = False
    Range("A1:A4").Select
    Selection.Copy
      Workbooks.Open Filename:="D:\SOLEUSTERM\DOCS\TESTEUR de CLASSEURS\Line4.xlsx"
    Range("A1").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWorkbook.Close
       Application.ScreenUpdating = True
End Sub
 
Sub Ligne5()
'
' Macro2 Macro
Application.ScreenUpdating = False
    Range("A1:A5").Select
    Selection.Copy
      Workbooks.Open Filename:="D:\SOLEUSTERM\DOCS\TESTEUR de CLASSEURS\Line5.xlsx"
    Range("A1").Select
    ActiveSheet.Paste
    Range("A4").ClearContents
    ActiveWorkbook.Save
    ActiveWorkbook.Close
       Application.ScreenUpdating = True
End Sub
 

 

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes