Fermeture et reouverture de Fichier = plantage d'Excel

Bonjour à tous,

Je travailles actuellement avec deux fichiers Excel, Le fichier "sources" nommer Extraction et le fichier qui va traité les données de la source " Glims extraction courriers"

en fin de manipulation je fais une sauvegarde du fichier Extraction sous le format ExtractionAAAAMMJJ

Le fichier "Glims extraction courriers" va être lui sauvegarder sous "CourriersAAAAMMJJ"

Puis j'ouvre le fichier "CourriersAAAAMMJJ"

Puis enfin je ferme mon fichier Glims extraction courriers. sans sauvegarde!

Sub WbClose()
Set Wb_Ext = Workbooks("Extraction")
Set Wb_Mas = Workbooks("Glims Extraction-Courriers")
rep = Wb_Mas.Path
strdate = Format(Date, "yyyymmdd")
Wb_Ext.SaveCopyAs rep & "\Extractions\" & "Extraction" & strdate & ".xls"
Wb_Ext.Close False
Set Wb_Ext = Nothing
Wb_Mas.SaveAs rep & "\Courriers\" & "Courrier" & strdate & ".xlsm"
Application.Workbooks.Open rep & "\Courriers\" & "Courrier" & strdate & ".xlsm"
Wb_Mas.Close False
Set Wb_Mas = Nothing
End Sub

Mais j'ai quasiment tout le temps un plantage d'Excel qui lorsqu'il redémarre me propose de récupérer le dernier fichier ouvert soit "CourriersAAAAMMJJ"

du coup pour evité que cela plante j'ai rajouté entre chaque opération de la macro, une temporisation de la macro d'une seconde! ( j'ai testé jusqu'à 5 secondes!)

Application.Wait Time + TimeSerial(0, 0, 1)

Mais cela n'empêche pas le plantage d'Excel,

Avez vous des idées, pour éviter ce problème

Merci pour vos idées ou solutions !

Bonjour,

lorsque vous enregistrer sous,

Wb_Mas.SaveAs rep & "\Courriers\" & "Courrier" & strdate & ".xlsm"

ce nouveau fichier est ouvert et le fichier d'origine est fermer.

alors la commande suivante est inutile, vous devez l'enlever

Application.Workbooks.Open rep & "\Courriers\" & "Courrier" & strdate & ".xlsm"

Ah merci sabv pour l information je test dès que j'ai un clavier sous les doigts

Bonjour Savb,

Bon apriori c'est pas ca, car lorsque je retire

Application.Workbooks.Open rep & "\Courriers\" & "Courrier" & strdate & ".xlsm"

tout se ferme bien mais mon fichier Courrier n'est pas ouvert contrairement à ton explication. Je me demande si c'est pas juste un problème de ressource mémoire car parfois sur certain pc ca passe sans planter.

par contre si je passe le temps d'attente à à 10 secondes ca passe presque à chaque fois sans plantage. bizarre !