Erreur 40036, Activation Feuille

Résolu

jaeggerboomb Messages postés 13 Statut Membre -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention - 26 avr. 2013 à 11:54

Bonjour tout le monde,
Je debute avec le visual basic et excel.
j'ai créé un classeur qui ouvre un autre puis sélectionne une feuille.
Il marchait tres bien j ai fait un copié coller du classeur et le code marche plus
j a' toujours la meme erreur 40036 "application defined or object defined error"
J'ai cherché sur les forums et j'ai rien trouvé.
voila mon code
Private Sub CommandButton15_Click()
Application.ScreenUpdating = False
Workbooks.Open Filename:="S:\Prod-Test\Tools\A SIGNER\Platines AC-DC\Masque Platine routine test - SG202412JEN-01 version B00.xls", _
UpdateLinks:=0, ReadOnly:=1
Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines").Select

j'ai l erreur sur la dernière ligne que je vous ai donné
je peut pas mettre les fichiers en ligne car ce sont des fichiers d'entreprise assez confidentiels
j'ai vérifié et la feuille "routine test platines" existe bien.
Je comprends pas pourquoi ca marchait et maintenant plus
SI vous pourriez m'aider ca serait genial :)
SVP et merci d'avance

Afficher la suite

3 réponses

Réponse 1 / 3

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
Bonjour,

Bon voilà, après étude de tes classeurs, l'erreur n'est pas dans cette macro...
En fait, tu as du code dans le module de la feuille Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Sheets("Routine Test Platines AC-DC"). Dans ce code, tu as deux procédures :
CommandButton2_Click() :
```
Private Sub CommandButton2_Click()
    Moduledate.dateent
    Moduleimpri.impri
   Moduletraca.CopyToTracabiliteByNox
Moduledatabase.test_data_base
 
 Modulesave.save
UserForm1.Hide
UserForm2.Show

End Sub

Private Sub CommandButton2_Click()
UserForm1.Show

End Sub
```
C'est impossible. Par conséquent, tu ne peux pas sélectionner ta feuille.
A toi de choisir....
3
1. jaeggerboomb Messages postés 13 Statut Membre 1
  
  Merci beaucoup ca marche !!!!! :)))
  y a pas un moyen de te remercier par hasard ...
  je suis tout nouveau sur ce forum donc je connais pas trop comment faire mais si y a un moyen dis moi ...
  en tout cas MERCI !!!!
  
  0
2. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  y a pas un moyen de te remercier par hasard ...
  Ben si, c'est fait :
  Merci beaucoup ca marche !!!!! :)))
  et même deux fois :
  en tout cas MERCI !!!!
  
  je suis tout nouveau sur ce forum donc je connais pas trop comment faire mais si y a un moyen dis moi ...
  En fait, il y a toujours moyen. Dès que tu as 5-10 minutes, tu passes par ici aider quelqu'un d'autre. C'est le principe ici.
  Avec tes connaissances (au vu de tes classeurs Excel), ça doit le faire.
  
  En tout cas, de rien et à plus.
  Franck
  
  0
Réponse 2 / 3
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
Bonjour,
Tu dis avoir fait un copié/collé de ce fichier. Vérifies le nom du classeur après ce copié-collé.
```
 Private Sub CommandButton15_Click() 
Application.ScreenUpdating = False 
Workbooks.Open Filename:="S:\Prod-Test\Tools\A SIGNER\Platines AC-DC\Masque Platine routine test - SG202412JEN-01 version B00.xls", _
 UpdateLinks:=0, ReadOnly:=1 
Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines").Select
```
3
1. jaeggerboomb Messages postés 13 Statut Membre 1
  
  J'ai vérifié et le nom est bon excel arrive a ouvrir le fichier c est vraiment au moment de selectionner la feuille que ca bug ...
  
  0
2. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  ????? Dur dur.
  Peux tu nous placer ici tout le code VBA de ton CommanButton?
  Ce CommandButton est sur une feuille d'un classeur ou dans un USerForm?
  
  0
