Merci pour ta réponse rapide Jon.
Je peux effectivement passer en mode Déboguage voici le texte de la macro que j'ai fait par apprentissage. Une flèche indique la ligne qui pose problème.
"
Sub Impression_pages()
'
' Impression_pages Macro
' Imprimer les fiches inventaire
'
'
--> Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("2) Fiche résidus toner").Select
ActiveWindow.SmallScroll Down:=0
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("3) Fiche pesée mat prem").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("5) Fiche pesée PIAB").Select
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("6) Inventaire des pots additifs").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("7) Fiche bins mag 730").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("9) Inventaire bulk 731 - 730").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Données").Select
ActiveWindow.SmallScroll Down:=-9
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Réseau").Select
End Sub
"
Le fichier est en effet sur un disque réseau (mais il fonctionne sur mon PC !!!)...
Merci d'avance pour votre aide.
fcud.