Discussion :

[Simon1504]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Simon1504]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[joe.levrai]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBA.Environ("USERNAME")

[Simon1504]

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 ?

[Simon1504]

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

[joe.levrai]

je ne sais pas, je ne connais pas ton projet

soit tu le changes lors d'un besoin unitaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Simon1504]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:=" ?

[Simon1504]

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 !

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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