Problème pour la définition d'une variable

[Kristof]

Bonjour,

Dans la macro ci-dessous, je rencontre un problème pour la définition de la variable " lNum ".
Les fichiers que j'importe commencent tous par un "0 (zéro) " et ne sont pas reconnus.
Comment définir ma variable sachant que je ne peux pas changer les noms de mes fichiers.

Merci de votre aide,


Sub frageNummer2()
Dim lNum As Long
Dim strFile As String, strTemp As String, strPath As String
Dim lRow As Long
lRow = 1
strPath = "\\res\2010\"
Do
lNum = Application.InputBox("Saisir le nom du fichier à importer :", "Import des résultats", lNum, Type:=1)
If lNum = Empty Then Exit Sub
If Len(CStr(lNum)) = 8 Then Exit Do
MsgBox "Bitte überprüfen Sie die Nummer!"
Loop
strFile = strPath & "a" & lNum & ".tab"
If Not FileExist(strFile) Then _
MsgBox "Datei """ & strFile & """ n'a pas été trouvé!": Exit Sub
'Import erste Datei
Open strFile For Input As #1
Do While Not EOF(1)
Input #1, strTemp
Cells(lRow, 1) = strTemp
lRow = lRow + 1
Loop
Close #1
strFile = strPath & "b" & lNum & ".tab"
If Not FileExist(strFile) Then _
MsgBox "Datei """ & strFile & """ n'a pas été trouvé!": Exit Sub
'Import zweite Datei
Open strFile For Input As #1
Do While Not EOF(1)
Input #1, strTemp
Cells(lRow, 1) = strTemp
lRow = lRow + 1
Loop
Close #1

 

[Efgé]

Re : Problème pour la définition d'une variable

Bonjour Kristof,
Peut être avec

Dim lNum As String

Cordialement

 

[Kristof]

Re : Problème pour la définition d'une variable

Merci Efgé, il faut aussi supprimer "type:=1".

Kristof