Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1230 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Impression de la page courante sous excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Impression de la page courante sous excel

n°1225945
gagletor
Posté le 19-10-2005 à 10:26:07  profilanswer
 

Bonjour,
 
Tou d'abord je souhaite préciser que je travail avec excel 97 (pour le erreurs de conpatibilité de formaule)
Je dispode d'un formulaire excel. La partie supérieur de la feuille est en volet bloqué, ce qui signifie que lorsque je fais défiler la feuille, ce volet reste fixe. En dessous de ce volet, je remplis des lignes à chacun de mes contrôles de pièces. Une ligne par contrôle.
Si par exemple j'attend un nombre de 200 contrôle et que je veux imprimer la feuille, l'imprimante me sort toute les feuilles, le volet fixe sur la première page, puis les lignes écrite en dessous.
Je souhaiterais pouvoir imprimer ce qui est à l'écran, c'est à dire, le volet fixe + les lignes en dessous ( de la ligne 50 à 60 par exemple, ou bien de la ligne 142 à 154). En faite, ce que je vois à l'écran je veux l'imprimer, sans les menus de excel.
En clair, je voudraisfaire une sorte d'imprime écran système sans imprimer les marges, les barres d'outils. Juste mon tableau excel.
 
Merci de votre attention
 
A bientôt
 
PS: voici un code qui m'a été donné et qui devrait gérer ce genre d'impression. Mais il m'affiche une erreur 1004 "Propriété hidden impossible à definirsur range". Pourtant il fonctionne une fois ou deux avant de me mettre cette erreur.
 
Sub ImprimeLignesVisibles()
Dim Plage As Range, EnTete As Range, Cel As Range
 
   Application.ScreenUpdating = False
   With Feuil1 'A toi d'adapter le nom de la feuille
      .Activate
      'les lignes d'en-tête, qui seront toujours visibles
      Set EnTete = .Rows("1:12" ) 'nbre de lignes figées
 
      Set Plage = Union(ActiveWindow.VisibleRange, EnTete)
      .UsedRange.EntireRow.Hidden = True
      For Each Cel In Plage.Rows
         Cel.EntireRow.Hidden = False
      Next Cel
      .PrintPreview 'ou .PrintOut en situation réelle
      .UsedRange.EntireRow.Hidden = False
   End With
   Application.ScreenUpdating = True
End Sub

mood
Publicité
Posté le 19-10-2005 à 10:26:07  profilanswer
 

n°1228045
Profil sup​primé
Posté le 21-10-2005 à 14:28:46  answer
 

Dans Mise en page / Feuille / lignes à repeter
Tu a bien les lignes d'entete qui apparaissent?

Message cité 1 fois
Message édité par Profil supprimé le 21-10-2005 à 14:29:16
n°1236491
gagletor
Posté le 02-11-2005 à 15:16:55  profilanswer
 


 
Bonjour,
 
Tout d'abord merci pour ta réponse si rapide, et ensuite, je tiens à m'excuser de mon grand retard, mais je reviens juste de congé.
 
Les lignes d'entêtes apparaissent bien dans les lignes à répéter.  
Je n'ai toujours pas réussi à trouver la solution.
Toujours la même erreur
 
erreur 1004
impossible de définir la propriété Hidden de la classe range
 
Merci pour votre aide
 
A bientôt  
 
 
 

n°1237204
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 10:27:56  profilanswer
 

Utilises-tu un boutton (fait par toi) sur lequel tu cliques pour lancer l'impression ?


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237259
gagletor
Posté le 03-11-2005 à 11:21:43  profilanswer
 

Vobiscum a écrit :

Utilises-tu un boutton (fait par toi) sur lequel tu cliques pour lancer l'impression ?


 
Bonjour,
 
Oui effectivement, j'utilise un bouton fait par moi. Il sert à lancer ma macro d'impression.
 

n°1237268
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 11:29:02  profilanswer
 

gagletor a écrit :

Bonjour,
 
Oui effectivement, j'utilise un bouton fait par moi. Il sert à lancer ma macro d'impression.


 
Peux-tu inclure ceci en première ligne dans Private Sub CommandButton1_Click:
 
 

Code :
  1. Feuil1.CommandButton1.TakeFocusOnClick = False


 
(remplacer feuil1 et commandbuttion1 par les noms de tes propres boutons et feuilles)
et voir si ca marche ?


Message édité par Vobiscum le 03-11-2005 à 11:29:54

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237277
gagletor
Posté le 03-11-2005 à 11:34:53  profilanswer
 

Ca ne fonctionne pas du tout, j'ai toujours la même erreur...
 
Merci de ton aide

n°1237347
watashi
La démotivation : JAMAIS !
Posté le 03-11-2005 à 12:14:58  profilanswer
 

