Conaitre le chemin ss VBA97
oliv76n
Messages postés
31
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
17 octobre 2005
-
22 avril 2003 à 10:45
oliv76n Messages postés 31 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 17 octobre 2005 - 22 avril 2003 à 13:25
oliv76n Messages postés 31 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 17 octobre 2005 - 22 avril 2003 à 13:25
A voir également:
- Инстринв
- Mvn : le terme «mvn» n'est pas reconnu comme nom d'applet de commande, fonction, fichier de script ou programme exécutable. vérifiez l'orthographe du nom, ou si un chemin d'accès existe, vérifiez que le chemin d'accès est correct et réessayez. - Forum Java
- Vba chemin relatif ✓ - Forum VB.NET
- Chemin relatif ✓ - Forum C# / .NET
- Image chemin - Forum Visual Basic
- Chemin c ✓ - Forum C++ & C++ .NET
4 réponses
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
22 avril 2003 à 10:56
22 avril 2003 à 10:56
MsgBox CurDir
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
22 avril 2003 à 10:58
22 avril 2003 à 10:58
Sub Main()
Chemin = Left(CurrentDb.Name, InStrinv(CurrentDb.Name, "\ZZ"))
End Sub
Public Function InStrinv(Chaine1 As String, Chaine2 As String) As Integer
Dim Z As Integer, Y As String, OK As Boolean
Z = 0
While Not OK
Y = InStr(Z + 1, Chaine1, Chaine2)
If Y <> 0 Then
Z = Y
Else
OK = True
End If
Wend
InStrinv = Z
End Function
:clown) BasicInstinct :clown)
Chemin = Left(CurrentDb.Name, InStrinv(CurrentDb.Name, "\ZZ"))
End Sub
Public Function InStrinv(Chaine1 As String, Chaine2 As String) As Integer
Dim Z As Integer, Y As String, OK As Boolean
Z = 0
While Not OK
Y = InStr(Z + 1, Chaine1, Chaine2)
If Y <> 0 Then
Z = Y
Else
OK = True
End If
Wend
InStrinv = Z
End Function
:clown) BasicInstinct :clown)
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
22 avril 2003 à 10:59
22 avril 2003 à 10:59
oups
Sub Main()
Chemin = Left(CurrentDb.Name, InStrinv(CurrentDb.Name, ""))
End Sub
Public Function InStrinv(Chaine1 As String, Chaine2 As String) As Integer
Dim Z As Integer, Y As String, OK As Boolean
Z = 0
While Not OK
Y = InStr(Z + 1, Chaine1, Chaine2)
If Y <> 0 Then
Z = Y
Else
OK = True
End If
Wend
InStrinv = Z
End Function
:clown) BasicInstinct :clown)
Sub Main()
Chemin = Left(CurrentDb.Name, InStrinv(CurrentDb.Name, ""))
End Sub
Public Function InStrinv(Chaine1 As String, Chaine2 As String) As Integer
Dim Z As Integer, Y As String, OK As Boolean
Z = 0
While Not OK
Y = InStr(Z + 1, Chaine1, Chaine2)
If Y <> 0 Then
Z = Y
Else
OK = True
End If
Wend
InStrinv = Z
End Function
:clown) BasicInstinct :clown)
oliv76n
Messages postés
31
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
17 octobre 2005
22 avril 2003 à 13:25
22 avril 2003 à 13:25
merci.
Olivier.
Olivier.
