Ouvrir un fichier Excel en VB

[#1]

Bonjour à tous,

Je débute dans l'utilisation de QlikView (Version 11.20).

Je cherche à envoyer un tableau de données ("CH418") vers un fichier Excel existant, à l'aide d'un bouton cliquable. Pour cela, j'ai trouvé sur internet le programme VB suivant :

1. Sub Test 
2.    ExcelAppend "h:\test.xlsx", "CH418" 
3. End Sub 

1. Sub ExcelAppend(strExcelAppenFile, strExelAppendObjectID) 
2.    ' Create an instance of Excel 
3.    SET objExcelApp = CREATEOBJECT("Excel.Application") 
5.    ' Open workbook 
6.    WITH objExcelApp 
7.       .DefaultSaveFormat = xlWorkbookNormal 
8.       .DisplayAlerts = FALSE 
9.       .Workbooks.Open strExcelAppenFile 
10.       .DisplayFullScreen = FALSE 
11.       .Visible = FALSE 
12.    END WITH 
14.    ' Set worksheet 
15.    SET objExcelSheet = objExcelApp.Worksheets(1) 
17.    ' Set Excel used range 
18.    SET objExcelRange = objExcelSheet.Range("A65535").End(-4162) 
19.    ' Last used row in column A 
20.    intExcelLastRow = objExcelRange.Row 
21.    ' Set object to append from 
22.    SET objObjectFrom = ActiveDocument.GetSheetObject(strExelAppendObjectID) 
23.    ' Loop all rows of the object except first header row 
24.    FOR intObjectRow = 1 To objObjectFrom.GetRowCount - 1 
25.       ' Loop all columns of the object 
26.       FOR intObjectColumn = 0 To objObjectFrom.GetColumnCount - 1 
27.          ' Get object data 
28.          SET objCell = objObjectFrom.GetCell(intObjectRow, intObjectColumn) 
29.          ' Add that data to Excel cell 
30.          objExcelSheet.Cells(intObjectRow + intExcelLastRow, intObjectColumn + 1) = objCell.Text 
31.       NEXT 
32.    NEXT 
34.    ' Save and quit 
35.    objExcelSheet.SaveAs strExcelAppenFile 
36.    objExcelApp.Application.Quit 
37.    SET objExcelSheet = NOTHING       
38.    SET objExcelApp = NOTHING 
39. END SUB    

J'utilise ce code de la façon suivante :

1. Création du bouton
2. Propriétés > Actions > Exécuter une macro > Nom de la macro : Test
3. Editer la macro : je colle le code précédent, et clique sur Appliquer, et derme la fenêtre "Editer le module"
4. Je clique sur le bouton pour lancer la macro
5. En bas à gauche de l'écran, "Macro exécutée..." apparaît
6. La fenêtre "Editer le module" réapparaît

A cette étape, j'ouvre le fichier test.xlsx pour contrôler que la procédure a bien fonctionné, mais le fichier n'est pas rempli.

Au cours de cette procédure, Qlik ne m'alerte pas d'un quelconque problème. Pourtant, je n'obtiens pas le résultat souhaité.

Pourriez-vous svp m'indiquer ce qui ne fonctionne pas dans ma démarche ?

Merci pour votre aide !

[sfatoux72]

‌tu peux également en mettre dans le WITH pour vraiment trouver la ligne qui plante.

Mais je pense que c'est : .Workbooks.Open ...

C'est la seul action, les autres lignes ne sont que des settings

Mets les FALSE à TRUE temporairemen, tu verras s'afficher Excel ou le message d'erreur d'Excel : comme par exemple "File not found"

[#3]

Sébastien,

J'ai testé : c'est bien ".Workbooks.Open strExcelAppenFile " qui pose problème !

Pourtant le fichier est bien enregistré (et au bon endroit !).

En passant de false à true le .DisplayAlerts , il ne se passe rien de spécial (pas d'alerte).

On progresse, merci beaucoup pour votre aide !

[sfatoux72 · Accepted solution]

Mais si ton fichier existe, le problème vient du H: , si c'est lecteur reseau comme par exemple myServeur (H:) utilise \\myServeur\test.xlsx et ca devrait marcher

[#5]

Ca fonctionne !

Merci beaucoup pour votre aide !!!

[sfatoux72]

Il fait mettre la question comme résolue pour aider les autres membres de la communauté

[#7]

C'est fait !

Merci encore pour votre aide