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
Partager