Discussion :

[jerome39]

Bonjour le forum

Je recherche un code vba pour imprimer tous les fichers d'un dossier sans les ouvrir :

- Un dossier (FEUILLES PREPA) qui contient 80 fichiers
- Un fichier qui doit contenir la macro IMPRIMER FEUILLES PREPA

Opération sur sur chaque fichier du dossier :
1 mise à jour des liaisons
2 Colonne A : "non vide"
3 imprimer

Et je ne suis pas très doué en vba
Alors si un pro pouvait me rendre ce petit service ce serait génial

[Pierre Fauconnier]

Bonsoir

...imprimer tous les fichers d'un dossier sans les ouvrir :

Tu veux dire: sans les ouvrir manuellement? Parce qu'il faudra bien les ouvrir pour les mises à jour et l'impression

Opération sur sur chaque fichier du dossier :
1 mise à jour des liaisons
2 Colonne A : "non vide"
3 imprimer

Que souhaites-tu réaliser au point 2?

- Un dossier (FEUILLES PREPA) qui contient 80 fichiers

Peux-tu préciser ce qui est en gras?

- Un fichier qui doit contenir la macro IMPRIMER FEUILLES PREPA

Pourquoi un fichier différent? Il ne contiendrait que le code?

[jerome39]

Bonsoir Pierre
Oui sans doute que dans la macro il faudra ouvrir chacun des fichiers pour :
1 effectuer une mise à jour des liaisons de chacun des fichiers, sinon ils seront vides !
2 Dans chaque fichier il y a un filtre automatique sur la colonne A qui doit être appliqué avant l'impression sinon il y aurait + de 7 pages vides imprimées
3 Dans un dossier que j'ai nommé "FEUILLE DE PREPA" les 80 fichiers sont regroupés du type "4temps FEUILLE PREPA" (effacé) et je souhaite que ma macro parte d'un autre fichier hors dossier nommé "impression" qui pilote déjà toute une serie d'applications et s'applique sur le 80 fichiers du dosiier FEUILLE DE PREPA.
Cette dernière que je recherche désespérement doit boucler une application excel de commandes de repas qui ma pris 1 an (4,6Go de formules).

cela pourrait donner :

-ouvrir le dossier X
-ouvrir le premier fichier du dossier X
-mettre a jour les liaisons
-effectuer filtre automatique sur la colonne A : "non vide"
-imprimer
-faire la meme operation sur chaque fichier du dossier X

Voila je suis à la disposition de toute personne qui souhaite venir à mon aide pour toute explications.

Jérôme

[Pierre Fauconnier]

Même sans être doué en VBA, tu peux réaliser une série d'étapes par toi-même:
- Bien définir ton besoin
- Identifier les données en place et leur organisation
- Décortiquer les étapes par lesquelles tu dois passer
- Ecrire la logique que tu vas mettre en place

Essaie dans un premier temps, par rapport à une liste de fichiers se trouvant dans une feuille, de voir comment tu pourrais parcourir cette liste pour ouvrir un fichier puis le fermer. Tu pourras alors insérer l'impression. Ensuite, sur un fichier test, via l'enregistreur, vois comment tu peux filtrer sur A, ...

Indices:
Programme en pensant objet. Par exemple, pour manipuler un classeur, tu peux utiliser une variable de type Workbook. Ainsi, tu peux exploiter toutes les propriétés et méthodes de ce type d'objet



L'explorateur d'objets (F2 lorsque tu es dans l'éditeur VBA) de donne la liste des propriétés et méthodes pour un objet particulier


Avec cela, tu peux te lancer, et revenir ici pour les problèmes ponctuels que tu rencontreras...

[jerome39]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub IMPRIMER_FEUILLES_PREPA()
 
Const chemin = "F:\COMMANDES C&A SEM51\SEMAINE 51\FEUILLES PREPA"
Dim Fich As String
Dim OldStateAskToUpdateLinks As Boolean
'On Error GoTo Erreur
If ThisWorkbook.Path = DOSSIER Then
  MsgBox "Ne pas mettre le classeur contenant le programme dans le dossier " & DOSSIER
  Exit Sub
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
 
With Application
  OldStateAskToUpdateLinks = .AskToUpdateLinks
  .AskToUpdateLinks = False
  .DisplayAlerts = False
  .ScreenUpdating = False
End With
Selection.AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
Workbooks(Fich).Close True
Fich = Dir
Loop
With Application
  .AskToUpdateLinks = OldStateAskToUpdateLinks
  .DisplayAlerts = True
  .ScreenUpdating = True
End With
End Sub

Il doit y avoir des erreurs énormes. C'est comme si je tentais une démonstration en Japonais avec comme seule aide un dictionnaire.

[mercatog]

Bonjour,
essaie ceci (en corrigeant ton code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Sub IMPRIMER_FEUILLES_PREPA()
 
Dim wbk As Workbook, awbk As Workbook
Dim Fich As String
Dim OldStateAskToUpdateLinks As Boolean
Const chemin = "F:\COMMANDES C&A SEM51\SEMAINE 51\FEUILLES PREPA"
 
If ThisWorkbook.Path = chemin Then
  MsgBox "Ne pas mettre le classeur contenant le programme dans le dossier " & chemin
  Exit Sub
End If
 
Set awbk = ThisWorkbook
Fich = Dir(chemin & "\*.xls")
Do While Fich <> ""
    Set wbk = Workbooks.Open(chemin & "\" & Fich)
 
    With Application
      OldStateAskToUpdateLinks = .AskToUpdateLinks
      .AskToUpdateLinks = False
      .DisplayAlerts = False
      .ScreenUpdating = False
    End With
    wbk.Sheets(1).Cells.AutoFilter Field:=1, Criteria1:="<>"
    wbk.Sheets(1).PrintOut Copies:=1
    wbk.Close
    Set wbk = Nothing
    Fich = Dir
Loop
With Application
  .AskToUpdateLinks = OldStateAskToUpdateLinks
  .DisplayAlerts = True
  .ScreenUpdating = True
End With
Set awbk = Nothing
End Sub

Edit: Correction cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   wbk.Sheets(1).Cells.AutoFilter Field:=1, Criteria1:="<>"

[jerome39]

Bonjour mercatog et merci beaucoup pour ton aide je me sentais vraiment seul sur ce coup là.

Le code bug juste à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbk.Sheets(1).AutoFilter Field:=1, Criterial:="<>"

=> Argument nommé introuvable
L'argument nommé n'apparait pas dans la définition de cette procédure

J'avais ecris cette ligne avec l'enregitreur de macro et ca ne doit pas convenir dans cette configuration. Qu'est ce que tu en penses?

Jérôme

[mercatog]

Désolé,
je n'ai pas ton fichier de test
il fallait peut-etre ecrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
On error resume next
wbk.Sheets(1).Cells.AutoFilter Field:=1, Criteria1:="<>"

[jerome39]

je n'en reviens pas ====> ca marche !!!

Enorme merci mercatog