Discussion :

[Mistigri5]

Bonjour! J'espère que vous allez bien! J'ai un petit soucis avec un fichier Excel, j'ai créé une macro sous un fichier À dans lequel j'ai une macro qui ordonne l'ouverture d'un fichier B. Une fois que le fichier B est ouvert la fin de la macro du fichier À ne s'exécute pas. Auriez vous une solution!? Merci beaucoup et bien entendu je reste à votre dispositions si vous souhaitez des infos complémentaires !

[mercatog]

Bonjour
Il faudra d'abord montrer ton code avec des explications

[Mistigri5]

Bonsoir!

Alors j'ai créée une fonction que j'ai utilisé dans la macro. Je vous mets ci dessous la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function ouverture_fichier()
    Dim wbExcel As Excel.Workbook
 
    Set wbExcel = Application.Workbooks.Open("G:\chemin_du_fichier_excel_a_ouvrir\fichier_a_ouvrir.xls")
'Je fais patienter la macro durant 20 secondes pendant que les liens du fichier à ouvrir se mettent à jour    
    Sleep 20000
 
'Je sauve et ferme le fichier 
    activeworkbooks.Save
    activeworkbooks.Close
End Function

Voila la donc la fonction que j'appelle dans ma macro....mais un e fois le fichier ouvert...plus rien ne se passe : la suite de la macro n'est pas executée.

Je reste bien entendu à votre dispositinio si vous souhaitez plus de renseignements.

Bonne soirée à vous les amis!

Cordialement,

Mistigri

[arosec]

Bonsoir,

N'utilise pas activeworkbook mais wbExcel...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ouverture_fichier()
Dim wbExcel As Excel.Workbook

Set wbExcel = Application.Workbooks.Open("G:\chemin_du_fichier_excel_a_ouvrir\fichier_a_ouvrir.xls")
'Je fais patienter la macro durant 20 secondes pendant que les liens du fichier à ouvrir se mettent à jour 
Sleep 20000

'Je sauve et ferme le fichier 
wbExcel.Save
wbExcel.Close
set wbExcel = nothing
End Function

Cdlt,

[Mistigri5]

Merci beaucoup, effectivement ça fonctionne parfaitement, c'est top!