Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Invité de passage
    Inscrit en
    février 2010
    Messages
    13
    Détails du profil
    Informations personnelles :
    Âge : 26

    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 : 26

    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 :
    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 :
    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 : 26

    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 :
    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.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •