sauvegarder un fichier sur plusieur pc sans connetre le compte utilisateurRésolu

Question

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

lolokun · Accepted Answer

Bonjour,

Essayes comme ça :
"c:\documents and settings" & utilisateur & "\mes documents\extru"


L'expérience, c'est une connerie par jour, mais jamais la même..

c148270 · Answer

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"

Bonne journée

cs_marco60 · Answer

bonjour lolokum  sa fait la meme chose sa sauvegarde dans mes documents et pas dans extru

cs_marco60 · Answer

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

c148270 · Answer

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"

End If

A vous de jouer avec les éléments de réponse

Bonne journée

cs_marco60 · Answer

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

c148270 · Answer

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

cs_marco60 · Answer

ok merci sa marche

Sauvegarder un fichier sur plusieur pc sans connetre le compte utilisateur

8 réponses

Votre réponse