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

lutron 22 Messages postés lundi 26 mai 2008Date d'inscription 13 juin 2008 Dernière intervention - 13 juin 2008 à 10:34 - Dernière réponse : lutron 22 Messages postés lundi 26 mai 2008Date d'inscription 13 juin 2008 Dernière intervention
- 13 juin 2008 à 11:47
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 

Votre réponse

1 réponse

Meilleure réponse
lutron 22 Messages postés lundi 26 mai 2008Date d'inscription 13 juin 2008 Dernière intervention - 13 juin 2008 à 11:47
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 ^^  

Merci lutron 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 85 internautes ce mois-ci

Commenter la réponse de lutron

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.