Discussion :

[lindette]

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

[nevil]

Salut a toi, et a tout le monde d'ailleur,

Tu stock quoi comme valeur dans la varriable "nbcell"? Car nullement dans ton code tu fais référence à cette variabale.Donc si elle reste a "0" (valeur par défaut d'une variable), pas sur que ton code fasse tout le temps ce que tu veux ...




Nevil

[Gorfael]

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

Salut
Comme ma boule de cristal est parasitée, j'ai des difficultés à comprendre ce que tu veux :
La description du problème m'a fait penser que les "lignes de titre" s'affichaient aussi sur la première page, ce qui n'est pas vrai. Donc essaies de les mettre en lignes de titre ou expliques clairement ton problème.

Questions subsidiaires : But des SELECT dans la partie de la macro que tu transmets ?
But du SenKeys ?

Si tu veux de l'aide efficace, donne toutes les infos
A+