Discussion :

[arnaud.forster]

Bonjour à tous,

Je dois développer un outils en VBA qui doit créer et déposer des fichiers Excel (budgets annuels) dans des canaux d'un groupe Teams. Ces canaux sont des dossiers Sharepoint.

Ma collègue et moi sommes les propriétaires du groupe Teams et des canaux de ce ce dernier. Nous avons les deux des ordinateurs faisant partie d'un domaine Microsoft (qui n'est pas géré par moi-même) ; le login étant notre adresse de messagerie professionnelle qui est également utilisé pour notre connexion à Office 365, de manière automatique.

Nous avons également, dans les policies de nos systèmes, la racine du chemin sharepoint déclaré en tant qu'emplacement approuvé et de confiance. (monecole.sharepoint.com/...)

Dans mon code VBA, je regarde en premier lieu si un dossier avec l'année en cours existe. Si il n'existe pas, je le crée et dépose ensuite le fichier Excel du budget de l'année en cours.

le code de contrôle du dossier est le suivant :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim MonRepertoire As Object
Dim Destinatin as String
Dim MonExcel As Excel.Application
Dim MonFichier As Excel.Workbook
 
Destination = "\\monEcole.Sharepoint.com\sites\Collgesdediscipline-ST-Gestiondesfinances-Administration\Freigegebene Dokumente\Administration\Budgets\2023\"
 
' Contrôle de la présence du répertoire
 
Set MonRepertoire = CreateObject("Scripting.FileSystemObject")
 
If Not MonRepertoire.FolderExists(MaDestination) Then
   MonRepertoire.CreateFolder (MaDestination)
End If
 
 
' Création du fichier Excel à partir d'un modèle
Set MonFichier = MonExcel.Workbooks.Open(MonFichierModele)
....
 
'Sauvegarde du fichier
' Pour une raison X , la variable MaDestinationDeSauvegarde contien le chemin au dossier Sharepoint au format https://monEcole.sharepoint.com/sites/Collgesdediscipline-ST-Gestiondesfinances-Administration..."
MonFichier.SaveAs (MaDestinationDeSauvegarde) 
 
MonFichier.Close SaveChanges:=False

Ce code fonctionne bien lorsque je lance l'application depuis mon poste. Par contre, lorsque ma collègue fait de même depuis son ordinateur (le programme étant sur un drive réseau), la partie de contrôle du répertoire échoue systématique alors que la partie de sauvegarde du fichier fonctionne bien.

Lors du contrôle du répertoire, le message suivant apparaît sur son poste. Il y a un refus d'accès ! Bref, cela fait des heures que j'essaie de comprendre mais suis à cours d'idée ...


Merci pour votre aide

[vodiem]

salut arnaud.forster,

Je ne pourrais pas te guider sur la résolution (potentiel) en ajoutant le site dans les emplacements approuvés. Tu trouveras de la littérature sur la toile pour cela.

En revanche je te propose d'essayer de contourner le problème en affectant une unité sur cet emplacement.
Là non plus je ne pourrais pas beaucoup te guider : il y a plusieurs façon de faire et certaines solutions dépendent du système d'exploitation. Souvent tu trouvera cette fonctionnalité dans l'explorateur sous le terme du genre 'connecter un lecteur réseau' avec l'option de le rendre permanent (réaffectation au démarrage du système).
Cela déportera ton problème hors Access et aura l'avantage de ne pas modifier ton code si l'url change.

[arnaud.forster]

Salut Vodiem et merci beaucoup pour les pistes ... je vais explorer cela dans la mesure de mes possibilités : en effet, les ordinateurs sont gérés au travers d'un domaine Windows et n'étant pas admin du domaine, certaines opérations ne me sont pas accessibles .. on verra

J'avais un peu laissé tomber la résolution car la création de dossiers dans Sharepoint depuis Access ne se fait qu'une fois par année. Pour cette année c'est fait ; je ne voulais donc pas perdre trop de temps avec ça.
Entretemps, j'ai eu une autre idée mais je n'ai pas testé : il s'agit de la version d'Access. Moi je possède la version qui provient du paquet 'Microsoft 365 Apps for entreprise' alors que ma collègue un simple version Microsoft Access pour Microsoft 365. Je me demande donc si le problème ne viendrait pas de cette différence .. à voir

Merci en tout cas pour les pistes ...
Amicalement,
Arnaud