Bonjour,
Je fais actuellement une Macro pour importer un fichier CSV dans une feuille Excel. Mais mon code fonctionne uniquement avec des petits fichiers. J'ai une erreur : Mémoire insuffisante.
Il y a t-il un moyen d'optimiser ce code afin de faire disparaitre ce problème de mémoire ?
Merci de votre aide
Je fais actuellement une Macro pour importer un fichier CSV dans une feuille Excel. Mais mon code fonctionne uniquement avec des petits fichiers. J'ai une erreur : Mémoire insuffisante.
Code:
Private Sub Cmd_Click()
Dim ProductLine As String
Dim Tab1
Dim i, x As Integer
x = 0
Range("a4:n65536").Clear
Range("A4").Activate
ProductFile = Application.GetOpenFilename("csv files (*.csv), *.csv")
On Error Resume Next
Open (ProductFile) For Input As #1
Do
Line Input #1, ProductLine
Tab1 = Split(ProductLine, ";")
For i = 0 To UBound(Tab1)
ActiveCell.Offset(x, i) = Tab1(i)
Next i
x = x + 1
Loop While Not EOF(1)
Close #1
End Sub
Il y a t-il un moyen d'optimiser ce code afin de faire disparaitre ce problème de mémoire ?
Merci de votre aide