Microsoft 365 Ma macro créé une copie au lieu de modifier le document cible

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

RemiLPL

XLDnaute Nouveau
Bonjour,

Je vous contact car j'ai un problème avec une macro qui utilise des documents sur un Teams.
Je souhaite prendre des informations d'une feuille excel et la copier dans un autre document excel. Mais quand je lance ma macro il créé un nouvel excel au lieu de modifier l'excel cible. Je ne sais pas pourquoi alors qu'avant cela fonctionnait bien. Je me demande si c'est un problème de droit mais je le lance avec mon compte microsoft et j'ai les droits de modifications sur le document source et le document cible.

Voila mon code
Sub CopierAgendas()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set agendas = Workbooks.Open("https://XXXX.sharepoint.com/❌/r/sit...ts et tests/Weekly Agendas Extract XXXXX.xlsm")
Set historique = Workbooks.Open("https://XXXXX.sharepoint.com/❌/r/si...artages/General/ZZZZ - RRRRR SSSSSS GGGG.xlsm")
agendas.Sheets(1).Delete
agendas.Sheets(1).Delete

historique.Sheets(1).Delete

ThisWorkbook.Sheets("AGENDA 1").Copy Before:=agendas.Sheets(1)
ThisWorkbook.Sheets("AGENDA 2").Copy Before:=agendas.Sheets(1)

ThisWorkbook.Sheets("HISTORIQUE 1B").Copy Before:=historique.Sheets(1)

agendas.Close SaveChanges:=True
historique.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
 
Bonsoir ...
t'es certain de tes chemein en utilisant le Protocol Http(s). C'est fait pour de la lecture uniquement ... normal qu'il arrive par à modifier.
de souvenir les URL à utiliser pour teams étaient plutôt du genre
Code:
//teamsites.monserveur.intranet/sites/mon-site/Shared Documents/mon-dossier/test.xls

j'ai pas mieux comme piste
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour