Forums : myDearFriend! Excel Pages


Rapport de message :*

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

Titre du sujet : Re: création de fichiers avec fichier de base sur excel et impression automatique
par Soleusterm le 20/08/2018 02:23:30

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