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

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()

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

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

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

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)