Discussion :

[gorjette]

Bonjour,

Voilà, je réusis à ouvrir un fichier Excel et d'y écrire des données à l'intérieure (après un clic de bouton), mais seulement une fois sur deux. Voici mon code...

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
Private Sub Commande202_Click()
'Ouvrir un fchier excel et faire une mise en page.
Dim AppExcel As Excel.Application 'Application excel
Dim WbExcel As Excel.Workbook 'Classeur Excel
'Dim WsExcel As Excel.Worksheet 'Feuille Excel
 
Set AppExcel = CreateObject("excel.application")
Set WbExcel = AppExcel.Workbooks.Add
'Set WsExcel = AppExcel("feuille1")
 
 
'AppExcel.DisplayAlerts = False
AppExcel.Visible = True
 
WbExcel.Sheets("feuil1").Select
Range("b2").Select
ActiveCell.FormulaR1C1 = "99"
 
 
'WbExcel.Application.Quit
 
'Set WsExcel = Nothing
Set WbExcel = Nothing
Set AppExcel = Nothing
End Sub

La deuxième fois que je clic sur le bouton, après avoir fermé le fichier excel, on me donne l'erreure suivant "Erreur d'exécution ''1004": La méthoode 'Range' de l'objet '_Global' a échoué" sur la ligne "Range("b2").Select".

Merci pour votre précieux intéret.

Jean-François

[hocine]

salut,
je crois que sa va se résoudre de cette façon

Code :

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

1
2
3
4
5
 
WbExcel.Sheets("feuil1").Select
WbExcel.Sheets("feuil1").Range("b2").Select
ActiveCell.FormulaR1C1 = "99" ' et si ça ne marche pas avec cette ligne 'remplacez la par la ligne suivante
WbExcel.Sheets("feuil1").Range("b2").FormulaR1C1 = "99"

Bonne chance
Merci.

[gorjette]

salut,
je crois que sa va se résoudre de cette façon

Code :

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

1
2
3
4
5
 
WbExcel.Sheets("feuil1").Select
WbExcel.Sheets("feuil1").Range("b2").Select
ActiveCell.FormulaR1C1 = "99" ' et si ça ne marche pas avec cette ligne 'remplacez la par la ligne suivante
WbExcel.Sheets("feuil1").Range("b2").FormulaR1C1 = "99"

Bonne chance
Merci.

Cela est juste et bon.

[hocine]

salut, un petit bonus
à la place de votre code vous pouviez le simplifier avec WITH

Code :

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

1
2
3
4
5
6
7
8
 
with WbExcel.Sheets("feuil1")
.Select
   with .Range("b2")
   .Select
   .FormulaR1C1 = "99"
   end with
end with

BONNE CHANCE.

[gorjette]

salut, un petit bonus
à la place de votre code vous pouviez le simplifier avec WITH

Code :

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

1
2
3
4
5
6
7
8
 
with WbExcel.Sheets("feuil1")
.Select
   with .Range("b2")
   .Select
   .FormulaR1C1 = "99"
   end with
end with

BONNE CHANCE.

Hé bien cela est très gentil. Je suis nouveau dans Word alors ça va aider les jours qui viennent. Aussi, depuis que j'utilise ta solution, je n'ai pas de "treads" Excel qui restent ouverts en back... Ainsi, Windows me faisait des erreurs à la fermeture.

[hocine]

salut,
heureux pour vous.
Bonne continuation