1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Erreur d'execution 9 avec Sheets [Résolu]

Signaler
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008
 -
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008
 -
Bonjour

Voila mon probleme ,vb6 me sort une erreur d'execution 9 :indice en dehors de la plage
 Je suis absolument certain que le nom de ma feuille est bonne,et pourtant il me sort l'erreur sur cette ligne,je ne comprend pas du tout
Voila mon code:

Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
Set owk = oExcel.Workbooks.Open("C:\Program Files\Microsoft Visual Studio\VB98\projet\dossier xls ouvert\Sommaire dossier.xls")
Sheets("Feuil1").Select         'erreur sur cette ligne

If Vfeutest = "Non" Then
Rows(18).Delete
End If

owk.SaveAs "C:\Program Files\Microsoft Visual Studio\VB98\Client " & VnumeroClient & "\Sommaire dossier.xls"
owk.Close

Une aide serait la bienvenue
merci d'avance : )
A voir également:

1 réponse

Réponse 1 / 1
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008
C'était trop rien en faite,une simple répetition d'un bout de  code qui me faisait tout planter.Ce qui explique pas mal de truc.....
Enfin ça ma fais perdre 2h00 ^^  
Répondre Posez votre question