Macro bug fichier reseau

Bonjour,

J'ai un problème que je n'arrive pas a résoudre.

j'ai crée un fichier excel sur le réseau de l'entreprise ,fichier simple avec quelques macro simple avec bouton pour impression de documents .

tout fonctionne depuis mon poste je fait des impression ,mais quand je vais sur le poste de ma collègue "erreur 1004":erreur définie par l'application ou par l'objet.

je retourne sur mon poste et la même erreur ! je n'ai toucher a rien !

alors voila mon bout de code avec l'erreur j'ai chercher sur le net mais rien ne ma permis de m en sortir

je fait les macro avec les enregistrements le codage est vraiment trop dur pour l'instant,alors je fait appel a votre savoir pour me dire ce qui ne va pas sil vous plait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub IMPCOO() ' ' IMPCOO Macro ' ' Range("A1:I49").Select Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False End Sub Sub IMPSUPPCERTIF() ' ' IMPSUPPCERTIF Macro ' ' Range("A1:H93").Select Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False ActiveWindow.SmallScroll Down:=-84 End Sub

---

merci d'avance de votre temps

Bonjour,

deux trois petites choses
1) ne met rien en jaune on voit rien (jaune sur fond blanc ... eventuellement surligne en jaune)
2) faire un select pour faire un print derrière est inutile cela alourdit et ralenti le code (même si avec si peu de code cela se voit pas.)
donc

Code:

---

1 2 3 4 5 6

Range("A1:H93").Select Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False   devient   Range("A1:H93").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

---

3) ton "ActiveWindow.SmallScroll Down:=-84" ça c'est un coup de roulette c'est à virer

Bon ceci dit pourquoi ça marche pas là je vois pas et je laisse la main à des plus callé que moi concernant les impressions (je vais quand même faire quelques essais pour voir ;)

A+

Igloobel merci de ton intérêt


cela fonctionne a présent avec le code ci dessous mon travail et ton message se sont croise j'ai tout de même pris en compte le problème de roulette .

j'ai remplacer la sélection par une mise en page avec zone a imprime au préalable.


par contre tout mes docs s'imprime en noir et blanc alors que l'imprimante est configurer en couleur cela doit il se mettre aussi dans le code ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

"" Sub IMPCDESTOCK() ' ' IMPCDESTOCK Macro '   ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub ""

---