XL 2010 Vba : imprimer liste onglets [RESOLU]

[herve62]

Bonsoir
Il me semblait que cette méthode fonctionnait , elle venait du web mais apparemment il y a une erreur que je ne sais expliquer
avant j'avais ça , mais ne fonctionne pas donc j'essaie par une méthode plus souple ( sélection des onglets hors VBA)

Sheets(Array("Présentation", "Les modifications", "Les ressources")).Select

merci

 

[TooFatBoy]

À mon avis, il y a forcément quelque chose que tu ne fais pas 100 % pile-poil correctement.

Remarque : ton tableau Liste() ne sert à rien dans cette macro. 😉

 

[herve62]

@TooFatBoy : Je fais du copier / coller , autre solution pour être sûr ?
Remarque > c'est un fichier d'essai , brouillon ..... j'ai fait pas mal de tests .....

Et justement , au début pour mon fichier #1 c'est du copier / coller du fichier de mon copain et le code ne va pas ni dans l'un ni dans l'autre

Je reprends ma réponse suite à investigations sup.
Donc dernière nouvelle , à savoir :
Si plusieurs fichiers ouverts en même temps, du même type comme par exemple chez moi : Imp_liste ou Imp_auto et le fichier du copain .... Ca PLANTE , j'ai déjà eu le même tour avec plusieurs fichiers ayant des USF de même nom > des messages d'erreurs incompréhensible ! et c'est pas d'aujourd'hui
c'est ce qui m'a mis la puce à l'oreille !

Donc j'ai repris le fichier de mon pote SEUL ouvert , écris la sub et TOUT fonctionne
Je ne sais pas si vous connaissez ce phénomène mais il existe , pourquoi .... euh ????

donc voilà sujet clos et grand merci à vous de vous être intéressés à mon sujet !!!

 

[TooFatBoy]

Bizarre, chez moi pas de souci, même si un autre fichier est ouvert, sauf évidemment si c'est l'autre classeur qui est actif au moment de lancer la macro.

As-tu essayé de spécifier le classeur, avec un truc du genre :

    For Each Ws In ThisWorkbook.Sheets(Array("Présentation", "Les modifications", "Les ressources"))
        Ws.PrintOut Copies:=1, Preview:=False, Collate:=True
    Next Ws

 

[herve62]

Bonjour
Ben non , je pense plutôt à un Pb de conflit entre PC / Excel / Imp
Ce matin j'ai repris les fichiers fait x tests , en ajoutant Thisworkbook : ok , puis le retirant Ok ; Mais en ouvrant un autre plus rien ?? . Par contre dans l'appli du copain > toujours ok maintenant ???
Rien ne sert de se casser la tête , je lui retourne son fichier ... ça devrait aller puisque chez vous aucun soucis

 

[TooFatBoy]

Ce matin j'ai repris les fichiers fait x tests , en ajoutant Thisworkbook : ok , puis le retirant Ok ; Mais en ouvrant un autre plus rien ?? .

Quel est l'intérêt d'enlever ThisWorkbook puisque ça ne marche pas sans (ou du moins c'est erratique), alors que ça marche avec ??? 🤔

 

[herve62]

ça ne marche pas sans

Je viens de relancer AVEC et ça ne VA PAS !!! non plus

 

[TooFatBoy]

OK. 😕

 

[Eric C]

Bonsoir le forum
Bonsoir le fil

Ah... le devoir de papy ... Pas évident de trouver du temps libre depuis 2 jours.
Après moults essais, je te propose, Hervé, cet UserForm avec saisie d'une ou des feuille(s) à imprimer (je n'ai pas adapter à tes onglets). J'espère que cela conviendra à ton projet.
Bonne nuit
@+ Eric c