Discussion :

[babar03]

Bonjour,
Depuis quelques jours, je tente de transferer des données acquises par un logiciel en VB.NET 2008 (Visual Studio Express 2008) vers un fichier (à créer) Excel. Je penssais avoir reussi jusqu'à l'installation de Excel 2007 necessaire à mon entreprise. Depuis ce moment, l'enregistrement s'effectue normalement mais une fois que je desire reouvrir mon fichier Excel, enregistré en xls, un message s'affiche et ne me permet plus de voir les données inscrites dans mon fichier. Le message est le suivant :

Le format que vous tentez d'ouvrir,"fichier.xls", est différent de celui spécifié par l'extension de fichier. Assurez-vous que le fichier n'est pas endommagé et qu'il provient d'une source fiable avant de l'ouvrir. Souhaitez-vous ouvrir le fichier?

Arrivé la, si je click sur non rien ne se passe, et si je click sur oui, un classeur vide s'affiche.

Je precise que je suis utra debutant en programmation.
Merci de m'aider.
Babar03

[sebnantes]

Salut ^^

Tu pourrais mettre le code que tu as pour générer ton fichier Excel ? C'est peut-être juste une petite erreur

[babar03]

Je te remerci de t'occupé de mon cas^^.
Voici le code de ma fonction sauvegarder.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Sauvegarde() 

        spy = True   'espion pour savoir si une sauvegarde à été effectuée

         Dim Nom As String

        SaveFileDialog1.Filter = "Feuille Microsoft Office Excel (*.xls)| *.xls"

        Nom = "essai en cours"

        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then

            NomFichier = SaveFileDialog1.FileName
            NomFichier = NomFichier
            chemain = SaveFileDialog1.InitialDirectory
            appExcel = CType(CreateObject("Excel.Application"), Excel.Application)

'Ouverture d'un fichier pour creer celui-ci si il n'existe pas (dans le cas réel, le fichier n'existe jamais)

            FileOpen(3, chemain & NomFichier, OpenMode.Append)
            FileClose(3)

            wbExcel = appExcel.Workbooks.Open(chemain & NomFichier)
            wsExcel = CType(wbExcel.Worksheets(1), Worksheet)
            wbExcel = appExcel.ActiveWorkbook
            wsExcel = CType(wbExcel.ActiveSheet, Worksheet)

'Remplis la premiere colonne avec des valeurs (juste pour le test) contenues dans une listbox

            For i As Integer = 0 To 100
                WriteToExcel(wsExcel, i + 1, 1, LstBox1.Items(i).ToString)
            Next

            'ferme excel et nettoie l'instance

            wbExcel.Saved = True  'pour éviter un message demandant de sauvegarder            
            wbExcel = Nothing
            wsExcel = Nothing
            appExcel.Application.Quit()
            appExcel = Nothing

        End If

[sebnantes]

Tu pourrais le mettre en les Balises [ code][/ code] c'est le symbôle #, comme tu l'as mis c'est un peu illisible ^^

[babar03]

voila j'espere que cela sera plus lisible comme sa. Désolé j'ai un pc avec VB mais sans internet et un autre pc avec internet mais sans VB.
Donc je suis obligé de te faire un texte de cette forme.

[sebnantes]

Il y a plein de choses que je ne comprend pas dans ton code mais bon pour bien commencé il vaut mieux faire cela :

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
26
27
28
29
30
31
32
33
 
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
Dim exRange As Excel.Range
 
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
 
            NomFichier = SaveFileDialog1.FileName
            Try
                'Ouverture de l'application
                appExcel = CreateObject("Excel.Application")
                'Ouverture d'un fichier
                wbExcel = appExcel.Workbooks.Open(NomFichier)
                'Ouverture de la première feuille du classeur
                wsExcel = wbExcel.ActiveSheet
 
                'Ton test
                For i = 0 to 100
                    exRange(wsExcel.Cells(i, 1)) 'Adresse de cellule à remplir
                    exRange.value = LstBox1.Items(i).ToString
                Next
 
                wbExcel.Saved = true
 
            Catch ex As COMException
                  MessageBox.Show(ex.ToString())
            Finally
               wbExcel = Nothing
               appExcel.Quit()
               appExcel = Nothing
            End Try
End If