Sujet Précédent Sujet Suivant

Erreur d'exécution 424 objet requis

Résolu/Fermé
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - Modifié par jordane45 le 29/12/2014 à 18:00
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 30 déc. 2014 à 10:39
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 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
29 déc. 2014 à 18:02
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 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
29 déc. 2014 à 18:08
Ou je dois écrie ça? veuillez me précisez svp
0
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
Modifié par jordane45 le 29/12/2014 à 18:14
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 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
Modifié par jordane45 le 30/12/2014 à 09:22
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 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
30 déc. 2014 à 09:25
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 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
30 déc. 2014 à 10:23
NB :cette macro marche dans un autre pc et mon ne marche pas!!!!
0
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649 > nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
30 déc. 2014 à 10:28
C'est peut être du à une MAJ Microsoft..
Regardes ici :
https://docs.microsoft.com/en-us/archive/blogs/
0
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
30 déc. 2014 à 10:39
J'ia rien trouvé, rien ne concerne mon problem nn?
0

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
MACRO : Problème " Erreur d'exécution '1004' "
Awazagaga -
Awazagaga -

6 réponses