Posez votre question Signaler

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

Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008
 - - Dernière réponse : lutron
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008
 - 13 juin 2008 à 11:47
Visual Basic 6 Posez votre question Signaler
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 : )
Afficher la suite 
A voir également:

1 réponse

Meilleure réponse
Signaler Commenter la réponse de lutron
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008
3
Merci
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 ^^  

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 201 internautes nous ont dit merci ce mois-ci

Commenter la réponse de lutron
Répondre Posez votre question