Erreur 40036, Activation Feuille

Résolu/Fermé

jaeggerboomb Messages postés 13 Date d'inscription jeudi 25 avril 2013 Statut Membre Dernière intervention 2 mai 2013 - 25 avril 2013 à 09:59
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 26 avril 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

A voir également:

Tinder error 40036
Tinder incognito - Accueil - Outils
Cmos checksum error ✓ - Forum Carte-mère/mémoire
Tinder apk - Télécharger - Rencontre
Eespt technical error ✓ - Forum TNT / Satellite / Réception
Localisation tinder application inactive - Forum Réseaux sociaux

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
26 avril 2013 à 11:14

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....

jaeggerboomb Messages postés 13 Date d'inscription jeudi 25 avril 2013 Statut Membre Dernière intervention 2 mai 2013 1
26 avril 2013 à 11:19

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 !!!!

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
26 avril 2013 à 11:54

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

Réponse 2 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
25 avril 2013 à 10:59

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

jaeggerboomb Messages postés 13 Date d'inscription jeudi 25 avril 2013 Statut Membre Dernière intervention 2 mai 2013 1
25 avril 2013 à 11:04

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 ...

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
25 avril 2013 à 11:11

????? 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?

jaeggerboomb Messages postés 13 Date d'inscription jeudi 25 avril 2013 Statut Membre Dernière intervention 2 mai 2013 1
25 avril 2013 à 12:02

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
25 avril 2013 à 12:11

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

jaeggerboomb Messages postés 13 Date d'inscription jeudi 25 avril 2013 Statut Membre Dernière intervention 2 mai 2013 1
25 avril 2013 à 12:23

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

Réponse 3 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
25 avril 2013 à 12:54

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

jaeggerboomb Messages postés 13 Date d'inscription jeudi 25 avril 2013 Statut Membre Dernière intervention 2 mai 2013 1
25 avril 2013 à 16:20

Merci
J ai essayé et l'erreur se trouve maintenant sur la ligne
MsgBox .Range("N5").Value

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
25 avril 2013 à 16:21

Sans ton classeur je crois que ça va être très très difficile de te répondre..........

jaeggerboomb Messages postés 13 Date d'inscription jeudi 25 avril 2013 Statut Membre Dernière intervention 2 mai 2013 1
26 avril 2013 à 08:07

y aurait pas possibilité de te l'envoyer par mail histoire que nimporte qui passant sur internet ne puisse pas le telecharger ?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
26 avril 2013 à 08:19

Je t'envoie mon mail perso en MP.

jaeggerboomb Messages postés 13 Date d'inscription jeudi 25 avril 2013 Statut Membre Dernière intervention 2 mai 2013 1
26 avril 2013 à 08:40

Merci, C est super cool ;)

Discussions similaires

Payer abonnement Tinder discrètement

Ordi lenovo fan error

panne zimbra free erreur 413

message d'erreur network error

Iptv smarters pro Network error occured! Please try again