Bonsoir,
Je cale sans pouvoir trouver ma soluce... ( je ne trouve pas l'erreur " pourtant le chemin est bien spécifié,j'ai pas un autre prog qui utilise ce fichier, classeur au même nom?) je comprends plus...
( cf mon bouton /page facture)
Private Sub CommandButton1_Click()
'export de la facture au format pdf
info1 = Sheets("FACTURE").Range("S4")
info2 = Sheets("FACTURE").Range("o4")
info3 = Sheets("FACTURE").Range("S7")
info4 = Sheets("FACTURE").Range("S8")
Nom = info1 & "-" & info2 & "-" & info3 & "-" & info4 & "-" & ".xls"
ThisWorkbook.Save
ThisWorkbook.SaveAs (Nom)
ThisWorkbook.Activate
If MsgBox(" la facture est validée afin de générer le numéro automatique?", vbYesNo, "Prog.infobyfc vous informe") = vbYes Then
ChDir "C:\Users\User\Desktop open test useform"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, quality:=xlQualityStandard, incluseDocproperties:=True, ignoreprintareas:=False, _
From:=1, to:=1, openAfterpublish:=True
End If
End Sub
merci pour votre aide
MacFly