Discussion :

[vigo26]

Bonjour,

Je souhaiterais créer une macro afin d'enregistrer une feuille sous format PDF seulement si une cellule de TCD est supérieure à 0, sinon pas de PDF..

Quelqu'un a la solution??
Merci pour votre aide

[kiki29]

Salut, de la lecture : Excel et l'enregistreur de macro

Sinon qqch du genre à adapter à ton contexte, Feuil2 étant le CodeName de la feuille concernée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub Tst()
Dim sNomFichier As String
    sNomFichier = ThisWorkbook.Path & "\" & "test.pdf"
    If Feuil2.Cells(1, 1) > 0 Then
        Feuil2.ExportAsFixedFormat Type:=xlTypePDF, _
                                        Filename:=sNomFichier, _
                                        Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, _
                                        IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=False
    End If
End Sub

[vigo26]

ok Merci mais mon problème vient de la lecture de la cellule qui provient d'un TCD, je ne sais pas comment l'intégrer dans la macro..

Code :

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

=IF(GETPIVOTDATA(""QTE CDE"",R4C1)>0

[kiki29]

Salut, une recherche ?

[vigo26]

Merci mais ça ne m'aide pas du tout..

[vigo26]

en fait je souhaiterais modifier :

Code :

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

If Feuil2.Cells(1, 1) > 0 Then

il faudrait que la macro ne se déclenche que si la somme des quantités affichées dans mon TCD est > à 0