Message propriété ou méthode non gérée par cet objet

Bonjour le forum ,

Voilà j'ai une erreur sur la macro "propriété ou méthode non gérée par cet objet"dans l'onglet autorisation il y a un bouton impression et que je choisis une référence ce message apparaît..

Ci joint fichier

24autorisation-v8.xlsm (111.15 Ko)

Bonjour Abdernino

Aucun souci de mon côté, cela fonctionne sans message d'erreur

Bonjour

Mais elle me donne ce message alors ?

Bonjour à tous,

Effectivement Application.PrintCommunication = False et Application.PrintCommunication = True sous Excel 2007 donnent un message d'erreur d'exécution 438 " Propriété ou méthode non gérée par cet objet ".

Malheureusement, je ne sais pas comment écrire l'équivalent supporté par Excel 2007.

ric

Re,

Merci Ric pour la trouvaille, je suis en 2016, donc aucun souci pour moi

Sinon il suffit de supprimer ces 2 instructions, elles ne servent qu'à gagner du temps lors du paramétrage de la mise en page.

A+

Bonjour à tous,

J'ai trouvé sur le Net que Application.PrintCommunication ...

Il s'agit d'une propriété de l'objet Application rajoutée dans 2010.

ric

Bonsoir forum,

Est ce que supprimer les deux lignes ne pose pas de problème?

Re,

Absolument aucun

Bonjour à tous,

Tu peux supprimer ou mettre en commentaire ces deux lignes.

La macro va fonctionner correctement sous Excel 2007, sauf qu'elle sera un peu plus lente.

J'ai testé sur mon autre machine qui roule sous Excel 2007 et ça fonctionne bien sans ces deux lignes.

ric

Bonjour

Merci beaoucoup je vais essayer

Bonjour le forum ,

J'ai supprimer les deux lignes mais j'ai toujours sur le autres lignes entre whith et end whith

Merci beaucoup

Bonjour à tous,

Sur quelles autres lignes persistent des problèmes ?

ric

[quote=ric post_id=786638 time=1565000319 user_id=56402]

Bonjour à tous,

Sur quelles autres lignes persistent des problèmes ?

il me ramène a la première ligne de la macro

Bonjour à tous,

Je ne sais pas trop quoi en penser ...

Car, ici sous Excel 2007, ça fonctionne bien.

ric

Bonjour le fil

Je pense qu'on parle trop dans le vide

Alors,

1) Remplacer par ce code

Private Sub Bt1_Click()
  If ok Then ThisWorkbook.Sheets("Liste").PrintOut
End Sub

2) Celui-ci

Sub mp()
  With Sheets("Liste")
    .PageSetup.PrintArea = "$A$1:$G$53"
    ' NE PAS utiliser les lignes en commentaire    
    ' Application.PrintCommunication = False
    With .PageSetup
      .PrintTitleRows = ""
      .PrintTitleColumns = ""
      .LeftHeader = ""
      .CenterHeader = ""
      .RightHeader = ""
      .LeftFooter = ""
      .CenterFooter = ""
      .RightFooter = ""
      .LeftMargin = Application.InchesToPoints(0.708661417322835)
      .RightMargin = Application.InchesToPoints(0.708661417322835)
      .TopMargin = Application.InchesToPoints(0.748031496062992)
      .BottomMargin = Application.InchesToPoints(0.748031496062992)
      .HeaderMargin = Application.InchesToPoints(0.31496062992126)
      .FooterMargin = Application.InchesToPoints(0.31496062992126)
      .PrintHeadings = False
      .PrintGridlines = False
      .PrintComments = xlPrintNoComments
      '.PrintQuality = 600
      .CenterHorizontally = True
      .CenterVertically = True
      .Orientation = xlPortrait
      '.Draft = False
      '.PaperSize = xlPaperA4
      '.FirstPageNumber = xlAutomatic
      .Order = xlDownThenOver
      '.BlackAndWhite = False
      '.Zoom = False
      .FitToPagesWide = 1
      .FitToPagesTall = 1
      '.PrintErrors = xlPrintErrorsDisplayed
      '.OddAndEvenPagesHeaderFooter = False
      '.DifferentFirstPageHeaderFooter = False
      '.ScaleWithDocHeaderFooter = True
      '.AlignMarginsHeaderFooter = True
      .EvenPage.LeftHeader.Text = ""
      .EvenPage.CenterHeader.Text = ""
      .EvenPage.RightHeader.Text = ""
      .EvenPage.LeftFooter.Text = ""
      .EvenPage.CenterFooter.Text = ""
      .EvenPage.RightFooter.Text = ""
      .FirstPage.LeftHeader.Text = ""
      .FirstPage.CenterHeader.Text = ""
      .FirstPage.RightHeader.Text = ""
      .FirstPage.LeftFooter.Text = ""
      .FirstPage.CenterFooter.Text = ""
      .FirstPage.RightFooter.Text = ""
    End With
    ' Application.PrintCommunication = True
  End With
End Sub

A+

Bonjour ,

Merci ça marche très bien

mais l'onglet liste qui se crée la ligne du du bas ne se copie pas pourtant elle existe dans la l'onglet autorisation .

Bonjour à tous,

Ce que j'ai tenté ...

Aller sur l'onglet "Liste", ajuster les propriétés de mise en page (Ajuster à 1 page de largeur et une page de hauteur) ... revoir les marges au besoin.

Enregistrer le document ... tester avec le code de la proposition de BrunoM45.

ric

Bonsoir forum ,

avant quand j'avais plusieurs fiche sur autorisation , quand je clique sur imprimer j'avais toute les fiche alors que maintenant il n y a que la 1 qui s'affiche.

Bonjour à tous,

Bonjour ,

Merci ça marche très bien

mais l'onglet liste qui se crée la ligne du du bas ne se copie pas pourtant elle existe dans la l'onglet autorisation .

Pour avoir la ligne du bas...

Un correction mineur dans :

Private Sub UserForm_Initialize()
   Dim i&, lig&, col&, fin&
    With Feuil3
        fin = .Range("A" & Rows.Count).End(3).Row
        For i = 9 To fin Step 51
        L1.AddItem .Cells(i, 3): L1.List(L1.ListCount - 1, 1) = .Cells(i + 3, 6)
        L1.List(L1.ListCount - 1, 2) = i - 7
        L1.List(L1.ListCount - 1, 3) = i + 45  ' << 45 au lieu de 43 pour avoir la ligne du bas
        Next i
    End With
    L1.ColumnCount = 2
End Sub

ric

Bonjour,

Bonsoir forum ,

avant quand j'avais plusieurs fiche sur autorisation , quand je clique sur imprimer j'avais toute les fiche alors que maintenant il n y a que la 1 qui s'affiche.

Quand j'ai écrit "Aller sur l'onglet "Liste", ajuster les propriétés de mise en page (Ajuster à 1 page de largeur et 1 page de hauteur) ... revoir les marges au besoin."

J'ai commis une erreur ... j'aurais dû écrire : " Aller sur l'onglet "Liste", ajuster les propriétés de mise en page (Ajuster à 1 page de largeur et à 99 pages de hauteur) ... revoir les marges au besoin. "

En supposant que la feuille "Liste" ne contiendra jamais plus de 99 pages à imprimer en une seule fois.

Désolé pour mon erreur.

ric

Rechercher des sujets similaires à "message propriete methode geree cet objet"