Se connecter avec
S'enregistrer | Connectez-vous

[Résolu][VBA] Problème de syntaxe ???

Dernière réponse : dans Programmation

Bonjour,

Voulant réaliser une automatisation de recherche sous Excel à partir d'un fichier XML, j'aurais aimé bufferisé le contenu du fichier. Ainsi, je dispose de deux fichiers :

Module :
  1. Public Sub BufferizeFile(ByVal FilePath, ByRef Buffer() As String)
    

  2.  
  3.     Dim LineNumber As Integer
    

  4.     LineNumber = -1
    

  5.  
  6.     File = FreeFile
    

  7.  
  8.     Open FilePath For Input As #File
    

  9.  
  10.     While Not EOF(File)
    

  11.  
  12.         LineNumber = LineNumber + 1
    

  13.         ReDim Preserve Buffer(LineNumber)
    

  14.         Input #File, Buffer(LineNumber)
    

  15.  
  16.     Wend
    

  17.  
  18.     Close #File
    

  19.  
  20. End Sub

Feuil1 :
  1. Sub Rechercher_Click()
    

  2.  
  3.     Dim FilePath As String
    

  4.     FilePath = "C:\...\fichier.xml"
    

  5.  
  6.     Dim Buffer() As String
    

  7.  
  8.     BufferizeFile(FilePath, Buffer()) '** ERREUR **'
    

  9.  
  10. End Sub


A noter que le chemin du fichier a été raccourci. Pas besoin de voir toute mon arborescence.

Cependant, ce code a un problème : lors de son exécution, il me met qu'il y a une erreur de syntaxe, sur la ligne signalée. Si quelqu'un pouvait m'aider, cela serait très gentil !

Merci !

Autres pages sur : resolu vba probleme syntaxe

Lassé par la pub ? Créez un compte
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde