Discussion :

[flav_cm]

Bonjour à tous,

Je fais une fois de plus appel à vous pour avoir quelques informations concernant à l'accès à des répertoires depuis du code vba dans Excel.

Je souhaiterais trouver des fichiers (et les ouvrir si ils existent, puis les enregistrer par exemple) depuis une procédure en donnant le chemin pour y accéder.

J'en suis pour le moment qu'à cette première étape initale :

Code :

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

1
2
3
 
Chemin = "C:\Utilisateurs\%USERNAME%\Bureau"
Workbooks.Open Chemin & "\0000.xlsx"

A l’exécution ça me retourne une erreur d'execution 1004 alors même que quand je tape "C:\Utilisateurs\%USERNAME%\Bureau\0000.xlsx" dans mon explorateur windows ça ouvre correctement le fichier (qui est donc bien présent).

Je souhaiterais donc savoir qu'est-ce qui pourrait bloquer l’accès de ma macro à des dossiers ?

Merci d'avance pour vos éléments.

[aziz1015]

Bonjour,

Est ce que sur votre disque C, il est connecté un lecteur réseau ?

Cordialement

[Invité]

Bonjour,

Code :

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

1
2
3
 
Chemin =Environ("UserProfie") & "\Desktop"
Workbooks.Open Chemin & "\0000.xlsx"

[flav_cm]

Bonjour et merci pour vos réponses.

Est ce que sur votre disque C, il est connecté un lecteur réseau ?

Je débute sur le travail dans les répertoires, je ne comprends pas vraiment votre question...

Et :

Code :

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

1
2
3
 
Chemin =Environ("UserProfie") & "\Desktop"
Workbooks.Open Chemin & "\0000.xlsx"

ne fonctionne pas...

[aziz1015]

Bonjour et merci pour vos réponses.



Je débute sur le travail dans les répertoires, je ne comprends pas vraiment votre question...

Et :

Pourrais tu faire un copier-coller du chemin exact que tu peux récupérer dans la barre en haut dans l'explorateur ? Par lecteur réseau, je parle d'un par exemple d'un lecteur auquel tout le monde dans un même réseau peut accéder à partir de son PC ! Alors est ce le cas ?

Cordialement

[Invité]

tu utilise quelle version d'excel et/ou Windows?

[flav_cm]

Lorsque j'ouvre les propriétés du fichier que je veux ouvrir, l'emplacement est : C:\Users\MonNom\Desktop.
Je ne souhaite même pas aller sur le réseau pour le moment, juste rester sur le disque de la machine.

J'utilise Microsoft Excel 2010 version 14.0.6129.5000 (32bits) sous Windows 7.

Code :

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

1
2
3
 
Chemin =Environ("UserProfie") & "\Desktop"
Workbooks.Open Chemin & "\0000.xlsx"

En rajoutant juste un petit "l" à UserPofiLe ça fonctionne, merci beaucoup.

Que fait la fonction environ exactement du coup ?

Encore merci, bonne après midi.

[78chris]

Bonjour

Sauf erreur de ma part, la chaîne contenant des espaces doit être encadrée par des ' ou ".

[Invité]

elle te retourne

Code :

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

C:\Utilisateurs\%USERNAME%

et ce quel que soit l'utilisateur de la session Windows!

[flav_cm]

Génial merci !

[Igloobel]

Bonjour,

sinon voici un tuto qui explique bien comment gérer les unités de disques, dossiers, sous dossiers, fichiers, etc...

http://warin.developpez.com/access/fichiers/

A+