Discussion :

[co_projet]

Bonjour tout le monde !

Débutant dans Excel je souhaite ouvrir un fichier (nommé fichier dans ce cas).


Le fichier se trouve toujours à cet emplacement:
Code: Tout sélectionner
C:\Users\"identifiant personnel différent pour chaque utilisateur"\Documents\fichier.xlsm


le problème :

Le fichier en question est crée de manière automatique dans le dossier document qui se situe dans un dossier nominatif (qui change entre toutes les personnes)

Si je donne ma macro a un collègue le fichier sera enregistré avec le chemin suivant : C:\Users\"Collègue"\Documents\fichier.xlsm
le chemin est différent pour chaque collègue (identifiant perso différent du mien)
On est tous sur le même réseaux.
On m'a parlé d'utiliser lune variable environnement
Je ne sais pas comment ça fonctionne.

Mon code actuel est le suivant: (j'utilise Windows 7 professionnel)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Chemin = Environ("homepath") & "\documents\Fichier.csv"                      'Le premier fichier csv trouvé
 
     Set Wbcsv = Workbooks.Open(Chemin)       'On ouvre le fichier csv qu'on affecte à la variable Wbcsv
     With Wbcsv.Sheets(1)
         LastLig = .Cells(.Rows.count, 1).End(xlUp).Row  'LastLig est la dernière ligne remplie du fichier csv ouvert
     End With
      With ThisWorkbook.Worksheets("IMPORT")
         For Each c In Wbcsv.Sheets(1).Range("A2:A" & LastLig)   'Pour chaque cellule de A2:Axxx
           NewLig = .Cells(.Rows.count, 1).End(xlUp).Row + 1   'la première cellule vide de la colonne 1 de Feuil1 de ce classeur
           Tablo = Split(c.Value, Sep)                     'On sépare les données par rapport au séparateur (ici le point virgule)
           .Range(.Cells(NewLig, 1), .Cells(NewLig, UBound(Tablo) + 1)).Value = Tablo   'on copie
        Next c
      End With
      Wbcsv.Close                                        'On ferme le fichier csv

Pouvez-vous m'aider.

Cdl

[unparia]

Bonjour
Regarde ce que te retourne ceci :

Code :

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

MsgBox Environ("SystemDrive") & Environ("HOMEPATh")

Pour le reste (identifiant de l'utilisateur) : tu ne précise pas s'il s'agit de
- son identifiant système --->>

Environ("UserName")

ou
- son identifiant d'utilisateur de l'appli --->>

Code :

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

Application.UserName

choisis celui que tu souhaites utiliser.
Le reste n'est que concaténation de chaînes de caractères.

[Invité]

Bonjour

Code :

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

1
2
Environ("UserProfile") & "\Documents\fichier.xlsm"
MsgBox reateObject("WScript.Shell").SpecialFolders("MyDocuments")

[kiki29]

Salut, pour info : Comment retrouver facilement le chemin des répertoires spéciaux Windows ?