Discussion :

[zakake]

Bonjour,

Merci de ta réponse, c'est top !

Je sais donc extraire les données voulues depuis Qlikview vers un nouveau classeur Excel, appelons-le "ExtractDuJour.xlsx" qui prend cette forme :



Je dois maintenant reporter chacune de ces valeurs dans une cellule spécifique d'un classeur qui est créé quotidiennement.

Ex : Si le classeur vers lequel je dois exporter mes données s'appellent "StatsDuJour.xlsx" :
- je copie la valeur 101 dans la cellule D14 du classeur "StatsDuJour.xlsx" ;
- je copie la valeur 394 dans la cellule D5 du classeur "StatsDuJour.xlsx" ;
- je copie la valeur 2187 dans la cellule D9 du classeur "StatsDuJour.xlsx" ;
- etc.

Donc plusieurs choix s'offrent à moi pour y parvenir :
- soit j'écris un programme en VBA dans le classeur "StatsDuJour.xlsm" qui va chercher les données extraites dans le classeur "ExtractDuJour.xlsx" ;
- soit je fais tout à partir du script VBS, dans ce cas, il faudrait modifier le code de sorte que les données extraites de QV soient directement collées dans les cellules du classeur "StatsDuJour.xlsx" sans passer par le classeur intermédiaire "ExtractDuJour.xlsx".

J'espère être compréhensible dans mes explications...

D'après moi, tout faire à partir d'un seul et unique script VBS est plus avantageux, puisque passer par des intermédiaires n'est jamais très bon, et que ça nécessite aussi de stocker tous les fichiers "ExtractDuJour" sans modifier leurs chemins d'accès ni leurs noms.

Mais je voudrais aussi avoir l'avis d'un "expert" pour savoir vers quelle méthode me diriger, notamment en termes de facilité de codage, de fiabilité, d'optimisation, de temps d'exécution, d'utilisation de mémoire, etc.

[PhunkyBob]

Personnellement, je ferais tout dans le VBS, en faisant en sorte qu'il ouvre directement le fichier que je souhaite remplir.

[zakake]

Bonjour,

Je te remercie, j'ai suivi ton avis et j'ai réussi à faire ce que je voulais, directement donc depuis mon script VBS.

Par contre, je fais face à de nouvelles difficultés : il peut arriver que, pour certaines sélections de dates, le chart sous QV duquel je dois extraire mes valeurs ne renvoie aucune données et affiche uniquement le message "Error" en son centre.

J'aimerais donc réaliser un test pour savoir si le chart contient des données et si non, renseigner la valeur 0 dans la cellule du fichier Excel à compléter. Un peu comme le code suivant, mais ici la condition de ma boucle if n'est pas bonne.

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
Set ExcelApp = CreateObject("Excel.Application")										
ExcelApp.Visible = True																	
Set Workbook = ExcelApp.Workbooks.open("chemin d'accès.xlsx")
 
Set myApp = CreateObject("QlikTech.QlikView")											
Set myDoc = myApp.OpenDoc("chemins d'accès.qvw")
Set mySheet = myDoc.GetSheet("Stats")
 
myDoc.Fields("DateJour").Select "01/12/2016"
 
myDoc.Fields("Equipe.intitule").Select("Spurs")
 
if not (mySheet.SheetObjects("CH99") is Empty) then
   Set obj = myDoc.GetSheetObject("CH99")
   objCell = obj.GetCell(1,20)
   Workbook.Worksheets(1).Cells(8,10) = objCell.Text
else 
   Workbook.Worksheets(1).Cells(8,10) = "0"

[PhunkyBob]

Ce n'est pas parce qu'il n'y a pas de valeur dans le graphique que l'objet est "Empty".

Que se passe-t-il si vous faites votre test directement sur

Code :

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

obj.GetCell(1,20)

?

[zakake]

Quelque chose comme ça du coup :

Code :

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

1
2
3
4
5
6
Set obj = myDoc.GetSheetObject("CH99")
 
if not (obj.GetCell(1,20) is Empty) then
   Workbook.Worksheets(1).Cells(8,10) = obj.GetCell(1,20).Text
else 
   Workbook.Worksheets(1).Cells(8,10) = "0"

Ne fonctionne pas et provoque une erreur non spécifiée.

[zakake]

Pour ceux qui seraient intéressés :

J'ai utilisé la commande suivante :

Code :

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

On Error Resume Next

Elle permet de poursuivre l'exécution du script même si une erreur survient.