Discussion :

[maxgelli]

Bonjour,

je maitrise bien Excel et toutes ses formules mais je suis complètement novice du langage VBA mais je voudrais me servir de ses fonctionnalités afin d'optimiser certaines taches administratives répétitives et chronophages de ma consultation...
Par exemple, l'impression de certains documents
Voici mes questions:
J'ai une fiche dans la Feuille 1 intégrant plusieurs case à cocher correspondant à des documents dans les Feuilles 2,3,4,...
je voudrais:
1. créer une macro capable d'imprimer en papier tous les documents cochés en double copie dont une 2ème copie intégrant la notion de "Duplicata" que j'ai vu pouvoir effacer via les propriétés des boutons.
2. même chose mais en PDF pour chaque Feuille en utilisant le Nom (indiqué dans une case de la fiche suivi du nom de la Feuille)
3. créer un listing progressif à partir des certains données intégrées dans la fiche comme nom, prenom etc dans une autre feuille appelé "Listing"

J'ai crée les 3 boutons correspondants (Impression ordo, Impression PDF, Enregistrement) en base de la Fiche mais je n'arrive pas à avancer.

J'ai cherché sur le forum mais sans détecter des réponses à mon problème. Je me remets donc à votre disponibilité, bien évidemment j'ai le fichier Excel simplifié mais en accord avec la politique du forum je ne le mets pas d'emblée...

Merci
Max

[Alex020181]

Bonjour,

On peut tout à fait créer/lire/modifier des données et lancer des impressions vers une imprimante et vers une conversion PDF en fonction de critères définis.
Donc dans votre cas l'idée de base si j'ai bien compris ce serait de parcourir toutes les cases à cocher et de lancer des impressions papier et de convertir en PDF.

OK sur le principe mais pour aller plus loin un fichier exemple serait profitable pour ne pas faire de supposition de code qui ne conviendrait pas.

[maxgelli]

Super merci!

En PJ le fichier test anonymisé.
J'ai essayé avec la fonction "If" sur tous les boutons mais sans succès

La difficulté supplémentaire est qu'il faudrait lancer l'impression en double exemplaire avec la notion "DUPLICATA" sur le 2ème exemplaire.
Dans le fichier seulement la Macro "IMPRESSION" qui permet cette fonction est conservée

Test Examen VBA.xls

[Philippe Tulliez]

Bonjour,
Il y a beaucoup de questions dans votre demande. Voici une piste pour l'une d'elle

dont une 2ème copie intégrant la notion de "Duplicata"

Dans l'exemple ci-dessous le texte "Duplicata" se trouve dans une zone texte nommée Tampon et donc la feuille dans laquelle elle se trouve est imprimée deux fois et le texte apparaît lors de l'impression du second exemplaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub t()
  Dim shp As Shape
  Dim Ex As Byte
  Set shp = Me.Shapes("Tampon") 
 For Ex = 1 To 2
     shp.Visible = Ex = 2
    Me.PrintOut
  Next
  Set shp = Nothing
End Sub

[Qwazerty]

Salut

Une autre piste

Les cases à cocher utilisées peuvent être liées à une cellule de la feuille, qui se mettra à jour automatiquement lors de la modification de l'état de la case à cocher (ou de la cellule liée d'ailleurs).

Pour se faire, il faut faire un clique droit sur la case à cocher, puis "Format de Contrôle", onglet contrôle.

++
Qwaz

[Qwazerty]

Salut

Pour gérer les impressions, il est possible de faire quelques choses comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub test()
IMPRESSION Feuil8
End Sub
 
Sub IMPRESSION(FeuilleAImprimer As Worksheet, Optional AvecDuplicata As Boolean = True)
Dim DuplicataShape As Shape
 
    'On essai de pointer le shape duplicata
    On Error Resume Next
        Set DuplicataShape = FeuilleAImprimer.Shapes("WordArt 1")
    On Error GoTo 0
 
    'On empéche l'impression de la mention duplicata
    If Not DuplicataShape Is Nothing Then DuplicataShape.ControlFormat.PrintObject = False
 
    'On lance l'impression d'un exemplaire
    FeuilleAImprimer.PrintOut Copies:=1
 
    'On regarde si le second ex est demandé et si la mention duplicata existe
    If AvecDuplicata And Not DuplicataShape Is Nothing Then
        'On active l'impression du wordart
        DuplicataShape.ControlFormat.PrintObject = True
        'On lance l'impression
        FeuilleAImprimer.PrintOut Copies:=1
    End If
 
End Sub

Avec un paramètre CreatePDF, tu peux modifier un peu pour remplacer l'impression par la création d'un PDF.


Sinon Sans aucune macro, sur chaque feuille avoir le document à remplir et à la suite le même document avec la mention "Duplicata". Cette deuxième version contiendrait des lien vers celle du haut pour que les champs se remplissent tout seul.
Il suffit ensuite de lancer l'impression de la page1 -> version original, de la page2 -> version Duplicata, deux deux pas pour tout avoir.
Visuellement ça donnerait ça


++
Qwaz