1. #1
    Invité de passage
    Inscrit en
    février 2010
    Messages
    13
    Détails du profil
    Informations personnelles :
    Âge : 27

    Informations forums :
    Inscription : février 2010
    Messages : 13
    Points : 4
    Points
    4

    Par défaut Macro d'exportation en PDF

    bonjour,

    J'aimerais exporter un tableau QlikView, en document PDF via une Macro.
    Sauf que je n'y connais rien au Macro. Si quelqu'un pouvais me donner un tuto sur les Macros, je suis preneur, ou si quelqu'un qui a du temps, voudrais bien me donnez les syntaxes pour cette Macro, je lui en serais reconnaissant.
    D'avance Merci

  2. #2
    Invité de passage
    Inscrit en
    février 2010
    Messages
    13
    Détails du profil
    Informations personnelles :
    Âge : 27

    Informations forums :
    Inscription : février 2010
    Messages : 13
    Points : 4
    Points
    4

    Par défaut

    Bonjour,

    Après quelque recherche avancé, j'ai réussi a me faire un petit bout de code que voici:

    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
    sub ExportInfic
    	ActiveDocument.ClearAll
     
    	DocSheet = ActiveDocument.Sheets("JOBS").Activate
    	Objects = ActiveDocument.ActiveSheet.GetSheetObjects
     
    	For i = lBound(Objects) To uBound(Objects)
    		set obj = Objects(i)
     
    		temp = ActiveDocument.name
    		tt = mid(temp,InStrRev(temp,"\")+1) 
    		tt = left(tt,InStrRev(tt,".")-1)
     
    		obj.exportex "\\s4i600\Qlikview\test\"&tt&".bmp",2
     
    	next
    end sub
    Mais j'ai un problème a la ligne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    obj.exportex "\\s4i600\Qlikview\test\"&tt&".bmp",2
    quand je le test il me dit :
    Cet objet ne gère pas cette propriété ou cette méthode: 'obj.exportex'

    quelqu'un aurais une solution?

  3. #3
    Invité de passage
    Inscrit en
    février 2010
    Messages
    13
    Détails du profil
    Informations personnelles :
    Âge : 27

    Informations forums :
    Inscription : février 2010
    Messages : 13
    Points : 4
    Points
    4

    Par défaut

    Bon et bien j'ai trouvé la solution.

    Pour les personnes en ayant besoin, la voici.

    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
    sub ExportInfic
     
    ActiveDocument.ClearAll
     
    DocSheet = ActiveDocument.Sheets("JOBS").Activate
     
     
     
    ActiveDocument.RecallDocBookmark "Etat Silos"
     
     
    set obj = ActiveDocument.GetSheetObject("CH30")
     
    temp = ActiveDocument.name
    tt = mid(temp,InStrRev(temp,"\")+1)
    tt = left(tt,InStrRev(tt,".")-1)
     
    obj.exportex "\\s4i600\Qlikview\Exemple\"&tt&".bmp",2
     
     
    end sub

+ Répondre à la discussion
Cette discussion est résolue.

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