Re : devis/facture avec macro
:/ Mon bouton ne fonctionne pas
'enregister devis'
info1 = Sheets("DEVIS").Range("D8")
info2 = Sheets("DEVIS").Range("B11")
Nom = info1 & "-" & info2 & ".xlsx”
ThisWorkbook.Save
ThisWorkbook.SaveCopyAs nom
ThisWorkbook.Activate
ChDir "H:\DAVID-PLESSIS\DEVIS"
j'ai essayé ça aussi mais sans succès :/
Private Sub CommandButton1_Click()
'enregister devis'
info1 = Sheets("DEVIS").Range("D8")
info2 = Sheets("DEVIS").Range("B11")
nom = info1 & "-" & info2 & ".xlsx"
ThisWorkbook.Save
ThisWorkbook.SaveCopyAs nom
ThisWorkbook.Activate
ChDir "H:\DAVID-PLESSIS\DEVIS"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:= _
xlQualityStandard, includeDocProperties:=True, IgnorePrintAreas:=False, _
Frome:=1, To:=1, openAfterPublish:=True
End If