A mon avis gagletor il serait utile que tu copie/colle les codes exacts que tu as mis pour ton bouton d'impression et pour ta macro, plutot que le code qui t'avait été donné (il y a peut-être tout simplement un problème de syntaxe).  
 
P.S. :Je suis sous excel 2002 et la macro marche parfaitement sans erreur de proprièté.Je n'ai malheuresement d'excel 97 pour tester.


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1237360
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 12:17:58  profilanswer
 

Peux-tu donner la ligne où l'erreur apparaît ?
 
De plus sous excel 97, il est parfois utile de selectionner les lignes avec lesquelles on veut travailler, donc une ligne tel:
 
plage.select
 
après le "set plage = ..."
 
pourrait peut-être aider
 


Message édité par Vobiscum le 03-11-2005 à 12:23:11

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237428
gagletor
Posté le 03-11-2005 à 13:33:21  profilanswer
 

Et bien en faite j'utilise le code tel qu'il est ci-dessus.  
Je l'ai mis dans "Private Sub CommandButton2_Click"
La ligne d'erreur est celle-ci ".UsedRange.EntireRow.Hidden = True "
Il me met donc "erreur 1004 "Propriété hidden impossible à definirsur range". "
 
Je l'ai testé sous excel 2003 et il fonctionne. Je ne sais pas quoi changer pour qu'il fonctionne sous excel 97....
 
merci

mood
Publicité
Posté le 03-11-2005 à 13:33:21  profilanswer
 

n°1237444
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 13:50:43  profilanswer
 

As-tu essayé la plage.select ?


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237490
gagletor
Posté le 03-11-2005 à 14:08:55  profilanswer
 

Je viens d'essayer  et j'ai toujours la même erreur :(

n°1237541
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 14:33:16  profilanswer
 

gagletor a écrit :

Je viens d'essayer  et j'ai toujours la même erreur :(


 
Désolé, pour l'instant je ne vois pas la solution (je n'ai pas xl97) ...  :??: Je vais continuer à chercher mais ça peut prendre du temps  :cry:


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237600
watashi
La démotivation : JAMAIS !
Posté le 03-11-2005 à 15:08:55  profilanswer
 

regardes ici
Le problem sur hidden est identique. Tu auras peut être une sollution.
sur msdn, tout indique que c'est bon pour excel 97
Essaye aussi de vérifier ce qu'excel selectionne pour usedrange :)
bon courage


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1237608
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 15:16:01  profilanswer
 

watashi a écrit :

regardes ici
Le problem sur hidden est identique. Tu auras peut être une sollution.
sur msdn, tout indique que c'est bon pour excel 97
Essaye aussi de vérifier ce qu'excel selectionne pour usedrange :)
bon courage


 
Déjà proposé dans un de mes posts plus haut ... pour le ici :D

Message cité 1 fois
Message édité par Vobiscum le 03-11-2005 à 15:17:01

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237624
watashi
La démotivation : JAMAIS !
Posté le 03-11-2005 à 15:24:16  profilanswer
 

Vobiscum a écrit :

Déjà proposé dans un de mes posts plus haut ... pour le ici :D


J'avais vu :):D mais je lui ai filé le lien pour qu'il ai une piste pour demandé de l'aide ;) parce que j'ai même plus de machine ici qui tourne en 97 ayé l'informaticien a réussi à tout faire passer au moins en 2000.


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1237656
Vobiscum
Vénérez moi !
Posté le 03-11-2005 à 15:37:32  profilanswer
 

Question: Y a-t-il des cellules mergées dans la feuille ? + La feuille est-elle protégée ?


Message édité par Vobiscum le 03-11-2005 à 15:57:36

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
n°1237844
gagletor
Posté le 03-11-2005 à 17:14:13  profilanswer
 

Oui il y a des cellules mergées, et la feuille est protégée. Mais j'avais le même problème lorsque la feuille n'était pas protégée.
J'ai essayé le truc du lien mais ca ne change rien.
Par contre je vais faire un essais sur une feuille sans cellules mergées.
Je vous tiens au courant.
 
Merci

n°1237904
gagletor
Posté le 03-11-2005 à 17:34:55  profilanswer
 

Bon j'ai essayé sur une feuille vierge et ca me donne la même erreur....
Vive excel 97.....lol
 
Gardons le moral, oh oui, gardons le moral


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Impression de la page courante sous excel

 

Sujets relatifs
relier Excel et PostgreSQLAffichage de ma page different sous ie et firefox
Pb avec plusieurs include PHP sur une même pageComment mieu coder ma page
[RESOLU] Duplication d'une feuille excel avec POIPopup vers page
[Aide] Déplacer tête d'impressionEnvoyer cette page a un ami
Appel de fonction d'une autre pageFichier avec macro sous excel
Plus de sujets relatifs à : Impression de la page courante sous excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR