pierrequimousse
XLDnaute Junior
Bonjour à tous,
je sollicite votre aide après quelques heure de "bidouille" et recherches en tout genre.
J'ai une macro qui imprime les onglets de plusieurs classeurs selon un paramètre (un no de semaine qui est le nom des onglets à imprimer)
Quand j'entre manuellement un n° dans ma macro ça fonctionne très bien... Quand j'essaie de faire référence à une cellule de mon fichier qui pilote cette macro, pour aller cherche le n° de semaine dans la cellule B2, j'ai un problème "code problème 13"
je me rend bien compte que c'est ma variable nosemaine qui ne va pas comme je voudrais (car en la supprimant et en entrant le n° en"manuel" ca fonctionne très bien)
Je suis sur que c'est une erreur toute bête que je ne referais plus ensuite, mais la, je rame...
Pouvez vous m'aider la dessus s'il vous plait ???
Merci d'avance !!
Pierre, bientôt fan de VBA...
je sollicite votre aide après quelques heure de "bidouille" et recherches en tout genre.
J'ai une macro qui imprime les onglets de plusieurs classeurs selon un paramètre (un no de semaine qui est le nom des onglets à imprimer)
Quand j'entre manuellement un n° dans ma macro ça fonctionne très bien... Quand j'essaie de faire référence à une cellule de mon fichier qui pilote cette macro, pour aller cherche le n° de semaine dans la cellule B2, j'ai un problème "code problème 13"
je me rend bien compte que c'est ma variable nosemaine qui ne va pas comme je voudrais (car en la supprimant et en entrant le n° en"manuel" ca fonctionne très bien)
Je suis sur que c'est une erreur toute bête que je ne referais plus ensuite, mais la, je rame...
Pouvez vous m'aider la dessus s'il vous plait ???
Sub ImprimerFichiers()
Dim chemin$, nomfich$
Dim nosemaine As Integer
Application.DisplayAlerts = False
chemin = ThisWorkbook.Path 'chemin d'accès du dossier
nosemaine = Sheets(Feuil1).Range(b2) 'nom de la feuille à imprimer (correspond à un n° de semaine entré dans mon fichier
'qui commande l'impression, ce n° est le nom de l'onglet à imprimer sur chaque fichier)
nomfich = Dir(chemin & "\*.xls") '1er fichier du dossier
While nomfich <> ""
If nomfich <> ThisWorkbook.Name Then
Workbooks.Open chemin & "\" & nomfich 'ouvre le [Edit] fichier
If Sheets(nosemaine).Range("m23").Value > 0 Then
Sheets(nosemaine).PrintOut 'Imprime feuil
End If
Workbooks(nomfich).Close ' ferme le [Edit] fichier
End If
nomfich = Dir 'fichier suivant du dossier
Wend
End Sub
Merci d'avance !!
Pierre, bientôt fan de VBA...