B
bichon
Guest
Salut a tous et a toutes
j'ai encore un ptit problème avec la numerotation des feuille que j'imprime
je m'explique
j'ai des element dans une listbox qui corresponde a des classeurs et je souhaiterai
les imprimer en le numerotant dans une cellule
voici mon code pour l'instant
Dim i As Byte
Dim j As Byte
Dim NomClasseur As String
j = 1
Do While j < Optbase.ListBox2.ListCount
For i = 1 To Optbase.ListBox2.ListCount
NomClasseur = Worksheets("Baseopt").Cells.Find(What:=Optbase.ListBox2.List(i - 1), After:=ActiveCell, LookIn _
:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Cells(1, 2)
'Ouvrons le fichier correspondant:
Workbooks.Open FileName:="F:\Metachut2003\Optmet\Fiches\" & NomClasseur
Range("AA2").Value = j
Range("T3").Value = TextBox1.Value
Range("Q2").Value = TextBox2.Value
Range("X2").Value = TextBox3.Value
Range("T2").Value = TextBox4.Value
j = j + 1
Loop
' imprime classeur actif
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' ferme sans sauvegarder
ActiveWorkbook.Close savechanges:=False
Next i
voila en fait j serai un compteur que j'incremente et j'aimerai qu'a chaque page que j'imprime
il sincremente de 1
ce code que je vous met ne marche pas mais ca serai la solution
car en fait j'aimerai mettre le do avant le for
et repeter le loop avant le next
problème vba n'aime pas trop
comment faire? je me suis rendu fou toute la journée pour essayé de trouver une solution
sans succès a l'aiiiiiiiiiiiiddddddddddee
car si je met le do apres le for ben les element que j'ai des ma listbox et que je veux imprimer
si j'ai 2 feuille a imprimer il m'imprimera la 1ere feuille 2 fois le compteur marchera certe
mais je n'aurai que la premiere feuille et inversement si for d'abors il va m'imprimé
les bonne feuille mais sans le compteur
j'ai vraiment besoin d'aide
voila je remercie 1000 fois celui qui corrigera mes boucles
encore merci
bichon
j'ai encore un ptit problème avec la numerotation des feuille que j'imprime
je m'explique
j'ai des element dans une listbox qui corresponde a des classeurs et je souhaiterai
les imprimer en le numerotant dans une cellule
voici mon code pour l'instant
Dim i As Byte
Dim j As Byte
Dim NomClasseur As String
j = 1
Do While j < Optbase.ListBox2.ListCount
For i = 1 To Optbase.ListBox2.ListCount
NomClasseur = Worksheets("Baseopt").Cells.Find(What:=Optbase.ListBox2.List(i - 1), After:=ActiveCell, LookIn _
:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Cells(1, 2)
'Ouvrons le fichier correspondant:
Workbooks.Open FileName:="F:\Metachut2003\Optmet\Fiches\" & NomClasseur
Range("AA2").Value = j
Range("T3").Value = TextBox1.Value
Range("Q2").Value = TextBox2.Value
Range("X2").Value = TextBox3.Value
Range("T2").Value = TextBox4.Value
j = j + 1
Loop
' imprime classeur actif
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' ferme sans sauvegarder
ActiveWorkbook.Close savechanges:=False
Next i
voila en fait j serai un compteur que j'incremente et j'aimerai qu'a chaque page que j'imprime
il sincremente de 1
ce code que je vous met ne marche pas mais ca serai la solution
car en fait j'aimerai mettre le do avant le for
et repeter le loop avant le next
problème vba n'aime pas trop
comment faire? je me suis rendu fou toute la journée pour essayé de trouver une solution
sans succès a l'aiiiiiiiiiiiiddddddddddee
car si je met le do apres le for ben les element que j'ai des ma listbox et que je veux imprimer
si j'ai 2 feuille a imprimer il m'imprimera la 1ere feuille 2 fois le compteur marchera certe
mais je n'aurai que la premiere feuille et inversement si for d'abors il va m'imprimé
les bonne feuille mais sans le compteur
j'ai vraiment besoin d'aide
voila je remercie 1000 fois celui qui corrigera mes boucles
encore merci
bichon