Discussion :

[easy1967]

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 :

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

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

[Igloobel]

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 :

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

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+

[easy1967]

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 :

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

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
""