Obtenir le chemin absolu (en \\nomMachine\) d'un fichier sous vba
yocrita
Messages postés
21
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
17 août 2007
-
21 oct. 2005 à 09:28
olixelle Messages postés 506 Date d'inscription vendredi 30 juillet 2004 Statut Membre Dernière intervention 3 mars 2008 - 21 oct. 2005 à 19:15
olixelle Messages postés 506 Date d'inscription vendredi 30 juillet 2004 Statut Membre Dernière intervention 3 mars 2008 - 21 oct. 2005 à 19:15
A voir également:
- Obtenir le chemin absolu (en \\nomMachine\) d'un fichier sous vba
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Byval vba - Conseils pratiques -Visual Basic / VB.NET
- Commentaire en vba ✓ - Forum Visual Basic
1 réponse
olixelle
Messages postés
506
Date d'inscription
vendredi 30 juillet 2004
Statut
Membre
Dernière intervention
3 mars 2008
2
21 oct. 2005 à 19:15
21 oct. 2005 à 19:15
'dans un module :
private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetPCName() As String
Dim nom As String
nom = Space$(255)
Call GetComputerName(nom, Len(nom))
'pour vba et vb
GetPCName = Mid(nom, 1, InStr(nom, Chr(0)))
'pour vb seulement
'GetPCName = Split(nom, Chr(0))(0)
End Function
et tu appelles cette fonction comme ça où tu veux :
var_nom_du_pc = GetPCName 'nom de la machine !!!!!!
(le code, jlé piqué à http://www.vbfrance.com/forum.v2.aspx?ID=576625)
private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetPCName() As String
Dim nom As String
nom = Space$(255)
Call GetComputerName(nom, Len(nom))
'pour vba et vb
GetPCName = Mid(nom, 1, InStr(nom, Chr(0)))
'pour vb seulement
'GetPCName = Split(nom, Chr(0))(0)
End Function
et tu appelles cette fonction comme ça où tu veux :
var_nom_du_pc = GetPCName 'nom de la machine !!!!!!
(le code, jlé piqué à http://www.vbfrance.com/forum.v2.aspx?ID=576625)
