Bonjour,
Je fais face à un problème d'exécution d'un script. A la première exécution le script se déroule correctement. Mai a la deuxième j'ai l'erreur suivante: "Run-time error '91': Object variable or with blockvariable not set".
Le script est arrété sur l'instruction " Selection.copy".
Je suis alors obligé d'arréter le script de fermer le fichier EXCEL ouvert par le script. Si j'exécute le scipt à nouveau je n'ai pas d'erreur. J'ai remarquer qu'en pointant sur les methods "Worksheet" ou "Rows" de mon script, au premier passage j'ai le tooltype text suivant "Worksheets =<Object variable or With block variable not set>". Au second passage, celui qui génère une erreur, j'ai le tooltype text suivant "Worksheets =<Method 'Worksheets' of Object '_global' not set>".
Le script est executé à partir de Microsoft Visual basic 6.3 intégré à une application Allen Bradley RSView Studio SE.
Le script est le suivant:
Private Sub Button3_Released()
'Best to define variable first but not nessecary
Dim ObjExcelApp As Object
Dim Fname As String
Dim name As String
Fname = "C:\Classeur1.xls" 'name of already created excel project
Set ObjExcelApp = CreateObject("Excel.Application")
ObjExcelApp.Visible = True
ObjExcelApp.Workbooks.Open (Fname)
ObjExcelApp.Worksheets("Feuil1").Activate
ObjExcelApp.Worksheets("Feuil1").cells(1, "A").Value = "OK man" 'Write date to cell A1
ObjExcelApp.Worksheets("Feuil1").Range("A1").Select
Selection.Copy
ObjExcelApp.Worksheets("Feuil1").Range("B2").Select
ActiveSheet.Paste
ObjExcelApp.Workbooks.Close
ObjExcelApp.Quit
Set ObjExcelApp = Nothing
End Sub
Si quelqu'un connaitrait la solution à ce problème.
D'avance merci
JG