Macro impression

bonjour à tous

je souhaite créer une macro "impression" sur excel qui me permettrait d'imprimer des feuilles choisies dans un classeur.

J'ai joint un fichier excel c'est tout expliquer et je pense que ce sera plus clair que de me lancer dans une grande explication !!!!

Merci d'avance

Elise

Bonjour,

Essaie le code ci-dessous....

Attention, tu auras une erreur, si tu ne corriges pas la faute d'orthographe dans le nom de l'onglet "Pésentation"

Sub imprime()
Dim Shp As Shape 'variable Shape
Dim Sh As Worksheet 'variable "Feuille"
Application.ScreenUpdating = False 'empêche le raffraichissement à l'écran
Sheets("Présentation").Select 'on sélectionne l'onglet "Présentation"
With Sheets("CHOIX") 'on travaille sur l'onglet "CHOIX"
    For Each Shp In .Shapes 'pour tous les objets de cet onglet
        If Shp.Name Like "Check Box*" Then 'si son nom commence par "Check Box"
            If Shp.OLEFormat.Object.Value = 1 Then 'si ce check box est coché
                Sheets(Trim(.Cells(Shp.OLEFormat.Object.TopLeftCell.Row, 3))).Select False
                    'on ajoute la feuille correspondante à la sélection de feuille,
                    'sans déselectionner les autres (argument False)
                    'le calcul du nom de l'onglet est fait à partir de la ligne
                    'comprenant la case à cocher, et de la colonne C
                    'le Trim, pour enlever les espaces avant et après
            End If
        End If
    Next Shp
    ActiveWindow.SelectedSheets.PrintPreview 'aperçu avant impression de tous
                    'les onglets sélectionnées
                    'on peut remplacer par PrintOut pour imprimer
    .Select 'on revient sur l'onglet "CHOIX"
End With
End Sub

Bon courage

Merci pour le code mais lorsque j'ai voulu l'exécuter un message d'erreur c'est affiché [erreur de complilation : Déclaration existante dans la portée en cours] et sincerement je ne vois pas du tout à quoi cela correspond.

Encore merci pour avoir plancher sur mon sujet

Elise

Bonjour,

Ce type d'erreur peut arriver lorsque tu donnes une valeur à une variable, avant de la déclarer, par exemple...

Peux-tu mettre tout le code que tu utilises? (dans tous les modules, que ce soit de feuilles, comme "standard"), et mieux, joindre le fichier que tu utilises, sans les données confidentielles, mais qui provoque cette erreur?

Bon courage