Probleme avec PDF

Question

Bonjour jai un message d'erreur , je suis debutant.merci pour votre aide surtout pour la sauvegarde en pdf. Private Sub CommandButton2_Click() Dim nombre_ligne As Integer Dim ligne As Integer Dim dl As Integer If Me.List_order.ListCount &gt; 0 And Me.CBx_fournisseur.ListIndex &gt;= 0 Then 'demander la confirmation de la commande. If MsgBox("Vouler vous passer la commande?", vbYesNo) = vbYes Then nombre_ligne = Me.List_order.ListCount - 1 For ligne = 0 To nombre_ligne Sheets(3).ListObjects(1).ListRows.Add dl = Sheets(3).Range("b9999").End(xlUp).Row 'afficher les infos dans la BD order. Sheets(3).Range("b" & dl) = Me.Label_info.Caption Sheets(3).Range("c" & dl) = CDate(Now()) Sheets(3).Range("d" & dl) = Me.List_order.List(ligne, 0) Sheets(3).Range("e" & dl) = Me.List_order.List(ligne, 1) Sheets(3).Range("g" & dl) = Me.List_order.List(ligne, 2) Sheets(3).Range("f" & dl) = Me.List_order.List(ligne, 3) Sheets(3).Range("i" & dl) = Me.CBx_fournisseur Next ligne 'sauvegarder le fichier en pdf. Sheets(4).Range("c11") = Me.Label_info.Caption Sheets(4).ExportAsFixedFormat _ Type:=xlTypePDF,_ Filename:="C:\Users\SEVCI\Desktop\ExcelMACRO" & me.CBx_fournisseur & "-" & me.Label_info.Caption,_ OpenAfterPublish:=true Sheets(8).Range("d20") = Sheets(8).Range("d20") + 1 End If Else MsgBox "pas de commande disponible" End If...

Xmenpl · Answer

BOnjour. Et le message d'erreur il faut qu'on devine le contenu ainsi que la ligne ou il s'arrête ? mais cette ligne semble incomplète voir erronée pour la virgule et le tiret en dernier ???? c'est sensé finir par: ".pdf" Filename:="C:\Users\SEVCI\Desktop\ExcelMACRO" & me.CBx_fournisseur & "-" & me.Label_info.Caption,_ Filename:="C:\Users\SEVCI\Desktop\ExcelMACRO" &amp; me.CBx_fournisseur &amp; "-" &amp; me.Label_info.Caption &amp; ".pdf"...

Xmenpl · Answer

Dans la ligne : ExelMACRO c'est le début du nom de fichier ou c'est un sous répertoire de desktop ? Un fichier test serait plus rapide pour trouver la solution...