Création de fiche d'astreinte automatique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
Chucky
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 10 mars 2018
Version d'Excel : 2010

Message par Chucky » 10 mars 2018, 13:19

Astreinte fichier projet modele forum.xlsm
(269.97 Kio) Téléchargé 42 fois
Bonjour à tous ! :)
Je me rapproche vers vous car je suis bloqué sur l'écrire d'une macro excel dont le but est d'imprimer automatiquement des fiches d'astreintes préalablement renseignées.
Etape 1 : La personne renseigne les noms, prénoms et heures dans une première feuille
Etape 2: Les données renseignées sont reprises sur les fiches d'astreintes : Noms, date, heures. Petit détail: Les feuilles contenant ces astreintes sont dissimulés pour plus de "propreté" sur le fichier excel
Etape 3: La personne lance une macro pour imprimer les fiches.

J'ai rédigé à partir de mes très maigres connaissances en VBA et ce que le net a pu m'apprendre et voilà ce que ça donne:
Private Sub Workbook_Open()

ActiveWorkbook.Worksheets("Feuil8", "Feuil10", "Feuil11", "Feuil12", "Feuil13", "Feuil14", "Feuil15", "Feuil16", "Feuil17", "Feuil8").Activate

End Sub
Sub Impressiondimanche()
'
' choix de l'impression réseau
'
' premier fenêtre de dialogue.
msg = "Choisir votre imprimante réseau ? Cliquer sur OUI "
'Définit les boutons.
Style = vbYesNo + vbDefaultButton1
' Définit les titres.
Title = "imprimer"
Réponse = MsgBox(msg, Style, Title)
' Vous avez choisi le bouton « Oui ».
If Réponse = vbYes Then

Application.Dialogs(xlDialogPrinterSetup).Show '<==== fenêtre de dialogue choix imprimante, si cliqué sur annuler,  l'impression de fera sur l'imprimante par défaut!


[color=#FF0000]With Sheets(Array("Feuil8", "Feuil10", "Feuil11", "Feuil12", "Feuil13", "Feuil14", "Feuil15", "Feuil16", "Feuil17", "Feuil8"))[/color]
  Sheets("Feuil10").Visible = True
  Sheets("Feuil11").Visible = True
  Sheets("Feuil12").Visible = True
  Sheets("Feuil13").Visible = True
  Sheets("Feuil14").Visible = True
  Sheets("Feuil15").Visible = True
  Sheets("Feuil16").Visible = True
  Sheets("Feuil17").Visible = True
  Sheets("Feuil18").Visible = True
  Sheets("Feuil8").Visible = True
  .Select
  .PrintOut
  Sheets("Feuil10").Visible = False
  Sheets("Feuil11").Visible = False
  Sheets("Feuil12").Visible = False
  Sheets("Feuil13").Visible = False
  Sheets("Feuil14").Visible = False
  Sheets("Feuil15").Visible = False
  Sheets("Feuil16").Visible = False
  Sheets("Feuil17").Visible = False
  Sheets("Feuil18").Visible = False
  Sheets("Feuil8").Visible = False
End With

 'confirmation impression
msg = "N'oubliez pas vos documents dans l'imprimante !"

Style = vbOKOnly
Réponse = MsgBox(msg, Style, Title)
Else
Exit Sub 'Fin du traitement
' Vous avez choisi le bouton « non ».
'confirmation annulation impression actif uniquement sur la première msgbox

msg = "impression réseau annuler !"

Style = vbOKOnly
Réponse = MsgBox(msg, Style, Title)
End If

End Sub

Malheureusement, lorsque je lance la macro, celle-ci m'indique qu'il y a une erreur:
Erreur d'execution '9': L'indice n'appartient pas à la sélection pour la ligne mise en rouge.
Je ne comprend pas du tout ce qui ne va pas. J'ai bien déclaré mes variables au début de ma macro et lors de l'appel de l'impression :lole:
Auriez-vous une idée ?
Merci d'avance !!
Modifié en dernier par Chucky le 10 mars 2018, 14:47, modifié 1 fois.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'151
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 10 mars 2018, 14:29

Bonjour,

il manque probablement une feuille, vérifie que toutes les feuilles mentionnées dans l'instruction with existent bien. Je soupçonne que la feuille feuil8 n'existe pas dans ton classeur.
C
Chucky
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 10 mars 2018
Version d'Excel : 2010

Message par Chucky » 10 mars 2018, 14:45

Astreinte fichier projet modele forum.xlsm
(269.97 Kio) Téléchargé 33 fois
h2so4 a écrit :
10 mars 2018, 14:29
Bonjour,

il manque probablement une feuille, vérifie que toutes les feuilles mentionnées dans l'instruction with existent bien. Je soupçonne que la feuille feuil8 n'existe pas dans ton classeur.
Malheureusement la feuille 8 existe bien :( Après avoir contrôlé, j'ai bien 10 feuilles à imprimer et les noms concordent bien (contrôlé avec Microsoft Excel Objets pour le nommage).
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'151
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 10 mars 2018, 18:33

Bonjour,

les noms de feuille qui tu as mis n'existent pas, le nom de chaque feuille est le nom de l'onglet. par exemple "fiche d'astreinte encadrement"
a
archer
Membre impliqué
Membre impliqué
Messages : 1'258
Appréciations reçues : 102
Inscrit le : 8 avril 2017
Version d'Excel : 2010

Message par archer » 10 mars 2018, 21:44

Bonjour
déjà on fait une édition PDF
et faire aussi le format des page
et mettre les bon nom des onglet ou les codename
A+
Maurice
a
archer
Membre impliqué
Membre impliqué
Messages : 1'258
Appréciations reçues : 102
Inscrit le : 8 avril 2017
Version d'Excel : 2010

Message par archer » 11 mars 2018, 11:46

Bonjour
j'ais pitié voila en retour ton fichier modifier
a aussi évite de laisser ton code CP
A+
Maurice
Astreinte fichier projet modele1.xlsm
(282.22 Kio) Téléchargé 85 fois
C
Chucky
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 10 mars 2018
Version d'Excel : 2010

Message par Chucky » 11 mars 2018, 22:47

Bonsoir à vous !
Merci pour les indications, à la base j'avais bien mis le nom exact des onglets mais ça ne marchait pas non plus...
archer a écrit :
11 mars 2018, 11:46
Bonjour
j'ais pitié voila en retour ton fichier modifier
a aussi évite de laisser ton code CP
A+
Maurice

Astreinte fichier projet modele1.xlsm
Je te remercie de cette pitié car le fichier est parfaitement fonctionnel ! Je continue à comprendre toutes ses fonctions mais je vais y arriver ! Chapeau !
Pour le CP, je n'avais pas fait attention, shame on me...
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message