erreur dexécution 1004

Version imprimable

Pourriez vous m'aider sur cette erreur,
Comment arrive t'elle
Dans un premier temps je fais fonctionner la macro tous va bien, mais ensuite dès que je ferme la userform pour faire apparaite une feuille là le message d'erreur arrive.

message d'erreur:
Erreur d'exécution 1004
La méthode 'Sheets' de l'objet'_Global à échoué

code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton7_Click()
Dim oSource As Workbook, oCible As Workbook
Dim sPath As String, W As String
 
Application.ScreenUpdating = False
If MsgBox("Vous comfirmez la mise à jour des PVC vers les entrepots?", vbYesNo + vbQuestion, "Mise a jour des PVC") = vbYes Then
   Set oSource = ThisWorkbook
   sPath = oSource.Sheets("TONY").Range("A516").Value
   W = Dir(sPath & "*.xlm")
   Do Until W = ""
      Set oCible = Workbooks.Open(sPath & W)
      oCible.Worksheets("TARIF V BOVINE").Range("O6:W52").Value = oSource.Worksheets("TARIF V BOVINE").Range("E6:M52").Value
      oCible.Worksheets("TARIF PORC").Range("O6:W35").Value = oSource.Worksheets("TARIF PORC").Range("E6:M35").Value
      oCible.Worksheets("TARIF VEAU").Range("O6:W29").Value = oSource.Worksheets("TARIF VEAU").Range("E6:M29").Value
      oCible.Worksheets("TARIF AGNEAU").Range("O6:W19").Value = oSource.Worksheets("TARIF AGNEAU").Range("E6:M19").Value
      oCible.Worksheets("TARIF AGNEAU").Range("O25:W38").Value = oSource.Worksheets("TARIF AGNEAU").Range("E25:M38").Value
      oCible.Worksheets("TARIF AGNEAU").Range("O44:W51").Value = oSource.Worksheets("TARIF AGNEAU").Range("E44:M51").Value
      oCible.Worksheets("TARIF ABATS").Range("O6:W48").Value = oSource.Worksheets("TARIF ABATS").Range("E6:M48").Value
      oCible.Close True
      Set oCible = Nothing
      W = Dir()
   Loop
   MsgBox "Le transfert de vos nouveaux PVC vers les Entrepots est Terminé", vbInformation, "Information"
End If
End Sub

D'avance merci

19/01/2011, 19h06
Qwazerty

Salut
Tu n'aurais pas du code dans UserForm_QueryClose ou UserForm_Desactivate, enfin un code qui se lancerait à la fermeture de ton UserForm?
++
Qwaz
19/01/2011, 20h48
VELO1222

Bonsoir,
Non ni l'un, ni l'autre
Cdt
20/01/2011, 23h07
Qwazerty

Salut
As tu essayé de libérer oSource comme tu as liberé oCible?

Code:

Set OSource = nothing

Même si je n'y crois pas trop ça vaut le coup d'essayer.
++
Qwaz
22/01/2011, 19h16
VELO1222

Bonjour Qwazerty, bonjour le forum,
Je viens d'essayer ta proposition mais effectivement cela ne change rien toujours le meme message
Cdt
Tony
22/01/2011, 19h31
Qwazerty

Salut
Met un fichier, ça permettra de faire un teste.
++
Qwaz
23/01/2011, 19h37
VELO1222

Bonjour Qwaz,
je viens de faire un exemple comme tu me l'as demandé mais ca ne m'avance pas car l'exemple fonctionne sans probleme aucune erreur
Cdt
Tony
23/01/2011, 21h57
fring

Bonjour,

Dans ton code tu as

Code:

W = Dir(sPath & "*.xlm")

xlm :koi:
23/01/2011, 22h29
Qwazerty

Citation:

Envoyé par VELO1222

Bonjour Qwaz,
je viens de faire un exemple comme tu me l'as demandé mais ca ne m'avance pas car l'exemple fonctionne sans probleme aucune erreur
Cdt
Tony

:) Alors met toi 2 secondes à notre place, tu nous donnes un code, en disant que ça ne fonctionne pas comme tu veux, mais que, si tu met ce même code dans fichier pour faire un exemple simple, ça fonctionne...
J'en conclu que le problème ne vient pas du code (malgré le xlm soulevé par Fring), donc comment veux tu que l'on te vienne en aide, si tu nous donne un code qui marche ...??:aie:

++
Qwaz