Bonjour
j'ai un code pour transformer mon fichier excel en pdf, ça marche mais seulement je voudrais qu'au changement de page qui est prévue aprés la ligne 45 cela recopie 2 lignes ( $24,$25) mais ça ne marche pas !!!
voici mon code si quelqu'un peut m'aider...


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'impression
MsgBox ("Etes-vous prêt à imprimer ? (Cliquez sur OK, une fois prêt)")
Range("A25").Select
Rows("1:45").Select
If nbcell <= 45 Then
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
Else
With ActiveSheet.PageSetup
.PrintTitleRows = "$24:$25"
.PrintTitleColumns = ""
End With
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
 
 
End If
End Sub

merci merci d'avance
linda