G
gab
Guest
Bonjour,
Je désire créer ou utiliser des dossiers à la demande, en indiquant une variable, voici l'extrait d'une macro :
Dim varInput As Integer
varInput = InputBox("Création du fichier" & vbCrLf & " Merci d'indiquer les 6 derniers chiffres de l'identifiant.", "")
On Error Resume Next
strPath = "\\disk1\ABCDEF00" & varInput
x = GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
End If
Mon problème : si la variable entrée commence par un (ou plusieurs) zéros, ceux-ci ne sont pas pris en compte.
Exemple : la valeur à 6 chiffres entrée est 000123
le fichier créé est ABCDEF00123 au lieu de ABCDEF00000123.
Que dois-je faire ???!
help !! Merci d'avance !!
Je désire créer ou utiliser des dossiers à la demande, en indiquant une variable, voici l'extrait d'une macro :
Dim varInput As Integer
varInput = InputBox("Création du fichier" & vbCrLf & " Merci d'indiquer les 6 derniers chiffres de l'identifiant.", "")
On Error Resume Next
strPath = "\\disk1\ABCDEF00" & varInput
x = GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
End If
Mon problème : si la variable entrée commence par un (ou plusieurs) zéros, ceux-ci ne sont pas pris en compte.
Exemple : la valeur à 6 chiffres entrée est 000123
le fichier créé est ABCDEF00123 au lieu de ABCDEF00000123.
Que dois-je faire ???!
help !! Merci d'avance !!