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