Re: création de fichiers avec fichier de base sur excel et impression automatique | ||
---|---|---|
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
|
|
|
Re: création de fichiers avec fichier de base sur excel et impression automatique | ||
---|---|---|
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?
|
|
|