XL 2019 Range Value

safwaty · 6 Janvier 2020

Bonjour à toutes et à tous,

J'ai besoin de vos lumieres sur code programmation vba.

VB:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Registre " & Range("B12").Value & " " & Range("B13").Value & " " & Range("B14").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openafterpublish:=False

mon probleme est le suivant ; si
Range("B13").Value = 0 Ne pas tenir en compte
Merci par avance.

M12 · 6 Janvier 2020

Bonjour,

Mettre une condition avant

Code:

Dim Nom$
If Range("B13").Value = 0 Then
  Nom = Range("B12").Value & " " & Range("B14").Value
Else
  Nom = Range("B12").Value & " " & Range("B13").Value & " " & Range("B14").Value
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Registre " & Nom & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openafterpublish:=False

job75 · 6 Janvier 2020

Bonjour safwaty, M12, le forum,

Ou bien :

VB:

ActiveSheet.ExportAsFixedFormat xlTypePDF, CheminDossier & "Registre " & [B12] & IIf([B13] = 0, "", " " & [B13]) & " " & [B14]

Bonne journée.

safwaty · 6 Janvier 2020

Merci

XL 2019 Range Value

safwaty

XLDnaute Nouveau

M12

XLDnaute Accro

job75

XLDnaute Barbatruc

safwaty

XLDnaute Nouveau

Discussions similaires