Problème d'impression

Bonjour, voila je vous explique mon problème.

Je fait ma facturation avec excel (une facture=1fichier) et j'aurai besoin de pouvoir sélectionner plusieurs fichier et d'envoyer en impression par Default en 4 exemplaires mais rien n'y fait..... les paramètres d'impression par default sont pourtant bien défini! quelqu'un aurai une solution à ce problème? Pour l'instant j'ouvre chaque fichier un à un (200 par mois) et je fait "fichier, imprimé, 4, fermer etc etc.... en plus 2éme problème impossible d'ouvrir plus de 15 fichiers en même temps pfffffff lol.

Bon ben merci pour votre éventuel aide.

bonjour

ci joint un petit fichier avec une macro qui imprime l'onglet 1 de tous les fichiers excel contenu dans un répertoire

elle a servi vendredi pour imprimer un millier de fichier a la volée (en moins de 10 minutes ...... )

le fichier joint doit etre ailleurs sur l'ordi

je viens de la corriger pour qu'elle imprime normalement 4 exemplaires, mais pas tester mon imprimante est en vrac

a voir donc

fred

Merci pour ta réponse, ca a l'air de fonctionner en plus!!

juste un petit bemol... moi je voudrai imprimé un onglet dans le fichier nomé "CR Facture" quelque chose à modifié dans la macro?

Merci pour ton aide

bonjour

dans ce cas remplacer la ligne

Sheets(1).PrintOut , copies:=4

par

Sheets("CR Facture").PrintOut , copies:=4

fred

Merci beaucoup, par contre je crois que l'espace entre CR et Facture n'est pas le bienvenue... c'est possible? Tu croit que je dois renomé tout les onglets?

normalement cela ne devrait pas poser problème .... !!! si dans tous les fichiers c'est marqué a l'identique...

sinon faut passer par le numéro d'index comme le fichier initial le sheets(1) correspondait au 1er onglet,.... donc si c'est le 2e ou 3e onglet suffit de mettre sheets(2) ou sheets(3) ou.......

fred

Merci pour ta réactivité.

Voici ce que cela donne. Mais probléme dans la file d'attente il ont tous 26 pages lol (une seul normalement enfin 4) tu a une idée?

Merci d'avance

Function ChoixDossier()

If Val(Application.Version) >= 10 Then

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = ActiveWorkbook.Path & "\"

.Show

If .SelectedItems.Count > 0 Then

ChoixDossier = .SelectedItems(1)

Else

ChoixDossier = ""

End If

End With

Else

ChoixDossier = InputBox("Répertoire?")

End If

End Function

Sub Parcourir_dossier(chemin As String, fichier_source As String)

Dim Fso As Object

Dim SourceFolder As Object

' Dim SubFolder As Scripting.Folder

Dim FileItem As Object

Dim fichier_en_traitement As String

Set Fso = CreateObject("Scripting.FileSystemObject")

Set SourceFolder = Fso.GetFolder(chemin)

'Boucle sur tous les fichiers du répertoire

For Each FileItem In SourceFolder.Files

fichier_en_traitement = FileItem.Name ' on recupere le nom du fichier

Workbooks.Open chemin & "\" & fichier_en_traitement

Sheets(6).PrintOut , copies:=4

ActiveWorkbook.Close False

Next FileItem

'--- Appel récursif pour lister les fichier dans les sous-répertoires ---.

'For Each SubFolder In SourceFolder.SubFolders

' Parcourir_dossier SubFolder.Path, (fichier_source)

'Next SubFolder

End Sub

Sub recuperation_donnees()

Dim nom_fichier_source As String

Dim chemin, plage1, plage2, nomfeuille As String

Dim i As Integer

Application.ScreenUpdating = False ' mise a jour de l'affichage

Application.DisplayAlerts = False

Sheets(1).Activate

MsgBox ("Vous devez renseigner le dossier contenant tous les fichiers")

chemin = ChoixDossier 'demande a l'utilisateur de saisir le repertoire ou se trouve les fichiers

If chemin <> "" Then Parcourir_dossier (chemin), (nom_fichier_source)

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

Évite de mettre un code comme du texte c'est très difficile a lire, je suggère donc d’éditer ton post précédent et de mettre toute la partie avec la balise CODE...

sinon comme ça je ne vois pas, .... fourni moi un fichier exemple pour que je fasse mes tests

fred