Bonjour à tous,
J'ai déposé un ensemble de fichier Excel sur un espace sharepoint, et je souhaite pouvoir obtenir le même fonctionnement de mes macros sur ce site, que celui que j'avais en local.
Contexte : parcourir un répertoire et travailler sur les fichiers qu'il contient :
Cet extrait de code fonctionne en local, mais l'instruction Dir retourne une erreur sur le site sharepoint, car elle n'est pas en mesure de parcourir un chemin du style https:\\toto\titi
Quelqu'un a-t-il une idée ?
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 gtChemin = ActiveWorkbook.Path On Error GoTo ErrFct gtRepDos = Dir(gtChemin & "\*.*", vbDirectory + vbHidden) '* While gtRepDos <> "" gtRepDos = Dir() gtRepDos = UCase(gtRepDos) If gtRepDos = "Dossiers" Then bRetour = True GoTo FinFct End If Wend ErrFct: tMessage = "Pas d'accès possible au répertoire DOSSIERS dans le chemin " & gtChemin iReponse = MsgBox(tMessage, vbOKOnly, tTitre)
Par avance, merci.
Partager