Problème avec Split VBA ACCESSRésolu

Question

Bonjour tout le monde, 

Ce post vient à la suite du premier, en fait la chaîne que je récupère à partir du fichier est trsè dense. Et j'ai besoin de couper cette chaîne avec Split pour récupérer certains éléments précis. 
Le problème c'est que quand je fais Split, eh bah ça fait rien du tout, je n'ai mm pas de message d'erreur du style, dépassement de capacité.... 

Une idée? 
voici le code! merci! 

Sub test() 
Dim fp As Integer 
Dim fichier, fic, monTab(), machaine(), chemin As String 
fic = "" 
chemin = "C:\...\relation.txt" 
On Error Resume Next 
fp = FreeFile 

Open chemin For Input As #fp 
While Not EOF(fp) 
Line Input #fp, fichier 
fic = fic & fichier 
Wend 
Close #fp 

monTab = Split(fic, "<") 'Split(fic, "detailler(") 
MsgBox monTab(1) 
machaine = Split(Mid(monTab(1), 1), "'") 
MsgBox machaine(0) 
End Sub 

quand je fais MsgBox de monTab(1), il n'ya rien qui s'affcihe la message box n'apparaît même pas! 

Merci d'avance à tous!

r1r2 · Accepted Answer

Vu tes déclarations de variables : Dim fichier, fic, monTab(), machaine(), chemin As String 

Seule chemin est String, les autres sont Variant !
Il faut donc mettre : Dim fichier As String, fic As String, monTab() As String, machaine() As String, chemin As String
(surtout monTab() et machaine()) et ça devrait passer.

r1r2 · Answer

Bonjour,


Si la message box ne s'affiche pas, c'est probablement que ce qu'elle doit afficher (monTab(1)) n'existe pas.

Pour savoir pourquoi, il faut tout d'abord enlever le On Error Resume Next qui masque probablement une erreur (problème d'accès au fichier, ...).

PCPT · Answer

tout à fait d'accord, surtout avec une chaine comme  
chemin = "C:\...\relation.txt"

mmmxtina · Answer

Re!
Désolée de répondre maintenant, je suis en stage, et j'ai un autre problème à élucider en même temps!

Donc déjà merci PCPT et r1r2 pour vos réponse.
Alors PCPT pour te répondre, je n'ai pas voulu mettre le vrai chemin du fichier par soucis de confidentialité c'est tout, tinkiet pas, le chemin n'est pas "C:\...\relation.txt". je suis d'accord avec toi, ça aurai été bizarre...

Sinon r1r2, j'ai fait ce que tu m'a dit j'ai enlevé le On Error Resume Next et maintenant j'ai une erreur au niveau du Split qui me dit:
"erreur 13, incompatibilité de type"

Bizarre, j'ai vérifié, fic n'est pas vide, il contient bien ce qu'il y a dans le fichier relation.txt, et fic est bien un string donc comprends pas....

une idée?

Meric beaucoup!

mmmxtina · Answer

Re,
en effet c'était ça!!!!
Je m'en suis rendu compte assez tardivement et c'était bien mes déclarations le problème!!
J'était en train de faire des tests puis autre chose, donc c'est pour ça que je répond que maintenant!

Merci beaucoup r1r2!! 
bonne journée à toi!

Problème avec Split VBA ACCESS

5 réponses

Votre réponse

Discussions similaires