[VBA] Erreur out of range sur script

Erreur out of range sur script [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 13-07-2009 à 12:19:17    

Bonjour,
 
Je suis actuellement entrain de coder une macro qui permettrait de rechercher des macros dans les fichiers xls sur un disque dur, puis les lister.
Je travail par étape, pour l'instant je test l'ouverture, l'écriture (d'une simple bonjour), la sauvegarde, puis la fermeture du fichier destinataire
Actuellement je suis bloqué sur une erreur "Run-time error '9' : Subscript out of range" sur la ligne 72:
 
 

Code :
  1. Sub MacroTest()
  3. ' on efface les colonnes du resultat precedent
  4. Columns(1).Clear
  5. Columns(2).Clear
  6. Columns(3).Clear
  7. Columns(4).Clear
  8. Columns(5).Clear
  11. ' déclaration des variables
  13. Dim uneAppli As Excel.Application
  14. Dim leClasseur As Excel.Workbook
  15. Dim laSheet As Excel.Worksheet
  16. Dim unClasseur As Excel.Workbook
  17. Dim uneSheet As Excel.Worksheet
  19. Dim leRepertoireFichier As String
  20. Dim leNom As String
  21. Dim laTaille As Integer
  22. Dim leType As String
  24. Dim i As Integer
  25. Dim CountFile As Integer
  28. ' ouverture de l'application
  29. Set uneAppli = CreateObject("Excel.Application" )
  30. ' ouverture du classeur
  31. Set leClasseur = uneAppli.Workbooks.Open("P:\Test\liste_macro_G.xls" )
  32. ' mise en place de la premiere feuille du fichier
  33. Set laSheet = leClasseur.Worksheets("test" )
  38. ' debut de la boucle
  39. ' taille total de la recherche à indexé dans variable CountFile
  40. ' for i = 1 to .FoundFiles.Count step 1
  42.        
  43.         ' on active le classeur/feuille dans lequel on recherche le fichier
  44.         ' leClasseur.Activate
  45.         Worksheets("test" ).Activate
  46.        
  47.        
  48.         ' on effectue le test if macro inside
  49.         ' code à modifier, apparement le VBComponents permets de détecter de la macro inside
  50.         ' ActiveWorkbook.VBProject.VBComponents.  ActiveWorkbook.VBProject.VBComponents("Module1" )
  51.        
  52.        
  53.        
  54.         ' on récupere les differentes infos dont on a besoin
  55.         ' recupere le nom du fichier
  56.         ' Set leNom = ThisWorkbook.Name ---------------< a debloquer
  57.        
  58.         ' recupere la taille du fichier
  59.         ' Debug.Print FileLen("nomdufichier" )
  60.         ' Set laTaille = Workbooks(ActiveWorkbook.Name).FullName
  61.         ' Set laTaille = ThisWorkbook.FullName ---------------< a debloquer
  62.        
  63.         ' recupere le type du fichier <------- COMMENT QUALIFIER TYPE FICHIER
  64.         ' Set leType = michel
  65.        
  66.         ' recupere le repertoire du fichier
  67.         ' GetRelativePath
  68.         ' Set leRepertoire = Workbooks(ActiveWorkbook.Name).FullName ---------------< a debloquer
  69.        
  70.        
  71.        
  72.         Workbooks("P:\Test\liste_macro_G.xls" ).Worksheets("test" ).Cells(i, 1).Value = "bonjour"
  73.         'ThisWorkbook.Worksheets("test" ).Cells(i, 1).Value = "bonjour"
  74.        
  75.         Set leNom = "bonsoir"
  76.        
  77.         ' on ecrit dans la cellule du classeurRef
  78.         ' With ThisWorkbook.Sheets("test" )
  79.         With Workbooks("P:\Test\liste_macro_G.xls" ).Worksheets("test" )
  80.             .Cells(i, 1).Value = leNom
  81.             .Cells(i, 2) = leType
  82.             .Cells(i, 3) = laTaille
  83.             .Cells(i, 4) = leRepertoire
  84.             ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 5)
  85.             .Cells(i, 5) = leRepertoire
  86.         End With
  87.        
  88.        
  89.         ' on ferme le classeur dans lequel on recherche
  90.         ThisWorkbook.Close SaveChanges:=True
  93. ' fin de la boucle
  94. ' next
  96. ThisWorkbook.Close SaveChanges:=True
  99. End Sub


 
 
Vous avez une idée, car perso je n'arrive pas à trouver ce que veut dire l'erreur ???
Merci

Reply

Marsh Posté le 13-07-2009 à 12:19:17   

Reply

Marsh Posté le 13-07-2009 à 13:32:28    

Bonjour,
la ligne 40 est en commentaire, est-volontaire??
 
Cordialement

Reply

Marsh Posté le 13-07-2009 à 13:34:08    

oui c'est normal, je fais un test sans la boucle, pour l'instant j'essaye juste de pouvoir ouvrir, ecrire, sauvegarder puis fermer
 
mais suis encore bloqué à l'ouverture..

Reply

Marsh Posté le 13-07-2009 à 13:36:47    

Il faut donner une valeur à i

Reply

Marsh Posté le 13-07-2009 à 14:00:52    

ah oui effectivement  
 
je test
 
edit: toujours la meme erreur sur
 
Workbooks("P:\Test\liste_macro_G.xls" ).Worksheets("test" ).Cells(1, 1).Value = "bonjour"
 
malgré le "i"


Message édité par replay le 13-07-2009 à 14:04:18
Reply

Marsh Posté le 13-07-2009 à 18:05:29    

Il est ouvert ton workbook et je pense que tu peux utiliser "leclasseur", je n'ai pas le temps d'approfondir, mais essaye cela en attendant:
 
Workbooks("liste_macro_G.xls" ).Worksheets("test" ).Cells(1, 1).Value = "bonjour"

Reply

Marsh Posté le 15-07-2009 à 12:51:03    

merci de ta réponse
j'ai réussi à débugguer
c'était dû au fait que j'esssayais d'ouvrir un classeur déjà ouvert...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed