cs_marco60
Messages postés14Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention 6 février 2010
-
18 janv. 2010 à 15:58
cs_marco60
Messages postés14Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention 6 février 2010
-
21 janv. 2010 à 16:54
bonjour je cherche a enregistrer un classeur excel
sur plusieurs poste sans connettre les comptes utilisateurs avec se bou de code il s'enregistre dans mes document alors que je voudrais l'enregistre dans le dossier extru
Private Sub CommandButton1_Click()
Dim utilisateur As Variant
utilisateur = Environ("username")
ActiveWorkbook.SaveAs
Application.DisplayAlerts = False
chemin1 = "c:\documents and settings\ & utilisateur \mes documents\exrtu"
fname1 = "classeur1.xls"
cela enregistre dans mes documents mais pas dans le classeur extru
c148270
Messages postés303Date d'inscriptionmercredi 12 janvier 2005StatutMembreDernière intervention 3 octobre 20131 19 janv. 2010 à 10:19
Bonjour
personnellement j'utilise le userprofile au lieu du username.
le userprofile correspond à :
c:\Documents and Settings\l'id de connexion.
par défaut.
Autre solution cette fonction :
Function Cherchemesdocuments()
Dim WshShell, oShellLink As Object
Dim strDesktop
Set WshShell = CreateObject("WScript.Shell")
Strmesdocuments = WshShell.SpecialFolders("mydocuments")
End Function
Le résultat est la cible de "Mes Documents"
c148270
Messages postés303Date d'inscriptionmercredi 12 janvier 2005StatutMembreDernière intervention 3 octobre 20131 20 janv. 2010 à 08:07
Bonjour
Voici comment vérifier et , éventuellement créer un répertoire s'il n'existe pas.
If FileFolderExists("F:\Templates") Then
MsgBox "le répertoire existe"
Else
MsgBox "le répertoire n'existe pas, on le crée"
MkDir "c:\TOTN\Examples\Files"
c148270
Messages postés303Date d'inscriptionmercredi 12 janvier 2005StatutMembreDernière intervention 3 octobre 20131 21 janv. 2010 à 11:28
Bonjour
Bon une dernière fois.
Function Cherchemesdocuments()
Dim WshShell, oShellLink As Object
Dim strDesktop
Set WshShell = CreateObject("WScript.Shell")
Strmesdocuments = WshShell.SpecialFolders("mydocuments")
If Dir$(Strmesdocuments & "\exrtu") <> vbNullString Then
MsgBox "le répertoire existe"
Else
MsgBox "le répertoire n'existe pas, on le crée"
MkDir Strmesdocuments & "\exrtu"
End If
End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_marco60
Messages postés14Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention 6 février 2010 19 janv. 2010 à 15:26
je cherche a sauvegarder un classeur excel sur plusieurs pc donc comme je ne connais pas leur compte utilisateur
je veux que le dossier extru se cré dans mes documments et que le classeur s'enregiste dans le dosier extru
merci
cs_marco60
Messages postés14Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention 6 février 2010 20 janv. 2010 à 17:41
bonjour
je suis un nul
j'essai de tester pour utiliser la fonction cherche mes documment mais je n'arrive pas a l'utilise
Private Sub CommandButton1_Click()
Dim a
a = Cherchemesdocuments()
MsgBox ("chemin = " & a)
End Sub
j'esperrait avoir le chemin dans la boite de dialogue
mais je suis nauvais