Nouveau excel probleme urgent [Résolu]

baltazar85 40 Messages postés mercredi 31 mai 2006Date d'inscription 30 juin 2006 Dernière intervention - 29 juin 2006 à 22:05 - Dernière réponse : drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention
- 30 juin 2006 à 13:08
comment pourrais-je faire pour rendre une page excel vierge  avant de lui envoyer des données et comment faire pour que le programme sélectionne ma page excel sans lui donnée un chemin  pour que n'importe quel utilisateur puisse lancer l'application et cela peut importe ou il a placer la page excel un peut comme une base de donnée
ex:

connextion =
New OleDbConnection(
"Provider=microsoft.jet.oledb.4.0; data source=" + Directory.GetParent(Application.ExecutablePath).ToString +
"\Equipe.mdb")






Dim
xlsapp1

As
Excel.Application


Dim
book

As
Excel.Workbook


Dim
sheet

As
Excel.Worksheet


xlsapp1 =

New
Excel.Application


xlsapp1.Visible =

True

book = xlsapp1.Workbooks.Open(Directory.GetParent(Application).ToString +

"\Equipe.mdb"
)


sheet = xlsapp1.Worksheets(

"Historique chèque"
)


Dim
test(ligne, colo)

As



String

Dim
colExel

As



String

For
i = 0

To
ligne - 1


   For
j = 0

To
colo - 1


      Select



Case
j


         Case
0
            colExel =

"A"

            Exit



Select

         Case
1
            colExel =

"B"

            Exit



Select

         Case
2
            colExel =

"C"

      End



Select

      test(i, j) = dts.Tables(

"Equipe"
).Rows(i).Item(j)
      sheet.Range(colExel & (i + 3)).Value = test(i, j)


   Next

Next

svp aider moi?
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 30 juin 2006 à 13:08
3
Merci
dim path as string
path=curdir()

 Drikce 06

Merci drikce06 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 85 internautes ce mois-ci

Commenter la réponse de drikce06
baltazar85 40 Messages postés mercredi 31 mai 2006Date d'inscription 30 juin 2006 Dernière intervention - 29 juin 2006 à 22:19
0
Merci
il faut remplacer :

book = xlsapp1.Workbooks.Open(Directory.GetParent(Application).ToString + "\Equipe.mdb")

par :

book = xlsapp1.Workbooks.Open(

"cheque")

la mon code marche mais il faut placer la page xls dans un endroit spèciale et je travail en vb.net. et je voudrais que le porgramme ne dépende pas de l'endroit ou la page xls
par exemple la il faut la mettre dans :

C:\Documents and Settings\seth\Mes documents
 
alors que moi je voudrais par exemple la mettre dans :

C:\Documents and Settings\seth\Bureau\cheque\cheque\cheque\bin\Debug
Commenter la réponse de baltazar85
baltazar85 40 Messages postés mercredi 31 mai 2006Date d'inscription 30 juin 2006 Dernière intervention - 29 juin 2006 à 22:34
0
Merci
a oui au faite j'ai essayer de  mettre
Provider=microsoft.jet.oledb.4.0; data source=" + Directory.GetParent(Application.ExecutablePath).ToString + "\Equipe.xls")

a la place

"cheque" dans l'expression de book

svp aider moi et si je suis pas assez clair dite le moi
Commenter la réponse de baltazar85
baltazar85 40 Messages postés mercredi 31 mai 2006Date d'inscription 30 juin 2006 Dernière intervention - 29 juin 2006 à 22:35
0
Merci
et il me me souligne tout le temps ce qui as dans le GetParent

voila et dsl j'ai pas fai expres
Commenter la réponse de baltazar85
baltazar85 40 Messages postés mercredi 31 mai 2006Date d'inscription 30 juin 2006 Dernière intervention - 30 juin 2006 à 11:45
0
Merci
voila mon probleme et presque resolu par drikce06 j'ai un seul souci


Dim xlsapp1
As Excel.Application

Dim book
As Excel.

Dim sheet
As Excel.Worksheet

Dim path
As
String = Application.StartupPath



xlsapp1 =




New
Excel.Application


xlsapp1.Visible =

True

book = xlsapp1.Workbooks.Open(path &

"\test.xls"
)

mon problème et qu'il me souligne Application.StartupPath
et il me marque l'erreur suivante:
Une référence à un membre non partagé requiert une référence d'objet.

quelqu'un pourrait -il m'aider svp?
je suis en vb.net
Commenter la réponse de baltazar85

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.