Discussion :

[merlubreizh]

Bonjour

J'ai réalisé une application sous Visual Studio qui permet de générer un fichier Excel contenant les résultats d'une requête SQL. Je souhaite offrir à l'utilisateur la possibilité d'enregistrer ce fichier. J'ai donc créé un contrôle de type SaveFileDialog.

Code :

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

1
2
3
4
5
6
Dim SaveFileDialogClient As New SaveFileDialog
SaveFileDialogClient.InitialDirectory = System.IO.Directory.GetCurrentDirectory

// Remplissage du fichier Excel
SaveFileDialogClient.RestoreDirectory = True
SaveFileDialogClient.ShowDialog()

A l'exécution de mon projet, le contrôle SaveFileDialog s'affiche à l'écran, mais en arrière plan, soit derrière le classeur Excel. Ce qui fait que l'utilisateur est obligé de réduire ou de fermer le classeur pour voir le SaveFileDialog. J'aimerais donc que celui-ci puisse s'afficher au premier plan de l'écran, devant le fichier Excel. Y a-t-il un moyen de faire cela ? Je précise que mon application est en mode console, et que pour des raisons de simplicité, il m'est difficile de changer. Merci d'avance pour votre aide

[merlubreizh]

Je rajoute mon code pour l'enregistrement du fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
SaveFileDialogClient.Filter = "Fichier Excel (*.xls)|*.xls"            
SaveFileDialogClient.FilterIndex = 2
SaveFileDialogClient.RestoreDirectory = True

If SaveFileDialogClient.ShowDialog() = DialogResult.OK Then
    chemin = SaveFileDialogClient.FileName
End If
            
AppExcelClient.ActiveWorkbook.Worksheets("Feuil1").Name = "echeancier_clients"            
AppExcelClient.ActiveWorkbook.SaveAs(chemin)

Ca marche plutôt bien, mais l'histoire du positionnement n'est toujours pas résolue

[merlubreizh]

Bon en fait, j'ai un autre problème qui est bien plus important car plus bloquant. Lorsque je crée un exécutable de mon projet (en mode console) et que je le lance, je suis bloqué. Le système m'affiche un message d'erreur :

Une exception non gérée de type System.Runtime.InteropServices.COMException s'est produite dans EcheanciersClientFournisseur.exe. L'exception COMException n'a pas été gérée. (Exception de HRESULT : 0x80030002 (STG_E_FILENOTFOUND)).

Je ne sais pas du tout comment faire. J'ai cru comprendre en parcourant le net qu'il s'agirait des références de type COM que je rajoute à mon projet, mais je ne sais comment y remédier. Pourriez-vous me débloquer svp ?
D'avance merci

[ostenhard]

Bonjour,

Le problème se produit sur ta machine de dev ou une autre machine ?

[merlubreizh]

Bonjour et merci pour ta réponse. Le problème se produit sur ma machine de dev.

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
Dim AppExcelClient As Microsoft.Office.Interop.Excel.Application 'Application Excel
Dim WorkBookClient As Microsoft.Office.Interop.Excel.Workbook 'Classeur Excel
Dim WorkSheetClient As Microsoft.Office.Interop.Excel.Worksheet 'Feuille de travail Excel
Dim iColonnesClient, iLignesClient As Integer
Dim rst As New ADODB.Recordset
Dim ConnectClient As New ADODB.Connection
Dim StSqlClient As String = "SELECT DateE, RefDoc, E.Code,E.Compte, DateP, E.NumEcr, Libelle, MontantDev, MontantRglDev, MontantInteret, ProvApp, ProvFic, NumEch, TypeTiers, Ecr.Code FROM Echeance E, EcrAna Ecr WHERE E.NumEcr = Ecr.NumEcr AND E.TypeTiers = 'C' ORDER BY DateE,RefDoc"
Dim SaveFileDialogClient As New SaveFileDialog
Dim StCheminClient As String = ""
Dim oComNothingClient As Object
 
SaveFileDialogClient.InitialDirectory = System.IO.Directory.GetCurrentDirectory
MsgBox("ici")
 
'Initialisation des variables
iColonnesClient = 1
iLignesClient = 1
ConnectClient.ConnectionString = "File Name=finance.udl"
ConnectClient.CursorLocation = 2
MsgBox("là")
 
'Try
 
'Ouverture de la connexion à la base de données
ConnectClient.Open()

Quand je lance mon application, il m'affiche bien mes deux boites de dialogue. Par contre, ça plante au niveau de l'ouverture de la connexion à la base de données

[merlubreizh]

Ne serait-ce pas un problème de droits d'accès sur Access par hasard ?