Discussion :

[srame]

Bonjours,

Me revoilà avec un autre problème.

J'ai 8000 classeurs du meme style, chaque classeur contient 4 feuille :
-FORM
-JOURNAL
-CH.OUT-XXXXX
-GAMME_XXXXX
(les XXXX change selon un type de machine, -machine1, -machine2, -machine3, -autremach, -encoreuneautre, etc...)

J'ai un macro qui m'imprime sur un dblclik les feuille CH.OUT et GAMME.

Pour faire ceci, j'ai actuellement fait un macro qui contient tous les nom de machines et qui selon la machine choisie dans une certaine case de la feuille "FORM" va imprimer tel ou tel feuille. Bref, cela fonctionne mais c'est long, et si je rajoute un machine, je suis bon pour me remodifier mes 8000000 de classeurs.

Donc, je cherche un moyen de pouvoir selectionner la feuille non pas par son nom complet, mais juste le debut, du style "CH.OUT-*" et "GAMME*", mais cela ne marche pas. Comment faire pour que cela fonctionne ?

ceci est mon code actuel :

Code :

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

1
2
        Sheets("CH.OUT-Machine1").PrintOut copies:=1, collate:=True
        Sheets("GAMME_Machine1").PrintOut copies:=1, collate:=True

A remplacer par cela ( cet exemple ne marche pas ) :

Code :

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

1
2
        Sheets("CH.OUT*").PrintOut copies:=1, collate:=True
        Sheets("GAMME*").PrintOut copies:=1, collate:=True

Merci à tous les génies de ce forum vraiment top.

[SfJ5Rpw8]

utilise la collection worksheets de ton classeur

pour le principe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub boucle()
 
 
Dim f As Worksheet
For Each f In ThisWorkbook.Sheets
  If f.Name Like "CH.OUT*" or f.name like "GAMME*" Then
       f.PrintOut copies:=1, collate:=True
  End If
Next
End Sub

[srame]

Alors là, je reste complètement sur le C...

C'est absolument parfait et tellement simple. Ca marche à merveille, et je passe de 57 lignes de programmation à 8.

Pourquoi faire simple quand je peux faire ultra compliqué.

Merci beaucoup bbil