Problème avec Excel

Version imprimable

09/03/2010, 12h00
babar03

Problème avec Excel

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 :

Citation:

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
09/03/2010, 12h13
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 :)

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

Code:

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

09/03/2010, 13h42
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 ^^
09/03/2010, 13h49
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.

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:

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

09/03/2010, 14h18
babar03

C'est quoi exRange pour toi?
J'ai essayé ton code mais je ne vois pas trop ce qu'est exRange. Enfin si je pense que cela represente la cellule a atteindre.
Mais marqué comme ceci, une erreur apparai:

Citation:

L'expression n'est pas une méthode.

Donc je pense qu'il manque un truc du genre
Code:

1 2 3 4 5 for i = 0 to 100 exRange.quelquechose(wsExcel.Cells(i, 1)) 'Adresse de cellule à remplir exRange.value = LstBox1.Items(i).ToString Next
Non?
Le code tel que tu me l'as écrit fonctionne-t-il pour toi?
09/03/2010, 14h25
babar03

ou alors...

C'est peut etre plus un "=" qu'il manque à ton code.
J'ai essayé avec le fameux "=", et il me met un message d'erreur qui correspond (à priori) au fait que le fichier n'est pas créé.
C'est pour cela que dans mon code de base, il existait un OpenFileDialog. Cette fonction me permettai, de facon très simple, de créer un fichier pour, ensuite, y enregistrer mes valeurs.
09/03/2010, 14h25
sebnantes

Oups, j'ai mal écrit ^^ Désolé, la ligne c'est :

Code:

exRange = wsExcel.Cells(i, 1)

Et ExRange correspond à une zone de sélection dans ta feuille Excel, tu peux soit choisir une cellule, soit un ensemble de cellule, la ligne de code dans ce cas c'est :

Code:

exRange = wsExcel.Range("A1:C15")
09/03/2010, 14h26
sebnantes

Tu peux me mettre le message qu'il t'affiche ?
09/03/2010, 14h41
babar03

1 pièce(s) jointe(s)

erreur

Voila j'espère que sa sera bon

Code:

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")
                
                wbExcel = appExcel.Workbooks.Add
                '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.SaveAs(NomFichier)

            Catch ex As COMException
                  MessageBox.Show(ex.ToString())
            Finally
               wbExcel = Nothing
               appExcel.Quit()
               appExcel = Nothing
            End Try
End If

Remplace par ce que j'ai mis en rouge, je pense que cela devrait marcher là. Je n'avais pas pris en compte le fait que tu n'avais pas de fichier excel.

09/03/2010, 15h06
babar03

1 pièce(s) jointe(s)

s'eu été trop beau^^

Bon déjà je tiens vraiment à te remercier pour ce que tu fais pour moi.:ccool:
Seulement ce fu trop beau si cela avait fonctionné.
J'ai donc changer de message d'erreur. Mais un message d'erreur aparait toujours. Cette fois ci je prend les devants et je te join l'image du message^^
09/03/2010, 15h15
babar03

mode pas a pas

Bon j'ai essayé le programme en mode pas à pas pour visualiser ou ce produit le problème.
Je constate qu'avec les dernières modifs, l'execution se fait jusque dans la boucle. Cependant, après avoir effectué la premiere ligne de la boucle forNext, elle ne continue pas et passe directement à la msgbox qui doit générer l'erreur.
Bon par contre je sais que sa fai sa mais je sais pas pourquoi...
09/03/2010, 15h23
Flamby38

Tu devrais executer ton code en pas à pas et voir ce qui génère l'erreur, tu ne progresseras jamais si tu demandes la solution sans jamais chercher à comprendre.
09/03/2010, 15h26
babar03

justement j'ai executer en pas à pas!!!!
Et je sais ce qui me génère l'erreur mais pas pourquoi elle est générée!
09/03/2010, 15h40
Flamby38

Pardon, je n'avais pas vu le dernier message en répondant.
est ce que par hasard en mettant i entre 1 et 100 plutot qu'entre 0 et 100 ca ne passerait pas mieux?
09/03/2010, 15h41
sebnantes

Et tu as bien pensé à remettre le "=" pour ExRange ? Je viens de voir que j'ai oublié de le remettre dans le code :p
09/03/2010, 15h55
babar03

Pour Sebnantes, oui je l'ai bien remis.
Et pour Flamby38, ba tu gère. Effectivement je n'ai pas pensé que Excel n'a pas de ligne 0!!!!
Donc la boucle comprise entre 1 et 100 sa fonctionne très bien.
Je n'est plus aucun message d'erreur. Ni lors de l'exécution, ni lors de la réouverture du fichier.
Un grand merci à tous les 2. Je vais essayer de pus avoir de problèmes à vous poser^^.
Merci beaucoup:D
@+
Olivier