message d'erreur d'éxecution '1004'

Version imprimable

bonjour le forum,
que signifie cette erreur qui parviens apres l'execution de cette macro

je fais lance le macro
la macro terminée j'effectue une execution exemple ouverture userform2
là apparait le message

erreur d'éxecution '1004'
La méthode 'sheets' de l'objet_'Global' à échoué

merci de votre aide
cdt

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CommandButton7_Click()
R = MsgBox("    Vous comfirmez la mise à jour des PVC vers les entrepots ?               ", vbYesNo + vbQuestion, "Mise a jour des PVC")
If R = vbYes Then
Application.ScreenUpdating = False
 
    Dim oCible As Workbook
    Dim sPath As String
    Dim W As String
 
    sPath = Sheets("TONY").Range("A516").Value
    W = Dir(sPath & "*.xlm")
 
    Do Until W = ""
        Set oCible = Workbooks.Open(Filename:=sPath & W)
 
Dim oSource As Workbook
 
Set oSource = Workbooks("TARIFAIRE v5.xlm")
 
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
 
 W = Dir()
Loop
Application.ScreenUpdating = True
End If
Select Case MsgBox("Le transfert de vos nouveaux PVC vers les Entrepots est Terminé", vbInformation, "Information")
Case vbOK
End Select
 
End Sub

As tu fais le pas à pas sur ce code? l'erreur est sur quelle ligne ?
sinon, ton code sera plus visible comme ceci

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
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
      W = Dir()
   Loop
   MsgBox "Le transfert de vos nouveaux PVC vers les Entrepots est Terminé", vbInformation, "Information"
End If
End Sub

15/01/2011, 13h34
VELO1222

Je viens de changer la macro initiale par la tienne
Elle fonctionne comme l'autre pas de probleme
en revanche la 1ere execution qui suit celle de la macro, je retrouve le message d'erreur
petite question comment effectuer le pas a pas sachant que la macro se trouve sur le bouton un uerform?
merci
cdt
15/01/2011, 13h45
mercatog

Citation:

en revanche la 1ere execution qui suit celle de la macro, je retrouve le message d'erreur

C'est ici qui n'est pas clair.

Citation:

petite question comment effectuer le pas a pas sachant que la macro se trouve sur le bouton un uerform?

tu peux entre autre faire un point d'arrêt sur la première ligne du code F9, et exécute normalement ton code, il va s'arrêter sur la ligne du point d'arrêt. tu continue par F8.
15/01/2011, 13h56
VELO1222

je viens d'effectué le test la macro fonctionne correctement
mais ensuite dès que j'effectue une autre demande exemple ouverture d'un userform là revient le message d'erreur
ps: le message apparait une seule fois et apres l'éxecution de la macro c'est tout
cdt
15/01/2011, 14h17
mercatog

le problème est donc dans l'initialize de ton userform, non?
15/01/2011, 15h56
VELO1222

mon fichier contient 16 userform
ils s'ouvrent et se ferment normalement

Par contre, je fais fonctionné la macro et dès que j'essaye d'ouvrir un userform le message d'erreur arrive
cdt

je viens de me rendre contre que c'est a l'affichage d'une feuille