print and save

Version imprimable

print and save

Bonjour

Voila j'ai ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
' impression
' enregistrée le 26/04/2007 par Thierry Dauchez
MsgBox ("Etes-vous prêt à imprimer ? ... L'imprimante est-elle allumée, y a t'il du papier suffisamment ? (Cliquez sur OK, une fois prêt)")
Range("A25").Select
Set plage = Range("A25", [A25].End(xlDown))
nbcell = plage.Count + 3
If nbcell <= 32 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 = "$16:$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

Il fonctionne bien. Il va bien dans le dossier "client" mais là il demande de rentrer le nom sous lequel on veut enregistrer et j'aimerais qu'il mette automatiquement le contenu de la cellule "H1" comme nom de fichier

Pensez-vous que cela soit possible???

Merci d'avance à tous

Linda

09/08/2007, 17h22
Guidhy

Bonjour,

Avant tout, si tu utilisais la balise code (l'icone "#"), se serait plus lisible tout ça... 8-)

(c'est une chose qu'on m'a appris quand je suis arrivé sur le forum et je sais que c'est fortement apprécié... donc je me permets de te le dire ;) )

Ensuite je t'avourai que je ne connais rien aux procédures d'enregistrement...

Mais en rajoutant quelque chose de ce style :

Code:

SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Tafeuille.Cells(1, "H").Value

non ?:?
09/08/2007, 18h51
lindette

print and save

Merci pour tes conseils.
A priori cela ne fonctionne pas ....
merci quand même
09/08/2007, 19h35
jfontaine

J'ai du mal a comprendre ton code

C'est ou le code qui sauvegarde parceque je ne vois que l'impression?