Sub Previsionnel_AG()
'
'
'
Dim Rep As Integer, An As Variant, Ligne As Long
Rep = MsgBox("Vous allez enregistrer les Budgets n-1, n, n+1, n+2. Voulez-vous continuez ?", vbYesNo + vbQuestion, "Luc MOUNY")
If Rep = vbYes Then
An = InputBox("Entrez l'année à traiter")
If An = "" Then Exit Sub
If Not IsNumeric(An) Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
Sheets("Budgets").Select
' ActiveWindow.SmallScroll Down:=0
An = CInt(An)
Ligne = Application.Match(An, [I:I], 0)
Union(Range("A" & Ligne & ":O" & Ligne + 121), Range("A" & Ligne + 132 & ":O" & Ligne + 142), _
Range("A" & Ligne + 198 & ":O" & Ligne + 208)).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Les Pinsons\Syndic\Prévisionnels AG 2019.pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Else
' ici le traitement si réponse négative
' ...
End If
End Sub
Bonjour,
Essaie :
VB:Sub Previsionnel_AG() ' ' ' Dim Rep As Integer, An As Variant, Ligne As Long Rep = MsgBox("Vous allez enregistrer les Budgets n-1, n, n+1, n+2. Voulez-vous continuez ?", vbYesNo + vbQuestion, "Luc MOUNY") If Rep = vbYes Then An = InputBox("Entrez l'année à traiter") If An = "" Then Exit Sub If Not IsNumeric(An) Then MsgBox "Saisie incorrecte" Exit Sub End If Sheets("Budgets").Select ' ActiveWindow.SmallScroll Down:=0 An = CInt(An) Ligne = Application.Match(An, [I:I], 0) Union(Range("A" & Ligne & ":O" & Ligne + 121), Range("A" & Ligne + 132 & ":O" & Ligne + 142), _ Range("A" & Ligne + 198 & ":O" & Ligne + 208)).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "G:\Les Pinsons\Syndic\Prévisionnels AG 2019.pdf", Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Else ' ici le traitement si réponse négative ' ... End If End Sub
Sous réserve que le nombre de lignes soit fixe quelle que soit l'année.
Cordialement.
Daniel
Je relève un détail, Je dois entrer dans l'InputBox, l'année qui précède l'AG. J'aurai préféré entrer l'année de l'AG.
Si tu veux, je peux faire -1 sur l'année.
Daniel
Je teste sur mon fichier, J'ai une anomalie sur 2020 et 2021, et peut-être 2022, ensuite jusqu'à 2040 ça a l'air de coller pile poil, j'essaie de comprendre, je reviendrai à l'occasion.
Merci
Luc
Je teste sur mon fichier, J'ai une anomalie sur 2020 et 2021, et peut-être 2022, ensuite jusqu'à 2040 ça a l'air de coller pile poil, j'essaie de comprendre, je reviendrai à l'occasion.
Merci
Luc
bonjour
ce System devra etre mis a jour dans la feuille2 constamment
ca n'est pas une bonne méthode et plutôt lourde
pour quoi ne pas faire une feuille par année qui commencerait paar le clos de l'année précédente
et a defaut d'utiliser des tableaux structurés nommer tes plage tableaux
pour reg to pdf ca serait simple
chemin="c:\mondossier\"
nom de la plage.select
nom=selection.name
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & nom &".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
le tout piloté par un seul inputbox référençant les plages nommées
ce que tu fait dans feuille2 mais dans les names
laisse moi 20 minute pour te faire un exemple
Bonsoir,
Bonsoir à tous les deux,
Tout d'abord danielco,
Après pas mal de tests, il s'avère qu'il y ait un petit problème que je n'arrive pas à résoudre, pour l'AG de 2019, j'ai bien l' exercice 2018, et 2019 les prévisionnels 2020 et 2021, mais les pages sont tronquées, idem pour l'AG 2020. J'ai vérifié le nombre de lignes, je ne vois pas d'écart.
Pour les exercices suivants, si j'entre 2020, j'ai 2020 2021 et 2022, il manque 2019 et ainsi de suite jusqu'à 2040.
Je chercherai dans le courant de la semaine, et reviendrai si nécessaire.
Pour patricktoulon,
Merci pour votre contribution, mais mon programme est quasiment automatisé, comme dit plus haut, une centaine de macros, toutes les éditions sont programmées et personnalisées jusque 2040, néanmoins, j'attends avec intérêt votre proposition. Si celle-ci peut faciliter la tâche, je suis intéressé.
Merci à vous deux
à bientôt sur le forum, j'espère
Bonjour patricktoulon,re
voila
un exemple
regarder les names
lancer la sub test_tableau_to_pdf
Regarde la pièce jointe 1046307
Bonjour danielco,Si tu veux, je peux faire -1 sur l'année.
Daniel
Sub test()
Range("C3:E6,B11:D18,G10:I14").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\polux\Desktop\form1 et form 2.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
re
un exemple simple qui enregistre 3 plages dans un pdf de 3 pages
VB:Sub test() Range("C3:E6,B11:D18,G10:I14").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\polux\Desktop\form1 et form 2.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub