Création PDF avec conditions
Bonjour à tous
Je sèche devant une macro ! En effet, je souhaiterais enregistrer cette fiche en PDF suivant le nombre d'inscrits (soit page 1 si A17<34 et les deux page si A17>33) comme J'ai réussi pour l'impression
Ci-joint le fichier "BF" (voir la macro pour savoir pourquoi je n'y parvient pas)
Merci beaucoup d'avance
Salut, quelques questions et remarques que j'ai vue en ouvrant ton fichier :
> La procédure VitesseKMH dans ta macro n'existe pas , est ce normal ?
> Le chemin d'accès doit être changé à mon avis (""C:\Users\Mélodie\Desktop\Benjamines.pdf"") mets plutôt à la place thisworkbook.path & "\Benjamines.pdf"
> As tu une feuille masquée ou effacée qui s'appelle " Boucles" ?
Bonjour M
La macro calcul de vitesse est a supprimer et la référence "Boucles!" aussi !
Comment automatiser mon PDF en une ou deux page suivant la valeur de A17 ?
Merci de ton aide
je pense que la condition est déjà écrite dans ta macro :
If MsgBox("Je viens de réaliser la sauvegarde des Benjamines en PDF avec succès; Voulez vous maintenant que je vous imprime cette liste ?", vbYesNo, "Demande de confirmation") = vbYes Then
If Range("A17").Value > 33 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=Range("Boucles!Q3").Value, Collate:=True, IgnorePrintAreas:=False
Else: ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Range("Boucles!Q3").Value, Collate:=True, IgnorePrintAreas:=False
End If
Non car il sauvegarde les 2 pages en pdf même si A17 est inférieur à 34
Peux tu tester voir si cela fonctionne :
Toujours pas le fichier créé PDF comporte toujours deux feuilles
Bizarre, tu as essayé de changer la valeur en A17 ?
Voila ce que j'obtiens :
Quand je lance la macro, il ne crée pas de PDF sur le bureau mais il imprime correctement la ou les feuilles