cjoint

Publicité


Publicité

Commentaire : bonjour, je vous fait parvenir ma trame, j' ai trouvé sur internet enregistrer en excel et en pdf à la fois, avec le nom du client et le numéro. j' ai plusieurs disque dures et je n' arrive a lui dire le bon chemin. violà cette macro:Private Sub CommandButton1_Click() ' export de la facture au format pdf info1 = Sheets("facture").Range("F9") info2 = Sheets("facture").Range("H4") Nom = info1 & "-" & info2 & "-" & ".xls" ThisWorkbook.Save ThisWorkbook.SaveAs (Nom) ThisWorkbook.Activate If MsgBox("Avez vous valider votre facture afin de générer le numero automatique?", vbYesNo, "Ibryagri vous informe") = vbYes Then ChDir "j:\users\PierreIBRY\exploitation\facture" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, quality:= _ xlQualityStandard, includeDocProperties:=True, ignoreprintareas:=False, _ from:=1, to:=1, openafterpublish:=True End If End Sub merci pour ton aide agri63

Format du document : application/vnd.openxmlformats-officedocument.spreadsheetml.sheet


Publicité


Signaler le contenu de ce document