Microsoft 365 Ouverture d'un fichier sur sharepoint

[lesoldat9]

Bonjour à tous,

Je souhaiterai que ma macro ouvre un fichier qui se situe sur le SharePoint.
Le problème que je rencontre est que le nom du fichier est variable.
J'ai codé ceci la macro fonctionne sur mon bureau mais pas sur le sharepoint.

chem_macro = ThisWorkbook.Path & "\"
wbkmacro = ThisWorkbook.Name
Nomfichier = "*Statistique*.xlsx"
Feui1 = Workbooks(wbkmacro).Sheets(1).Name
Feui2 = Workbooks(wbkmacro).Sheets(2).Name
Feui3 = Workbooks(wbkmacro).Sheets(3).Name
Feui4 = Workbooks(wbkmacro).Sheets(4).Name
Feui5 = Workbooks(wbkmacro).Sheets(5).Name
Feui6 = Workbooks(wbkmacro).Sheets(6).Name
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Overview").Range("T5") = Sheets("Overview").Range("T5") + 1
If Sheets("Overview").Range("T5") > "1" Then GoTo traduction2


'*******************************************************************************************************************************************************
Workbooks.Open Filename:= _
chem_macro & Dir(chem_macro & Nomfichier)
'*******************************************************************************************************************************************************


Besoin de votre aide.

 

[don_pets]

Hello pour le chemin du sharepoint part plutôt sur un truc du genre

chemin = "https://TonNomDomaine.sharepoint.com/Ton adresse/"

 

[lesoldat9]

Hello pour le chemin du sharepoint part plutôt sur un truc du genre

chemin = "https://TonNomDomaine.sharepoint.com/Ton adresse/"

chem_macro= "https://sociallconnect.sharepoint.com/sites/FR-Agence/Administratif/1 - ADMINISTRATIF/4 - Reporting facturation clients/2023/0523/"
Nomfichier = "*Statistique*.xlsx"

Workbooks.Open Filename:= _
chem_macro & Dir(chem_macro & Nomfichier)

comme ceci?
Ca ne fonctionne pas non plus

 

[Phil69970]

Bonjour @lesoldat9 , @don_pets

Et comme ceci :

Dim Wbk as Workbook
Set Wbk = Workbooks.Open("https://monsharepoint/mondossier/monsousdossier/monfichierquivabien.xlsx")

Merci de ton retour

@Phil69970

 

[lesoldat9]

Bonjour @lesoldat9 , @don_pets

Et comme ceci :



Merci de ton retour

@Phil69970

Le soucis c'est que le nom de mon fichier à une partie variable ...

 

[Phil69970]

Re

Et bien tu adaptes un peu

Sub test()

Dim Wbk As Workbook, Chemin$, Fichier$
'Set Wbk = Workbooks.Open("https://monsharepoint/mondossier/monsousdossier/monfichierquivabien.xlsx")

Chemin = "https://monsharepoint/mondossier/monsousdossier/" '==> A adapter bien sur
Fichier = Range("A1")  '==> A adapter bien sur

Set Wbk = Workbooks.Open(Chemin & Fichier)

End Sub

Merci de ton retour

@Phil69970

 

[lesoldat9]

Re

Et bien tu adaptes un peu

Sub test()

Dim Wbk As Workbook, Chemin$, Fichier$
'Set Wbk = Workbooks.Open("https://monsharepoint/mondossier/monsousdossier/monfichierquivabien.xlsx")

Chemin = "https://monsharepoint/mondossier/monsousdossier/" '==> A adapter bien sur
Fichier = Range("A1")  '==> A adapter bien sur

Set Wbk = Workbooks.Open(Chemin & Fichier)

End Sub

Merci de ton retour

@Phil69970

On dirait bien que j'ai pas le choix.