Excel + VB : Probleme de SAVE

Question

Bonjour a tous, 

Je suis actuelement en stage ou je dois develloper une application en VB mais je rencontre un probleme qui m'agace serieusement, je vous l'explique, voici mon code : 

-------------------------------------
Dim xls As Excel.Workbook = GetObject("C:\Documents and Settings\Pitch\Bureau\Test.xls")
xls.Worksheets(1).range("A1") = (TBNom.Text)
xls.Save()
xls.Close
------------------------------------

J'utilise Windows office 2003 et VB 2005 . Tous marche parfaitement mais lorsque je decide de lire le fichier que j'ai modifier alors la impossible de l'ouvrir . Excel se lance tres bien mais il n'arrive pas a ouvrir le fichier Text.xls . Je pensai que le probleme venai de OFFICE 2007 mais apres avoir changer meme probleme ...

En esperant que vous pouvez m'aider .

Pitch

Merci d'avance

lolokun · Answer

Salut,


essaye plutôt comme ceci : 








Dim
 nom 

As



String






Dim
 classeur_XLS 

As



Object

classeur_XLS = CreateObject(




"Excel.application"
)nom = 


"C:\Documents and Settings\Pitch\Bureau\Test.xls"

classeur_XLS.Workbooks.Open(nom)


classeur_XLS.Visible = 




True

classeur_XLS.Worksheets(1).range(




"A1"
) = (TBNom.Text)classeur_XLS.Save()

Cacou99 · Answer

Merci beaucoup, je me suis vachement inspirer de ton code pour pouvoir reparer le mien :D ... Merci beaucoup . Mais vu que tu l'air de te debrouiller j'ai 3 questions ( si tu accepte d'y repondre ... ). 1 er) Je cherche comment afficher la fenettre Enregistrer sous : J'ai essayé ca :

Me.xls.Dialogs(xlDialogSaveAs).Show

Mais il ne reconnai pas :

xlDialogSaveAs VB2005 dis qu'il n'est pas declarer ??? 2ieme) Je cherche a modifié la taille de la cellule 1 pour avoir une largeur de 15 ?? 3ieme) Quel document ou site internet me permettrai de trouver tous les possiblité de VB. Il dois bien avoir un livre avec tous ce qui est possible ... Merci d'avance

lolokun · Answer

Re,

Alors si ton problème est résolu pense à cliquer sur réponse acceptée.
Puis va faire un petit tour du côté du règlement : 1 seule question par topic et une petite recherche sur le site avant de poser des questions qui ont déjà été abordées sur le forum.
Sinon
1°) XL.Dialogs(Excel.XlBuiltInDialog.xlDialogSaveAs).Show()

2°) XL.Cells(1).ColumnWidth = 15

3°) Il y a pas mal de sites, notamment la doc msdn..



Et pour info , je ne connais pas spécialement encore bien vb.net et excel, mais avec le forum et google l'ami de tous on s'en sort :p

PS : Dans mon code précédent, il vaut mieux mettre DimXL 
As Excel.application

Cacou99 · Answer

Merci beacoup ... 
Mais malheuresement mes problemes continue ...

Mon logiciel utilisant des fichiers excel , j'ai du mettre en haut de mon code : Imports Excel

Le probleme est que j'utilise la fonction Application.StartupPath 

Malheuresement le Imports Excel bloque l'expression Application.StartupPath et c'est vraiment tres tres grave pour mon appli ..

Merci d'avance

lolokun · Answer

De rien.
Je ne vois pas en quoi le import Excel bloquerait Application.startupPath. 
As tu un message d'erreur??Et sinon merci de clore ce topic et d'en rouvrir un autre en expliquant bien le problème avec le code que tu utilises pour avoir plus de réponse..
Moi je n'ai pas de souci avec : Imports

 Microsoft.Office.Interop
pathappli = Application.StartupPath()

MessageBox.Show(pathappli)

Excel + VB : Probleme de SAVE

5 réponses

Votre réponse

Discussions similaires