Discussion :

[lindette]

Bonjour

Voila j'ai ce code :

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
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

[Guidhy]

Bonjour,

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

(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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

non ?

[lindette]

Merci pour tes conseils.
A priori cela ne fonctionne pas ....
merci quand même

[jfontaine]

J'ai du mal a comprendre ton code

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