Microsoft 365 Ouverture d'un fichier sur sharepoint

lesoldat9 · 14 Juin 2023

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.

Phil69970 · 15 Juin 2023

Re

Et bien tu adaptes un peu

VB:

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

don_pets · 14 Juin 2023

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

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

lesoldat9 · 14 Juin 2023

don_pets à dit:
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 · 14 Juin 2023

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 · 15 Juin 2023

Phil69970 à dit:
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 · 15 Juin 2023

Re

Et bien tu adaptes un peu

VB:

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 · 16 Juin 2023

Phil69970 à dit:

Re

Et bien tu adaptes un peu

VB:

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.

Microsoft 365 Ouverture d'un fichier sur sharepoint

lesoldat9

XLDnaute Occasionnel

Phil69970

don_pets

XLDnaute Occasionnel

lesoldat9

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

lesoldat9

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

lesoldat9

XLDnaute Occasionnel

Discussions similaires