Enregistrement pdf particulier

Bonjour Bonjour,

avant toute explication je joint un fichier pour test

J'ai donc un fichier excel, et je souhaiterai avoir une macro qui me permet,

• d'aller sur l'onglet 2 (ici MII)
• Si il y a eu des modification de l'onglet qu'il m'enregistre le tableau de cette onglet en pdf

la macro peut être une private sub specialement pour l'onglet ou juste avant la fermeture/sauvegarde du fichier.

tant quel s'effectue quand l'onglet 2 ou le tableau de l'onglet 2 est modifié

Cordialement

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

Bonjour,

Déjà merci pour ta réponse,

C'est pas mal comme système, après si je dois le faire à chaque fois qu'une cellule est modifié c'est gênant, il faudrait que ca fasse la même chose mais une fois que je ferme le fichier .

Quand je ferme le fichier excel,

Go to Sheets MII

si les cellules sont modifiées alors saved to pdf

Merci

une idée pourquoi pas, prendre l'onglet 2 Quand j'ouvre l'onglet le tableau = A

avant que je ferme le fichier le tableau du même onglet =B

Si A = B saved to pdf

end si

je dirai même plus quand j'ouvre le fichier

aller sur l'onglet MII

Scanner les information du tableau

cest information = A.

A la fermeture du fichier

scanner le tableau

les informations du tableau = B

SI A = B alors saved to pdf

end if

up