3. jaeggerboomb Messages postés 13 Statut Membre 1
  
  ce command button est sur la feuille directement
  C est un code tres lourd et pas optimisé mais qui marche
  il copie des cellules d'un document dans l'autre et c'est tout au debut du code que ca bug
  je met quand meme tout le code
  
  Private Sub CommandButton15_Click()
  Application.ScreenUpdating = False
  Workbooks.Open Filename:="S:\Prod-Test\Tools\A SIGNER\Platines AC-DC\Masque Platine routine test - SG202412JEN-01 version B00.xls", _
  UpdateLinks:=0, ReadOnly:=1
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Sheets("Routine Test Platimnes AC-DC").Select
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  Dim quantite, A
  quantite = Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").TextBox2.Value
  For A = 1 To quantite
  
  Dim B
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(2, 2).Value
  Workbooks.Open Filename:="S:\Prod-Test\Tools\A SIGNER\Platines AC-DC\Masque Platine routine test - SG202412JEN-01 version B00.xls", _
  UpdateLinks:=0, ReadOnly:=1
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test Platines AC-DC").Range("N5").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(2, 4).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("Q5").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(5 + A, 1).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("J5").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = ComboBox6.Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("C5").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = TextBox2.Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("E7").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(2, 10).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("K7").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(2, 12).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("P7").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(2, 14).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("C9").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(2, 16).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("E9").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(2, 18).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("H9").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = ComboBox5.Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("M9").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = ComboBox3.Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("H55").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = ComboBox4.Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("E55").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 2).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N13").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 3).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N14").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 4).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N15").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 5).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N16").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 6).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N17").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 7).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N18").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 8).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N19").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 9).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N22").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 10).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N24").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 11).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N27").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 12).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N28").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 13).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N29").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 14).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N30").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 15).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N31").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 16).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N32").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 17).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N35").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 18).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N37").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 19).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N41").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 20).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N42").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 21).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N43").Value = B
  
  Workbooks("Tableau Platines AC-DC.xls").Worksheets("Table").Activate
  B = Cells(A + 5, 22).Value
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Sheets("Routine Test PCC").Range("N48").Value = B
  
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").Activate
  Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Worksheets("Routine Test Platines AC-DC").CommandButton1 = True
  Application.CutCopyMode = False
  ActiveWindow.Close
  Next
  Workbooks("Tableau Platines AC-DC.xls").Saved = True
  ActiveWorkbook.Save
  Application.Quit
  
  End Sub
  
  voila c est assez compliqué à expliquer tout ce qui se passe mais en gros ca copie des cellules dans un autre document appuie sur un bouton de cet autre document puis le ferme et fait ca le nombre de fois qu il faut jusq'à fermer le tableau
  
  0
4. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Si c'est un copié-collé de ton code, il y a une faute dans le nom de la feuille :
  Sheets("Routine Test Platimnes AC-DC").Select
  
  0
5. jaeggerboomb Messages postés 13 Statut Membre 1
  
  j ai corrigé ce copié collé et ca marche toujours pas
  j ai essayé de combiner toutes les possibilités avec worksheet ou sheet et activate et select mais aucun moyen de faire marcher
  
  0
Réponse 3 / 3
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
Essaye juste ce code :
```
Private Sub CommandButton15_Click() 
Application.ScreenUpdating = False 
Workbooks.Open Filename:="S:\Prod-Test\Tools\A SIGNER\Platines AC-DC\Masque Platine routine test - SG202412JEN-01 version B00.xls", _
 UpdateLinks:=0, ReadOnly:=1 
With Workbooks("Masque Platine routine test - SG202412JEN-01 version B00.xls").Sheets("Routine Test Platines AC-DC")
    MsgBox .Range("N5").Value
End With
End Sub
```
3
1. jaeggerboomb Messages postés 13 Statut Membre 1
  
  Merci
  J ai essayé et l'erreur se trouve maintenant sur la ligne
  MsgBox .Range("N5").Value
  
  0
2. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Sans ton classeur je crois que ça va être très très difficile de te répondre..........
  
  0
3. jaeggerboomb Messages postés 13 Statut Membre 1
  
  y aurait pas possibilité de te l'envoyer par mail histoire que nimporte qui passant sur internet ne puisse pas le telecharger ?
  
  0
4. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Je t'envoie mon mail perso en MP.
  
  0
5. jaeggerboomb Messages postés 13 Statut Membre 1
  
  Merci, C est super cool ;)
  
  0

Erreur 40036, Activation Feuille

3 réponses

Discussions similaires

Newsletters