|
 Posté le 18/01/2006 @ 13:57 |
Nouvel astucien
| Bonjour,
j'ai un petit problème lorsque que j'exécute ce fichier excel depuis une page HTML de mon site perso j'ai systématique l'erreur 1004
En effet, j'ai créé sur mon site un lien vers mon fichier excel.
Il se lance bien, je click sur "button1"(voir VBA ci dessous), j'ai systématiquement l'erreur 1004 (voir erreur ci-dessous).
par contre si je click sur "Button3" et "Button 4" tout est ok.
De plus lorsque je ferme ce fichier excel, je quite également ma page HTML.
Une dernière petite précision, lorsque j'exécute directement sur mon PC ce fichier Excel tout est OK, le pb n'apparait uniquement lorsque je le lance à travers ma page HTML
Avez vous une petite idée sur la question ??
A votre dispo pour plus d'infos si besoins.
Code ERREUR:
erreur d'exécution '1004':
la methode 'sheets' de l'objet '_Global' a échoué
Code VBA:
Private Sub CommandButton1_Click()
Sheets("feuil2").Select
On Error GoTo Fin
Dim Cel_Ref As Range
Set Cel_Ref = Cells(Me.ListBox1.ListIndex + 11, Me.ListBox2.ListIndex + 2)
If Cel_Ref.Value = "" Then
Cel_Ref.Value = Me.TextBox1
Else
MsgBox "La tranche horaire choisie " & Cel_Ref.Address & " est déja louée par :" & Cel_Ref.Value, vbOKOnly + vbInformation
End If
Fin:
End Sub
Private Sub CommandButton3_Click()
UserForm1.Hide
Sheets("feuil1").Select
End Sub
Private Sub CommandButton4_Click()
TextBox1.Value = ""
End Sub
Private Sub Label6_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub ListBox2_Click()
End Sub
FIFI91 [clindoeil]
|
|
|
|
|
|
Posté le 18/01/2006 à 20:59 |
Astucien
| je te relance fifi
mais je ne sais pas si tu ne devrais pas poser la questiion sur le forum dÚdiÚ aux webmasters
avec un peu de chance ce code d'erreur est peut Ûtre connu d'eux
|
|
Posté le 20/01/2006 à 15:16 |
Nouvel astucien
| Ok je regarde et je pose la question sur un autre forum
FIFI91
pascal_21 a Úcrit :
je te relance fifi
mais je ne sais pas si tu ne devrais pas poser la questiion sur le forum dÚdiÚ aux webmasters
avec un peu de chance ce code d'erreur est peut Ûtre connu d'eux
|
|