Paramétrage du chemin avec nom d'utilisateur variable

Bonjour à tous,

Je travail sur un drive (en l’occurrence OneDrive) et j'aimerai pouvoir créer un module qui définit le nom d'utilisateur du chemin afin de pouvoir automatiser la portabilité de mes modules.
Avec un exemple ça devrait être plus clair:

- Voici un module qui créer une structure de dossier de réception de fichiers

Code:

---

1 2 3 4 5 6 7

Sub Structuredossier()   Call Module33.NomUtilisateur   MkDir "C:\Users\" & NomUtilisateur & "\OneDrive\Data\Chaîne detraitement"   End Sub

---

Le module 33 est le suivant:

Code:

---

1 2 3 4 5 6

Sub NomUtilisateur()   Dim NomUtilisateur As String NomUtilisateur = "Prénom nom" 'Prénom et Nom varient en fonction de l'utilisateur   End Sub

---

Quand je lance mon module Structuredossier il me surligne NomUtilisateur sur la ligne -> MkDir "C:\Users\" & NomUtilisateur & "\OneDrive\Data\Chaîne detraitement" avec l'erreur Fonction ou variable attendue.

Clairement je m'y prends mal à priori. Mais je me suis déjà pas mal creuser la tête pour essayer de modifier mes chemins dans mes différents modules afin de pouvoir avec juste une simple manipulation en amont changer le nom d'utilisateur dans ces chemins.

Quelqu'un a-t-il de comment je pourrais procéder ?

Code:

---

1 2 3 4 5 6

Sub Structuredossier()   Dim NomUtilisateur As String NomUtilisateur = "Prénom Nom"   MkDir "C:\Users\" & NomUtilisateur & "\OneDrive\Data\Chaîne detraitement"

---

Ça fonctionne comme ça... Il faut que je trouve un moyen d'appeler le paramétrage Dim dans tous mes modules, est-ce possible ?

Bonjour,

as-tu essayé de récupérer le nom d'utilisateur via la fonction Environ() ?

Code:

---

VBA.Environ("USERNAME")

---

Non je ne connaissais pas l'existence de cette fonction, j'essaye de me familiariser avec, merci :)

Je dois insérer cette fonction dans tous mes modules ?

Merci joe.levrai, j'ai compris comment cela fonctionnait et à priori ça marche bien :)
Bonne journée à toi !

je ne sais pas, je ne connais pas ton projet

soit tu le changes lors d'un besoin unitaire

Code:

---

MkDir "C:\Users\" & VBA.Environ("USERNAME") & "\OneDrive\Data\Chaîne detraitement"

---

soit, en cas d'enchainement de procédures, utiliser une variable publique qui va une seule fois associer ta variable au nom de l'utilisateur

Code:

---

1 2 3 4 5

Public MonUser As String   Sub MonUtilisateur() MonUser = VBA.Environ("USERNAME") End Sub

---

Tu appelles la procédure MonUtilisateur UNE SEULE FOIS, au tout début du traitement de ton enchainement de procédures, et après tu utilises la variable MonUser partout sans devoir modifier par la suite tes procédures appelées

Bon ça marche bien pour mon module qui crée la structure des dossiers.

En revanche, y'a une erreur sur "l'enregistrement sous" dans cette macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub ProcessFilesindividus() Dim File As String, Pathname As String, Pathsave As String Dim wb As Workbook Application.DisplayAlerts = False   Pathname = "C:\Users\" & VBA.Environ("USERNAME") & "\OneDrive\Data\Chaîne de traitement\Table individus\Chaîne 300 pour la création de la base individus\Fichiers copiés\" Pathsave = "C:\Users\" & VBA.Environ("USERNAME") & "\OneDrive\Data\Chaîne de traitement\Table individus\Fichiers traités\" File = Dir(Pathname & "*.xls") Do While File <> "" Set wb = Workbooks.Open(Pathname & File) Macromiseenformeindividus wb ActiveWorkbook.SaveAs Filename:=Pathsave & ActiveWorkbook.Name wb.Close File = Dir() Loop End Sub

---

L'erreur est sur ActiveWorkbook.SaveAs avec comme erreur "La méthode 'SaveAs' de l'objet '_Workbook' a échoué. Y'a t-il une incompatibilité de VBA.Environ avec le "ActiveWorkbook.SaveAs Filename:=" ?

Bon en fait, c'est une erreur grossière de ma part, le chemin Pathsave n'étati tout simplement pas bon... Je m'en excuse.

Cela marche très bien, encore emrci joe.levrai !

Code:

---

environ("UserProfile") & "\OneDrive\Data\Chaîne de traitement\Table individus\Chaîne 300 pour la création de la base individus\Fichiers copiés\"

---