Comment Faire

[cedric88]

Bonsoir

Je gére des fiches d'hebergement sur excel, une personne est un classeur et une feuille un mois, chaque mois je dois imprimer le mois en cours pour chaque personne, j'ai une soixantaine de personnes, je dois donc à chaque fois ouvrir un classeur, puis imprimer et ainsi de suite.

J'aimerais pouvoir imprimer tout en une seule opération est ce possible, par exemple imprimer toutes les feuilles du mois d'octobre pour chaque personne en une seule manipulation.

Merci

Amicalement

Cédric

 

[Mytå]

Re : Comment Faire

Salut Cédric

Un début sur la façon de faire, te restes à boucler sur tes classeurs

Sub Imprimer()
Dim ChemXLS As String
'La variable doit contenir le chemin et le nom du fichier
ChemXLS = "C:\Excel\Nom.xls" '
Set Fichier = Workbooks.Open(ChemXLS)
With Fichier
With .Worksheets("Cédule") 'Nom de la feuille à adapter
'cette commande n'est pas obligatoire
'mais elle limite la plage à imprimer
.PageSetup.PrintArea = .Range("A1:A10").Address
.PrintOut
'Utile si la commmande PageSetUp.PrintArea a été utilisé
.PageSetup.PrintArea = ""
End With
End With
Fichier.Close True
Set Fichier = Nothing
End Sub

Pour récuperer les fichiers du répertoire

Sub Liste()
Dim Fichiers() As String
Dim I As Byte
With Application.FileSearch
   .FileType = msoFileTypeExcelWorkbooks
   .LookIn = "C:\Excel\CoucheTard"
   .Execute
   With .FoundFiles
      ReDim Fichiers(1 To .Count, 1 To 1)
      For I = 1 To .Count
         Fichiers(I, 1) = .Item(I)
      Next I
   End With
End With
End Sub

Mytå

 

[Gorfael]

Re : Comment Faire

Salut Cédric, Mytå et les autres

en complément de ce que propose Mytå, je pense qu'il serait plus facile de mettre les données sur une feuille d'un classeur "impression" avec le nom, le chemin (s'il y en a de différents) et le mois que tu veux imprimer.
pour expliquer :
en A1 : le mois à imprimer ou la période
B2 à Bx : le nom
C2 à Cx : le chemin du fichier
D2 à Dx : impression ou non

A+

 

[cedric88]

Re : Comment Faire

Bonjour

Je viens de lire vos réponses et je vous remercie, je vais étudier cela tranquillement ce week end. Merci beaucoup pour vos réponses

Amicalement

Cédric