Bonjour à tous,
Le code suivant est inscrit dans le userform1 du classeur1
Le but est 1) d'ouvrire le classeur nommée P1 2) Update les liens (vers internet)
et 3) afficher le userform du classeur P1
Le poblème est que le update ne se fait pas. Dans les faits, le userform du classeur P1 s'ouvre mais avant que le update soit fait.
Je dois fermer le userform du classeur1 pour que le update ce face
Lorsque je fait rouler la macro pas à pas avec la touche F8, Je remarque que celle-ci arrête à Application.Run ("P1.xls!UF1")
Bloomby
Le code suivant est inscrit dans le userform1 du classeur1
Le but est 1) d'ouvrire le classeur nommée P1 2) Update les liens (vers internet)
et 3) afficher le userform du classeur P1
HTML:
Private Sub OpenP1_Click()
Label1.Caption = "Traitement en cours"
Workbooks.Open Filename:=ThisWorkbook.Path & "\P1.xls", UpdateLinks:=3
Application.Run ("P1.xls!UF1")
Label1.Caption = "Traitement terminé"
'Workbooks("P1.xls").Activate
ActiveWindow.Close
End Sub
Le poblème est que le update ne se fait pas. Dans les faits, le userform du classeur P1 s'ouvre mais avant que le update soit fait.
Je dois fermer le userform du classeur1 pour que le update ce face
Lorsque je fait rouler la macro pas à pas avec la touche F8, Je remarque que celle-ci arrête à Application.Run ("P1.xls!UF1")
Bloomby
Dernière édition: