Je crée une Macro qui me permet d'enregistrer automatiquement un fichier Excel sur le dique "C".
Je souhaite utiliser cette Macro sur plusieurs PC dont le User est différent.
Est-il possible de remplacer le nom du User(npi-form3.par) par un terme générique.
' Sauvegarde du fichier d'origine
With ActiveWorkbook
ActiveWorkbook.Save
'Enregistrement sur disque "C"
Dim Nom As String
Dim Prenom As String
Dim strFichier As String
Dim Formation As String
Nom = Range("D32")
Prenom = Range("F32")
Formation = Range("F18")
J'ai testé en remplaçant l'utilisateur "npi-form3.par" par Environ("UserName") mais cela ne fonctionne pas.
Il me manque certainement quelque chose en amont pour pouvoir remplacer le nom de l'utilisateur par je ne sais pas trop quoi.
Dim cheminb As String, chemind As String
'chemin du bureau de l'utilisateur windows
cheminb = CreateObject("WScript.Shell").specialFolders("Desktop")
'chemin du dossier mes documents de l'utilisateur windows
chemind = CreateObject("WScript.Shell").specialFolders("MyDocuments")
J'ai trouvé pourquoi l'enregistrement ne se fait pas ; il faut juste enlever les deux " de "chemind" car ils sont déjà présent dans cheminb = CreateObject("WScript.Shell").specialFolders("Desktop")
Maintenant çà fonctionne.
Encore merci à tous les deux -Gilbert et Pierrot - Reconnaissance éternelle -