Bug sur procédure

[jcdelorient]

Bonjour à tous

Je ne m'en sors pas !!!!!!!!!!!!!
Sur cette procédure j'ai une erreur 1004 / document non enregistré et erreur accès chemin fichier. sur : ActiveWorkbook.Save et Close


J'ai essayé plusieurs procèdure sans succès (j'ai pas essayé la bonne !!)

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim wb As Workbook
If Sheets("Emargement_A").Range("A1") = "Libre" Then
Set wb = Workbooks.Open("C:\My Dropbox\OQP.xls")
Workbooks("OQP.xls").Sheets("Feuil1").Range("A1") = "OQP"
Workbooks("OQP.xls").Save
Workbooks("OQP.xls").Close
Else
MsgBox "Le fichier de gestion est actuellement en cours d'utilisation " & Chr(13) & Chr(13) & _
"Merci de réessayer plus tard" & Chr(13) & Chr(13) & "Merci de quitter le programme", vbOKOnly, "Attention"
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
'Application.DisplayAlerts = True
Exit Sub
End If
.......

Merci de votre aide
Je ne prendrai connaissance de vos messages que ce soir

JC

 

[skoobi]

Re : Bug sur procédure

Bonjour jcdelorient,

Est-ce que ton fichier contenant la macro est en lecture seul?
Si oui, tu sais ce qu'il te reste à faire.

 

[jcdelorient]

Re : Bug sur procédure

Hello,

Non pas de lecture seule !! malheuresement !!!!!

JC

 

[skoobi]

Re : Bug sur procédure

Re,

si c'est bien le fichier contenant la macro que tu veux enregistré, essaye avec ThisWorkbook à la place de ActiveWorkbook.
Cela dit, comme ton code n'a rien modifié dans le fichier conteneur à ce moment là, je ne vois pas pourquoi un enregistrement.

 

[jcdelorient]

Re : Bug sur procédure

Mais je rêve !!!!!!!!!!!!!!!!!!!!!
J'aurais parier d'avoir utiliser activeworkbook.close !

ai réessayé et miracle ...................

Merci bcp

JC