ExecuteExcel4Macro("Get.Document(50)")

Question

Bonjour,

Est-ce que je me trompe en mentionnant que pour la fonction ExecuteExcel4Macro("Get.Document(50)") il faut être dans la feuille active afin que ça fonctionne à 100%?

Si oui y at'il une autre façon efficace?

Merci à l'avance.

Answer 1

Bonjour,

Voici une fonction personnalisée que tu peux utiliser pour déterminer le nombre de pages à imprimer pour toutes les feuilles sélectionnées du classeur. Nul besoin de sélectionner à tour de rôle chacune des feuilles pour ce faire.

Exemple :

Pour déterminer le nombre de pages à imprimer pour le classeur dans lequel la procédure "tets" est écrite... Tu peux remplacer "ThisWorkbook" par Workbooks("NomDuClasseur.xls")

'---------------------------------------

Sub tets()

MsgBox NbPages_Impression(ThisWorkbook)

End Sub

'---------------------------------------

'Une fonction personnalisée que tu peux mettre dans le classeur Perso.xls !

'-------------------------------------------

Public Function NbPages_Impression(ByVal Wk As Workbook) As Integer

Dim NbPages As Integer, P As Integer, Sh As Object

Dim NomClasseur As String, NomFeuille As String

NomClasseur = "[" & Wk.Name & "]"

For Each Sh In Workbooks(Wk.Name).Windows(1).SelectedSheets

    NomFeuille = NomClasseur & Sh.Name

    P = ExecuteExcel4Macro("Get.Document(50," & _

                  """" & NomFeuille & """" & ")")

    NbPages = NbPages + P

  Next

  NbPages_Impression = NbPages

End Function

'-------------------------------------------