bonsoir
je souhaiterais faire une sauvegarde d'une page, dont la macro se trouve ci dessous.
j'ai le rep, le nom sous lequel je veux sauver ce document, et a suivre Annee 2011 jusqu'ici pas de soucis
mais je souhaiterais avoir un e boite de dialogue qui s'ouvre en demandant entrez le mois, que je renseignerais, et le code continuerais.



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
Sheets("ToPrint").Select
    Range("A1:A2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    [A1] = "Nº Mobil Home - Date - et Commentaire"
    With ActiveCell.Characters(Start:=1, Length:=37).Font
        .Size = 12
     End With
Range("A1").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\A- archives Excel\Commentaires maintenance\" & "Commentaires" & " Année 2011", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
       
  [A1:A500].Clear
  
Sheets("Data").Select
[A1].Select
End Sub

merci
cris