Discussion :

[VELO1222]

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 :

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

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

[mercatog]

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

Code :

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

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

[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

[mercatog]

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.

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.

[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

[mercatog]

le problème est donc dans l'initialize de ton userform, non?