Discussion :

[totoche]

Bonjour,
J'essaye d'écrire plusieurs fichier excel, mais à l'écriture du second j'ai une erreur la métode row de l'objet _global a échoué

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
 
compteur = cpt1
Call rempliXLS(s1())
 
compteur = cpt2
Call rempliXLS(s2())
 
compteur = cpt3
Call rempliXLS(s3())
___________________________
 
Sub rempliXLS(ByRef Structure() As UnIndividu)
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Add
 
 
For i = 2 To compteur
    Rows("1:" & i).Select
   ...
Next
 
 
wbExcel.SaveAs ("\\...\ftproot\" & r & "\" & f)
 
    wbExcel.Close 'Fermeture du classeur Excel
    Set wbExcel = Nothing
    appExcel.Quit 'Fermeture de l'application Excel
    Set appExcel = Nothing
    End Sub

[BM42]

salut

J'ais rencontré le même type de problème avec un transfert de données dans excel.
Il te manque la déclaration de la feuille. essai d'ajouter :

Code :

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

set xlsheet = wbExcel.worksheets(1)

A+

[totoche]

Bonjour,
et merci
c'est mieux mais je comprends pas pourquoi

Code :

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

Set appExcel = Nothing

ne fonctionne pas lors a la sortie du 1er appel de la proc. Dans le gestionnaire des taches niveau processus la 1 ere instance d'excel demeure

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
 
Select Case Org
Case "Or1"
compteur= compteur1
Call rempliXLS(Or1())
 
Case "Or2"
compteur= compteur2
Call rempliXLS(Or2())
...
_______________________________
Sub rempliXLS(ByRef Structure() As Unindividu)
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Add
Set xlsheet = wbExcel.Worksheets(1)
 
For i = 2 To compteur
    xlsheet.Rows("1:" & i).Select
    ActiveCell.FormulaR1C1 = Structure(i).Nom
    ....
Next
wbExcel.SaveAs (r & "\" & f)
    appExcel.ActiveWorkbook.Close
    appExcel.Quit 
    Set appExcel = Nothing
End Sub

et appeler un taskkill??

[BM42]

Salut

Excel est capricieux, il faut décharger tous tes éléments :

Code :

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

1
2
3
4
Set xlsheet = Nothing
Set wbExcel = Nothing
Excel.Application.Quit
Set appExcel = Nothing

Essai ca devrait marcher

A+