Discussion :

[jojo86]

Bonjour,

J'ai un fichier sucéptible de recevoir une mise à jour.
Au lancement de ce fichier, je regarde s'il existe une mise à jour, s'il en existe une, je voudrais remplacer le fichier en cours par le nouveau fichier.

J'arrive à rappatrier le nouveau fichier, mais si je l'ouvre avec la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open Filename:=Chemin + NomFichier(CStr(NomFichierFull))

Mon code s'arrete sur cette ligne... Or la ligne suivante étant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.Close

Donc j'ai deux classeur d'ouvert alors que j'en voudrais qu'un seul...

Merci de votre aide à tous.

[aalex_38]

bonjour,


etonnant !
Je viens de faire un test qui fonctionne sans problème chez moi, dans un fichier nommé test2 (un fichier test1 existe dans le même repertoire) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub test1()
On Error GoTo fin
Application.DisplayAlerts = False
 
Workbooks.Open Filename:=ThisWorkbook.Path & "\test1.xls"
ThisWorkbook.Close
 
' ---------------------------------------------------------- '
fin:
Application.DisplayAlerts = True
If Err.Number > 0 Then
    MsgBox "erreur :" & Err.Number & vbCr & "Description : " & Err.Description
End If
' ---------------------------------------------------------- '
End Sub

Ce code ouvre bien test1 et ferme test2.

[jojo86]

C'est peut être parceque j'ai une macro sur le WorkBook_Open de mon deuxième fichier?

Je refais un test

[aalex_38]

Re,

C'est peut être parceque j'ai une macro sur le WorkBook_Open de mon deuxième fichier?

Je viens de faire un test avec open dans le 2eme fichier, cela fonctionne sauf si j'ai un arrêt de la macro (j'ai testé avec end)

[jojo86]

Helas c'est bien ça mon problème...

J'ai une macro sur le WorkBook_Open du fichier2... Donc la macro du premier fichier se poursuit...
Il y aurait une parade pour ça ou bien je suis cuit?

Merci Ã* vous !

Re, Je viens de faire un test avec open dans le 2eme fichier, cela fonctionne sauf si j'ai un arrêt de la macro (j'ai testé avec end)

Le soucis c'est que j'ai des UserForm Dans le WorkBook_Open... Il n'existe pas de After_Open en Plus...

[aalex_38]

Tu peux fermer le fichier appelant dans ta procédure open
Et pour bien te former, les cours et tutoriels pour apprendre Excel : https://excel.developpez.com/cours/

[Didier Gonard]

Bonjour,

En toute logique, vu que l'on ferme le fichier appelant en cours d'exécution vbastique, ça devrait couper la chique au vba...

Ce qui n'empêche pas de relancer avec un bouton au autre, mais adieu le workbook.open ?

une autre piste serait d'ouvrir le classeur cible dans une nouvelle instance, ça dépend du contexte d'utilisation...

genre dans le classeur appelant, si le test est OK :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub lansseur()
Dim ApExc As New Excel.Application
 
ApExc.Visible = True
ApExc.Workbooks.Open Filename:=ThisWorkbook.Path & "\TestAppelé.xls"
Application.WindowState = xlMinimized
ThisWorkbook.Close savechanges:=False ' cette ligne-ci ou en dessous...
' Application.Quit ' ou ainsi, mais brutal, tester ce qu'il faut avant !!!
End Sub

+ tests de présence etc... comme indiqué par Aalex_38
cordialement,

Didier