Selectionner et imprimer des onglets
Résolu
Thomas
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Selectionner et imprimer des onglets
- Imprimer en a5 - Guide
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Imprimer tableau excel sur une page - Guide
- Restaurer les onglets chrome - Guide
- Parole de chanson francaise gratuite à imprimer - Télécharger - Vie quotidienne
2 réponses
Bonjour,
Je souhaiterais que ma macro selectionne et imprime en pdf tous les onglets qui on le meme nom en colomme B.
En mettant ce code dans un module tu devrais l'obtenir :
Je souhaiterais que ma macro selectionne et imprime en pdf tous les onglets qui on le meme nom en colomme B.
En mettant ce code dans un module tu devrais l'obtenir :
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub Macro1()
Dim i As Integer, nom As String, cda As Long
cda = FindWindow("XLMAIN", Application.Caption)
With Sheets("FEUILLE DE GARDE")
For i = 2 To 5
If .Range("B" & i).Value = "Steph" Then
nom = CStr(.Range("A" & i).Value)
If Dir(nom) <> "" Then Kill nom
Sheets(nom).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nom, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:= _
False, OpenAfterPublish:=False
ShellExecute cda, "print", nom & ".pdf", "", "", 1
End If
Next i
End With
End Sub
Bonjour gbinforme,
J'ai mis le code que tu m'as très gentillement donné dans mon fichier mais j'ai une erreur.
Je n'ai pas ton niveau de code, je t'avoue que j'ai mis un bon moment à commencer à comprendre le début du code.
Peux-tu m'aider à résoudre le problème ?
Bonne journée
J'ai mis le code que tu m'as très gentillement donné dans mon fichier mais j'ai une erreur.
Je n'ai pas ton niveau de code, je t'avoue que j'ai mis un bon moment à commencer à comprendre le début du code.
Peux-tu m'aider à résoudre le problème ?
Bonne journée
Bonsoir,
Plusieurs erreurs :
- tu mets en commentaire
- c'est quoi la
- les 2
- tu as ainsi 2 procédures et un seul
C'est sûr que le compilateur n'est pas heureux, heureux à trier tout cela !
Si déjà tu répares cela, le résultat sera sans doute meilleur !
Je comprends bien que tu as voulu adapter, mais il n'y avait rien à rajouter, sinon changer le nom de la macro : bon test.
Plusieurs erreurs :
- tu mets en commentaire
Option Explicitet pourtant cette option t'évites de faire des erreurs de frappes que tu vas chercher pendant des heures ... mais tu as le droit, c'est une option !!!
- c'est quoi la
Sub Macro2()que tu as rajouté en tête ?
- les 2
Private Declare Functiondoivent être en tête du module !
- tu as ainsi 2 procédures et un seul
End Sub
C'est sûr que le compilateur n'est pas heureux, heureux à trier tout cela !
Si déjà tu répares cela, le résultat sera sans doute meilleur !
Je comprends bien que tu as voulu adapter, mais il n'y avait rien à rajouter, sinon changer le nom de la macro : bon test.
Bonsoir Thomasj45,
Pour imprimer tous les onglets sélectionnés dans le même PDF, il faut modifier le code, comme ceci par exemple :
Tu n'auras qu'un PDF mais avec des pages différentes pour chaque onglet sélectionné.
Pour imprimer tous les onglets sélectionnés dans le même PDF, il faut modifier le code, comme ceci par exemple :
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub Imprimer()
Dim i As Integer, nom As String, cda As Long, sel(), idx As Integer
idx = -1: cda = FindWindow("XLMAIN", Application.Caption)
nom = Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".")) & "pdf"
With Sheets("FEUILLE DE GARDE")
For i = 2 To 5
If .Range("B" & i).Value = "Steph" Then
idx = idx + 1: ReDim Preserve sel(idx)
sel(UBound(sel)) = CStr(.Range("A" & i).Value)
End If
Next i
Sheets(sel).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nom, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:= _
False, OpenAfterPublish:=False
ShellExecute cda, "print", nom, "", "", 1
End With
End Sub
Tu n'auras qu'un PDF mais avec des pages différentes pour chaque onglet sélectionné.
