Erreur d'exécution 424 objet requis

Résolu
nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention   -  
nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai un macro d'extraction ce msg il s'affiche tt le temps je ss pas le problem d'ou il vient?!!

erreur d'exécution 424 objet requis
voila le problem 
Private Sub UserForm_Activate()
    Dim i As Integer
    i = 0
    For Each Workbook In Application.Workbooks
     'MsgBox Classeur.FileFormat
  (ce ligne en jaune)   StartFile.AddItem Classeur.Name '& "." & Classeur.FileFormat
     DestinationFile.AddItem Classeur.Name '& "." & Classeur.FileFormat
    Next

WhereSearch.AddItem "Ligne"
WhereSearch.AddItem "Colonne"
End Sub


EDIT :Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

3 réponses

Réponse 1 / 3
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Tu écris : 
 For Each Workbook In Application.Workbooks

Et après... tu lui demandes : 
Classeur.Name


Normal qu'il ne trouve pas......


Remplace ton for each comme ceci : 

 For Each Classeur In Application.Workbooks



0
Réponse 2 / 3
nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention  
 
Ou je dois écrie ça? veuillez me précisez svp
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Heu... tu as en tout et pour tout ...8 Lignes de code .......
Et UNE SEULE .. où il est écrit FOR EACH....
Tu ne devrais pas avoir trop de mal à trouver non ?? 

Private Sub UserForm_Activate()
    Dim i As Integer
    i = 0
' ....c'est à La ligne juste en dessous ...:.. comme ceci :
    For Each Classeur In Application.Workbooks
     'MsgBox Classeur.FileFormat
     StartFile.AddItem Classeur.Name '& "." & Classeur.FileFormat
     DestinationFile.AddItem Classeur.Name '& "." & Classeur.FileFormat
    Next

WhereSearch.AddItem "Ligne"
WhereSearch.AddItem "Colonne"
End Sub
0
Réponse 3 / 3
nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Bc votre methode est tres bonne, ms j'ai recu un autre problem c'est qu'on j'ai excute ma macro il m'affiche ce msg : erreur de compilation
membre de méthode ou de données introuvable

voici le code: 

'Else 

Progression.Show vbModeless 
Progression.Evolutionbar2.Visible = False 
'Progression.Evolutionbar2.Visible = False 
Progression.Evolutionbar2.Max = x + 1 
'Progression.Evolutionbar2.Min = 0 
'Progression.Evolutionbar2.Value = 0 
Progression.Evolutionbar2.Value = Progression.Evolutionbar2.Value + 1 
Progression.Evolutionbar1.Max = LimitNB 
Progression.Evolutionbar1.Min = 0 
Progression.Repaint 
End If


merci de m'aider c urgeant mrc infiniment

EDIT : Ajout des balises de code
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

L'urgence n'est que pour toi ...
Tous les intervenants sur ce forum le font sur leur temps libre ......

Ensuite....
Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code



Et enfin....
A quelle LIGNE de code te donne t'il l'erreur ?
Es tu sûr que ton Userform se nomme bien (ecrit exactement pareil ) Progression ?
Même question pour ta progressBar : Evolutionbar2
Que valent tes variables : LimitNB et X au moment du plantage ? ( pour cela.. testes ton code en mode pas à pas....)
0
nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention  
 
NB :cette macro marche dans un autre pc et mon ne marche pas!!!!
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752 > nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention  
 
C'est peut être du à une MAJ Microsoft..
Regardes ici :
https://docs.microsoft.com/en-us/archive/blogs/
0
nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention  
 
J'ia rien trouvé, rien ne concerne mon problem nn?
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse
impossible lire vidéos france 2
pauline21 -
freezet -

5 réponses