Discussion :

[chris09300]

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

[patricktoulon]

bonjour

tu a application.inputbox pour ca
ou alors plus simple

Code :

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

1
2
3
4
5
6
 
dim mois as string
 
mois =Format(Now, "mmmm")
'ca te donne le mois en toutre lettre comme ca tu na pas a chercher le mois a moins que tes enregistrement soient différés au quel cas" inputbox "
'et tu l'integre dans la concatenation pour le nom

edit:

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
23
 
dim mois as string
dim année as string
mois =Format(Now, "mmmm")
année=format(now,"yyyy")
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" &" "& mois &" " &  Année &".pdf" Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
 
  [A1:A500].Clear
 
Sheets("Data").Select
[A1].Select
End Sub

voila au plaisir

[chris09300]

il bloque sur

Code :

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

1
2
3
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\A- archives Excel\Commentaires maintenance\" & "Commentaires" &" "& mois &" " &  Année &".pdf" Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

il m'est erreur de compilation ou erreur de syntaxe

[EDIT]
ok nickel, j'ai trouve l'erreur
merci
cris