ecrire dans une feuille non active d'excel

**baboo50** · 05/08/2007, 20h56

j'aimerai savoir si il serai possible d'envoyer des valeurs dans un feuilles non active d'excel.

je vous join pour cela mon code:

en premier lieu, déclaration d'excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim listprog As New Excel.Application
Dim wk As Workbook
Dim sh As Worksheet
If txtline.Text <> "" And IsNumeric(txtline.Text) = True Then
 
listprog.Visible = True
Set wk = listprog.Workbooks.Add
Set sh = wk.Worksheets.Add

puis envoi dans excel

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
Numero_colonne = 1
saut = txtline.Text - 1
 
    sh.Cells(1, Numero_colonne).Value = "n°card"
    sh.Cells(1, Numero_colonne).Font.Bold = True
    sh.Cells(1, Numero_colonne).Borders.Weight = Excel.XlBorderWeight.xlMedium
    sh.Cells(1, Numero_colonne).HorizontalAlignment = Excel.xlHAlignCenter
    sh.Cells(1, Numero_colonne + 1).Value = "n°prog"
    sh.Cells(1, Numero_colonne + 1).Font.Bold = True
    sh.Cells(1, Numero_colonne + 1).Borders.Weight = Excel.XlBorderWeight.xlMedium
    sh.Cells(1, Numero_colonne + 1).HorizontalAlignment = Excel.xlHAlignCenter
 
For o = 0 To frmgstprog.lstprog.ListCount - 1
If o Mod (saut) = 0 And o >= saut Then
    Numero_colonne = Numero_colonne + 2
 
    sh.Cells(1, Numero_colonne).Value = "n°card"
    sh.Cells(1, Numero_colonne).Font.Bold = True
    sh.Cells(1, Numero_colonne).Borders.Weight = Excel.XlBorderWeight.xlMedium
    sh.Cells(1, Numero_colonne).HorizontalAlignment = Excel.xlHAlignCenter
    sh.Cells(1, Numero_colonne + 1).Value = "n°prog"
    sh.Cells(1, Numero_colonne + 1).Font.Bold = True
    sh.Cells(1, Numero_colonne + 1).Borders.Weight = Excel.XlBorderWeight.xlMedium
    sh.Cells(1, Numero_colonne + 1).HorizontalAlignment = Excel.xlHAlignCenter
End If
 
 
        l = o Mod (saut) + 2
        sh.Cells(l, Numero_colonne).Value = Left(frmgstprog.lstprog.List(o), InStrRev(frmgstprog.lstprog.List(o), "_") - 4)
        sh.Cells(l, Numero_colonne).Borders.Weight = Excel.XlBorderWeight.xlThin
        sh.Cells(l, Numero_colonne).Borders(Excel.XlBordersIndex.xlEdgeLeft).Weight = Excel.XlBorderWeight.xlThick
        sh.Cells(l, Numero_colonne + 1).Value = Right(frmgstprog.lstprog.List(o), Len(frmgstprog.lstprog.List(o)) - InStrRev(frmgstprog.lstprog.List(o), "_"))
        sh.Cells(l, Numero_colonne + 1).Borders.Weight = Excel.XlBorderWeight.xlThin
        sh.Cells(l, Numero_colonne + 1).Borders(Excel.XlBordersIndex.xlEdgeRight).Weight = Excel.XlBorderWeight.xlThick
Next o
    sh.Cells.EntireColumn.AutoFit
Set wk = Nothing
Set sh = Nothing

si quelqu'un pourrait trouver comment envoyer dans une feuille non active, car dans mon cas si l'utilisateur change de feuille durant le transfert le programme fait une erreur.
merci d'avance pour vos reponses

**AlainTech** · 06/08/2007, 04h22

Envoyé par baboo50

si l'utilisateur change de feuille durant le transfert le programme fait une erreur.

Je n'ai jamais eu le cas avec la façon dont tu travailles mais tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

listprog.Visible = False

Accessoirement, tu aurais pu nous poster le message d'erreur, ça nous aurait donné une indication.

**baboo50** · 06/08/2007, 07h26

bon, si tu fais un envoi dans excel ou tu pourra essayer de changer de feuille excel pendant le transfert et tu constatera l'erreur suivante:

Erreur d'execution '50290'
erreur definie par l'application ou par l'objet

cette erreur est presente tant que tu reviens pas sur la premiere feuille du classeur.

essaye et dis moi si ta rien compris ou si tu as une solution

**LeForestier** · 06/08/2007, 09h01

je comprend pas cette ligne.. et c'est là que ça coince

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For o = 0 To frmgstprog.lstprog.ListCount - 1

frmgstprog ?
lstprog ?

Cela dit, pour être sur que tu met tes données sur la bonne feuille tu pourrais modifier....

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
Dim a$
'If txtline.Text <> "" And IsNumeric(txtline.Text) = True Then
 
listprog.Visible = True
Set wk = listprog.Workbooks.Add
Set sh = wk.Worksheets.Add
 
a$ = sh.Name
 
