Réponse acceptée !
Merci pour vos réponses les gens! Ca fait plaisir de voir que sur le net il y a encore des gens qui rendent service sans rien attendre en retour.
Avec beaucoup d'aide d'un forumeur, j'ai trouvé la solution à mon problème... et j'y ai même ajouté une impression à chaque fiche. Voici le code pour ceux que ça interesse (à noter que si vous voulez l'utiliser il faut changer le nom de l'imprimante ;) )
[code]
Function numeroter_fichier(fichier As String, numero As Integer) As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
numeroter_fichier = FSO.GetParentFolderName(fichier) & "\" & _
FSO.GetBaseName(fichier) & "_" & numero & "." & _
FSO.GetExtensionName(fichier)
End Function
Public Sub ZolieProc(wb_1 As Workbook)
Dim num As Integer
Dim nom As String
Dim t_wb As Workbook
Dim s_ws As Worksheet
Dim t_ws As Worksheet
Set s_ws = Workbooks("L1RACK_FC_EA.xlsx").Worksheets("L1RACK_FC_EA")
For num = 1 To 2
i = num + 1
nom = numeroter_fichier(wb_1.Path & "\" & wb_1.Name, num)
wb_1.SaveCopyAs nom
Set t_wb = Workbooks.Open(nom)
Set t_ws = t_wb.Worksheets(1)
t_ws.Range("B8").Value = s_ws.Range("E" & i).Value
t_ws.Range("F8").Value = s_ws.Range("D" & i).Value
t_ws.Range("F10").Value = s_ws.Range("I" & i).Value
t_ws.Range("B15").Value = s_ws.Range("A" & i).Value
t_ws.Range("G15").Value = s_ws.Range("B" & i).Value
t_ws.Range("J15").Value = s_ws.Range("C" & i).Value
t_wb.Save
Application.ActivePrinter = "PDFCreator sur Ne00:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"
t_wb.Close
Next
End Sub
Public Sub CommandButton1_Click() 'copie sauvegarde classeur
ZolieProc ActiveWorkbook
End Sub
[/code]