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