IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Sommaire sur fichier dynamique


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    161
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 161
    Par défaut Sommaire sur fichier dynamique
    Bonjour,

    Je suis un peu coincé.
    J'ai un fichier excel que je génère dynamiquement et je voudrais intégrer un sommaire.

    Excel arrive bien à gérer et afficher le nombre de page quand je le transforme en pdf.
    Il y a t-il un moyen pour afficher la page qui correspond à un titre ?

    Cordialement,

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    161
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 161
    Par défaut
    Je n'arrive vraiment pas à trouver une solution qui me permettrais de générer un sommaire avec les numéros de page.

    J'ai réussi à trouver et à comprendre à peu prêt comment il fonctionne.

    Même si je pense pouvoir le modifier pour pour décomposer le sommaire en plusieurs pages.
    Je n'arrive pas à trouver une solution pour quitter la print preview automatiquement

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     ActiveWindow.SelectedSheets.PrintPreview
    Avez vous une solution ?

    Merci de votre aide

    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
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    Sub CreateTableOfContents()
        ' Determine if there is already a Table of Contents
        ' Assume it is there, and if it is not, it will raise an error
        ' if the Err system variable is > 0, you know the sheet is not there
        'sommaireEco1
        Dim WST As Worksheet
        On Error Resume Next
        Set WST = Worksheets("TOC")
        If Not Err = 0 Then
            ' The Table of contents doesn't exist. Add it
            Set WST = Worksheets.Add(before:=Worksheets(1))
            WST.Name = "TOC"
        End If
        On Error GoTo 0
     
        ' Set up the table of contents page
        WST.[A2] = "Table of Contents"
        With WST.[a6]
            .CurrentRegion.Clear
            .Value = "Subject"
        End With
        WST.[B6] = "Page(s)"
        WST.Range("A1:B1").ColumnWidth = Array(36, 12)
        TOCRow = 7
        PageCount = 0
     
        ' Do a print preview on all sheets so Excel calcs page breaks
        ' The user must manually close the PrintPreview window
        ActiveWindow.SelectedSheets.PrintPreview
        ' Loop through each sheet, collecting TOC information
        For Each S In Worksheets
            If S.Visible = -1 Then
                S.Select
                ThisName = ActiveSheet.Name
                HPages = ActiveSheet.HPageBreaks.Count + 1
                VPages = ActiveSheet.VPageBreaks.Count + 1
                ThisPages = HPages * VPages
     
                ' Enter info about this sheet on TOC
                Sheets("TOC").Select
                Range("A" & TOCRow).Value = ThisName
                Range("B" & TOCRow).NumberFormat = "@"
                If ThisPages = 1 Then
                    Range("B" & TOCRow).Value = PageCount + 1 & " "
                Else
                    Range("B" & TOCRow).Value = PageCount + 1 & " - " & PageCount + ThisPages
                End If
            PageCount = PageCount + ThisPages
            TOCRow = TOCRow + 1
            End If
        Next S
    End Sub

Discussions similaires

  1. allocation dynamique et sauvegarde sur fichier
    Par elmcherqui dans le forum C++
    Réponses: 6
    Dernier message: 17/07/2009, 14h29
  2. Réponses: 13
    Dernier message: 06/11/2008, 09h30
  3. [z/OS] Accès fichier dynamique sur ZOS
    Par zukir dans le forum Cobol
    Réponses: 3
    Dernier message: 20/06/2007, 17h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo