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...
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".
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
Merci pour votre précieux intéret.
Jean-François
Partager