Problème de chemin d'accès
hglp
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Problème de chemin d'accès
- Acces rapide - Guide
- Accès refusé - Guide
- Trousseau d'accès iphone - Guide
- Accès presse papier - Guide
- Aucun chemin de connexion discord - Forum Discord
3 réponses
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
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