Lancer une impression automatique

Bonjour,

Je tente de créer un bouton "imprimer" les documents pdf enregistrés après la création de formulaires en automatique avec le code ci-dessous que j'essaie d'adapter.

Chemin = ThisWorkbook.Path & "\"

NomFichier = Dir(Chemin & "NOM FICHIER.xls")

[...]

chiffres = Right(tabloL(i, 2), 4)

Workbooks(NomFichier).Sheets("NOM FICHIER F").Range("B1").Resize(UBound(tabloF, 1), 1) = tabloF

Workbooks(NomFichier).Sheets("NOM FICHIER F").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "NOM FICHIER F_" & tabloL(i, 6) & ".pdf"

Application.ActivePrinter = "PDFCreator sur Ne00:"

Next i

MsgBox "Travail terminé"

End Sub

> J'ai créé un module 2 du pour ajouter ma commande "impression" avec ce code.

Il s'agit d'un code que j'ai récupéré et que je tente d'adapter à mon projet. Je pense que mon problème vient de la ligne surlignée en jaune. Est-ce que quelqu'un aurait une piste, un lien ou un mot clé pour que je trouve comment lui faire imprimer les fichiers pdf que j'aurais créés précédemment en 3 exemplaires ?

Dim Chemin As String, Fich As String, Rep As String, CheminComplet As String

Chemin = ThisWorkbook.Path & "\"

Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)

CheminComplet = CThisWorkbook.Path & ".pdf"

Rep = Dir(Chemin & "NOM FICHIER_" & tabloL(i, 6) & ".pdf")

If Rep = "" Then

réponse = MsgBox("Le fichier n'existe pas, création du fichier PDFCreator", vbYesNo)

If réponse = vbYes Then

Impression:

ChDir Chemin

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False 'n'affiche pas le fichier PDF

Else

MsgBox "Sortie de la procédure"

Exit Sub

End If

Else

Réponse1 = MsgBox("le fichier existe voulez-vous le remplacer ?", vbYesNo)

If Réponse1 = vbYes Then

MsgBox "Remplacement du fichier existant"

GoTo Impression

Else

MsgBox "Sortie de la procédure"

End If

End If[/code]

Je vous remercie par avance de votre aide.

Bonjour re-édite ton post et utilise les balises code pour insérer ton code vba ça sera plus clair ... puis le jaune on voit rien...@ bienôt.