Numero_colonne = 1
saut = 1
    With Worksheets(a$)
        .Cells(1, Numero_colonne).Value = "n°card"
        .Cells(1, Numero_colonne).Font.Bold = True
        .Cells(1, Numero_colonne).Borders.Weight = Excel.XlBorderWeight.xlMedium
        .Cells(1, Numero_colonne).HorizontalAlignment = Excel.xlHAlignCenter
        .Cells(1, Numero_colonne + 1).Value = "n°prog"
        .Cells(1, Numero_colonne + 1).Font.Bold = True
        .Cells(1, Numero_colonne + 1).Borders.Weight = Excel.XlBorderWeight.xlMedium
        .Cells(1, Numero_colonne + 1).HorizontalAlignment = Excel.xlHAlignCenter
    End With

la même façon pour la suite..
A+

**SfJ5Rpw8** · 06/08/2007, 09h28

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
a$ = sh.Name
Worksheets(a$)

...

garde ton sh ... ! avec cette syntaxe l'on ne sait pas à quel classeur appartient la collection Worksheets !

Envoyé par baboo50

....
essaye et dis moi si ta rien compris ou si tu as une solution

essaie plutôt de nous dire sur qu'elle ligne survient l'erreur...

**baboo50** · 06/08/2007, 09h55

bon tout d'abord ta methode avec les a$ ne marche pas et engendre meme d'autre probleme, mais merci tout de meme.

autrement je viens de remarquer que si je lance le debugage de l'application au moment de l'erreur et que je relance l'application alors a ce moment il continu a envoyer dans la feuille inactive.
ceci me fait penser que c'est l'operation de changer de feuille qui fait bugger le programme. je pense alors qu'il faudrait faire une gestion d'erreur qui fera oublier ce changement de feuille et permettra au programme de continuer en reprennant la ou il en etait.

le petit probleme pour moi c que je sais faire des gestion d'erreur mais je ne sais pas comment dire a vb de reprendre la ou il en etait.

**baboo50** · 06/08/2007, 10h09

dans tout les cas l'erreur survient sur les lignes suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sh.Cells(1, Numero_colonne).Value = "n°card"
    sh.Cells(1, Numero_colonne).Font.Bold = True
    sh.Cells(1, Numero_colonne).Borders.Weight = Excel.XlBorderWeight.xlMedium
    sh.Cells(1, Numero_colonne).HorizontalAlignment = Excel.xlHAlignCenter
    sh.Cells(1, Numero_colonne + 1).Value = "n°prog"
    sh.Cells(1, Numero_colonne + 1).Font.Bold = True
    sh.Cells(1, Numero_colonne + 1).Borders.Weight = Excel.XlBorderWeight.xlMedium
    sh.Cells(1, Numero_colonne + 1).HorizontalAlignment = Excel.xlHAlignCenter

mais a chaque fois sur une ligne differente

**SfJ5Rpw8** · 06/08/2007, 10h14

Envoyé par baboo50

...
mais a chaque fois sur une ligne differente

sur ..?

**baboo50** · 06/08/2007, 12h56

bon je viens de faire de nombreux essais je suis tomber sur tout les cas de figures ca ve dire que le programme fait une erreur sur l'une des 6 lignes suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
         sh.Cells(l, Numero_colonne).Value = Left(frmgstprog.lstprog.List(o), InStrRev(frmgstprog.lstprog.List(o), "_") - 4)
        sh.Cells(l, Numero_colonne).Borders.Weight = Excel.XlBorderWeight.xlThin
        sh.Cells(l, Numero_colonne).Borders(Excel.XlBordersIndex.xlEdgeLeft).Weight = Excel.XlBorderWeight.xlThick
        sh.Cells(l, Numero_colonne + 1).Value = Right(frmgstprog.lstprog.List(o), Len(frmgstprog.lstprog.List(o)) - InStrRev(frmgstprog.lstprog.List(o), "_"))
        sh.Cells(l, Numero_colonne + 1).Borders.Weight = Excel.XlBorderWeight.xlThin
        sh.Cells(l, Numero_colonne + 1).Borders(Excel.XlBordersIndex.xlEdgeRight).Weight = Excel.XlBorderWeight.xlThick

desole il ne se focalise pas sur une ligne mais il bloque sur une de ces 6 lignes a chaque fois, alors si vous avez une solution je vous remercierai de me la proposer car je nage pour le moment.

et desole pour les balises code je ne savais pas que ca existait

**SfJ5Rpw8** · 06/08/2007, 14h01

? quelle est la valeur de numero_colonne.. au moment du crash ..?

essai le pas à pas (F8) pour être sur de l'endroit du crash, c'est quand même bizarre qu'il change...!

**baboo50** · 07/08/2007, 07h20

bon ca depend du moment ou tu change de feuille car des que tu change de feuille il fait une erreur donc l'erreur peut se produire sur les 6 lignes du dernier message et sur n'importe quelle colonne.
je ne pense pas que c'est un probleme de colonne mais plus de l'action 'changement de feuille excel'.

j'espere avoir repondu a tes questions

Aussi l'erreur se forme sur la ligne qu'il est en train d'executer, ca c'est pour t'expliquer pourquoi elle change de ligne a chaque fois.

bizarrement en mode pas a pas le programme detecte aucune erreur quand je changais de page. parcontre il faut que je vous dise a la difference du lancement normal, le programme est a l'arret au moment du changement de feuille en pas a pas.

**LeForestier** · 08/08/2007, 11h37

Comme tu n'a mis que des bouts de codes il n'est pas possible de déterminer où se trouve ta routine, est-t'elle dans un module ou une feuille ?

ecrire dans une feuille non active d'excel

VB 6 et antérieur

Discussions similaires

Partager

Partager