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
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