Bonjour à tous,
la saison d'arrosage approchant, je dois diffuser les horaires d'irrigation individuels de l'année (feuille "HH indiv"). J'ai une macro (bouton: "Générer PDF indiv") qui me génère le fichier PDF un par un.
Mais je n'arrive pas à faire fonctionner la deuxième macro (bouton: "Générer tous les PDF") en boucle sur la colonne T, afin d'avoir tous les PDF individuel !
Sub PRINTTOUTESPARCELLES()
' PRINTTOUTESPARCELLES Macro
Dim I As Integer
USFATTENTE.Show
USFATTENTE.Repaint
Application.ScreenUpdating = False
Chemin = ActiveWorkbook.Path
For I = 1 To 10 Step 1
Sheets("HH indiv").Range("C3").Value = Sheets("HH indiv").Range("T4").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & "\" & Range("C3").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next I
USFATTENTE.Repaint
Unload USFATTENTE
MsgBox "Opération terminée les pdf se trouvent dans le répertoire de ce fichier"
End Sub
Cordialement, bonne journée
Bubar