Problème de chemin d'accès

Fermé
hglp Messages postés 14 Date d'inscription vendredi 26 juin 2015 Statut Membre Dernière intervention 4 septembre 2015 - Modifié par hglp le 31/08/2015 à 15:20
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 4 sept. 2015 à 16:10
Bonjour j'ai programmé une application vba ouvrant des modèles excel et les modifiant. Pour ouvrir ces fichiers j'ai donc besoin de leur chemin d'accès. L'application marche très bien lorsque mes documents se trouvent sur mon disque C (ou autre). Je les appelle de la manière suivante :

ChDir "C:\Users\Moi\Desktop"
Workbooks.Open "Modèle.xlsm" ' par exemple

Or le but de cette application est d'être en réseau afin d'être utilisée par plusieurs utilisateurs.

J'ai donc essayé : ChDir "\\SERVEUR\partage\mon_dossier"
Workbooks.Open "Modèle.xlsm"

Mais ça ne fonctionne pas. Je n'ai pas trouvé de solutions.
Devant ouvrir une dizaine de fichier excel, est-ce que quelqu'un aurait une solution ?

Merci, bonne journée

3 réponses

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
31 août 2015 à 15:35
Bonjour,

essayez comme ceci

Workbooks.Open Filename:="\\SERVEUR\partage\mon_dossier\Modèle.xlsm"
0
hglp Messages postés 14 Date d'inscription vendredi 26 juin 2015 Statut Membre Dernière intervention 4 septembre 2015
Modifié par hglp le 4/09/2015 à 15:32
merci cela fonctionne pour l'ouverture d'un classeur !

J'ai aussi une fonction d'archivage :

' on prend un chemin

ChDir "C:\Users\stagiaire\Desktop\Archive " & ListAnnee

j'ai une erreur ici car ChDir "\\SERVEUR\partage\DOSSIER\Archive" ne marche pas

'On crée un nouveau classeur dans le dossier Archive de l'année

Set Wb = Workbooks.Add


' On nomme ce nouveau classeur

Wb.SaveAs ("C:\Users\stagiaire\Desktop\Archive " & ListAnnee & "\Arch_Déboursé_" & ListOS & "_" & ListAnnee & ".xlsx")


Workbooks.Open "Arch_Déboursé_" & ListOS & "_" & ListAnnee & ".xlsx" ' Ouverture du classeur


comment peut on transformer ceci ?

Il faut ouvrir le dossier \\SERVEUR\partage\DOSSIER\Archive 2015 à la place de l'emplacement sur le disque C et ensuite créer et sauvegarder le nouveau classeur.

Merci
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
4 sept. 2015 à 16:10
Bonjour,

Set Wb = Workbooks.Add
'On enregistre ce nouveau classeur
Wb.SaveAs ("\\SERVEUR\partage\DOSSIER\Archive " & ListAnnee & "\Arch_Déboursé_" & ListOS & "_" & ListAnnee & ".xlsx")


Comprends pas pour l'ouverture, sur quel disque ????????
0