T77XDD
XLDnaute Occasionnel
Bonjour,
dans le code qui suit je cherche à dire que tout ce qui est de la forme "F xxxxx" (les x sont des chiffres)
est enregistré en Fax sinon DP etc
Merci de votre aide.
dans le code qui suit je cherche à dire que tout ce qui est de la forme "F xxxxx" (les x sont des chiffres)
est enregistré en Fax sinon DP etc
Code:
If .Range("T" & i), 1, 1) = "F" Then
'enr Fax
NomFichierPDF = "Fax" & " " & DPnum & " " & Obj & " " & Ents
Filename = "C:\DP\Fax\" & Ents & "\" & NomFichierPDF & ".pdf"
Else
'enr DP Locataires
If App <> "" Then
NomFichierPDF = "DP" & " " & DPnum & " " & Loc & " " & Ents
Filename = "C:\DP\" & Bat & "\" & App & "\" & NomFichierPDF & ".pdf"
Else
'enr DP Parties communes
NomFichierPDF = "DP" & " " & DPnum & " " & Loc & " " & Ents
Filename = "C:\DP\PartiesCommunes\" & Ents & "\" & NomFichierPDF & ".pdf"
End If
End If
Dernière édition: