Bonjour,
Un élément de réponse peut être?
A mettre dans la feuille MII
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not (Intersect(Target, Range("C1:E17")) Is Nothing) Then
modif = True
Range("C1:E17").Select 'taille du tableau à adapter
Dim nom As String
nom = InputBox("quel est le nom du fichier?", "Nom")
ChDir "C:\Users\asus\Desktop" 'chemin à adapter
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\asus\Desktop\" & nom, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("A1").Select
End If
End Sub
Par contre, l'enregistrement se fera à chaque fois qu'une cellule est modifié ce qui peut être énervant à la longue...
pour aller dans l'onglet 2, il suffit de creer un bouton avec la macro suivante
Sub Bouton1_Cliquer()
Sheets("MII").Select
Range("A1").Select
End Sub
Dis moi si ça te convient. Je te joins le fichier
cordialement