Bonjour Chers tous, j'essaie d'exécuter le code du fichier ci-desssous https://cjoint.com/c/KLEod0yDPaZ (est un fichier .frm) à partir du classeur dont le lien est le suivant https://cjoint.com/c/KLEn1qtQQLZ Malheureusement j'ai le message d'erreur "erreur d'exécution '9', l'indice n'appartient à la sélection" Pouvez vous m'aider à résoudre ce problème svp ? Merci de votre aide

Message "erreur d'exécution 9" [Résolu]

Réponse 1 / 9

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 Ambassadeur 1 570
30 déc. 2021 à 15:35

bonjour,
que fais-tu, à partir de ces deux fichiers, pour obtenir cette erreur?

Réponse 2 / 9

f894009 Messages postés 17267 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 23 mars 2025 1 713
31 déc. 2021 à 15:14

Bonjour a vous deux et meilleur voeux

C'est votre histoire de .frm qui m'a intrigue.
En principe ces fichiers sont pour du VB5.0 ou VB6.0 qui n'a rien a voir avec du VBA

Pour votre erreur 9, normal, il n'y a aucun object tableau ou autre sur votre feuil2

Réponse 3 / 9

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1
30 déc. 2021 à 15:40

Bonjour yg_be,

le premier lien est un formulaire d'enregistrement en VBA.
Le deuxième lien est le fichier Excel dans lequel les enregistrements doivent se faire.

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 1 570
30 déc. 2021 à 16:21

Quel logiciel utilises-tu pour ouvrir le premier fichier?

Réponse 4 / 9

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1
30 déc. 2021 à 17:03

J'ouvre ce fichier à partir de visual basic d'Excel. J'utilise la commande "importer un fichier" à partir du volet gauche qui affiche le projet VBA ainsi que les fenêtres ayant l'extension .frm

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 1 570
30 déc. 2021 à 17:08

Et cette importation fonctionne bien?
Pourquoi ne partages-tu pas le fichier Excel après avoir importé?
Est-il possible qu'un fichier Formulaire.frx soit présent dans le même dossier?

Réponse 5 / 9

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1
30 déc. 2021 à 17:32

L'importation onctionne bien
je n'arrive à relier ce fichier .frm au classeur Excel.
Le code comporte du fichier .frm comporte une erreur que je n'arrive pas à résoudre (voir mon premier message).

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 1 570
30 déc. 2021 à 20:12

Ne peux-tu pas sauver le fichier xlsm après l'importation?

Un fichier Formulaire.frx est-il présent dans le même dossier?

Réponse 6 / 9

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1
31 déc. 2021 à 14:09

Ci-dessous le lien du fichier xlsm complet avec le tout le code vba du formulaire:

https://cjoint.com/c/KLFnhuGHSRT

Cordialement /-

Réponse 7 / 9

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1
31 déc. 2021 à 14:33

Désolé ! le lien précédent n'est pas le bon :(

Ci-dessous le lien correct du fichier xlsm complet avec le tout le code vba du formulaire:

https://cjoint.com/c/KLFnuGSNnLT

Cordialement /-

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 1 570
31 déc. 2021 à 14:38

Et comment provoquer le message d'erreur?

Réponse 8 / 9

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1
31 déc. 2021 à 14:45

- Démarrer l'application VBA d'Excel,
- Exécuter la fenêtre
- Faites un enregistrement
- Cliquer sur "AJOUTER"

Si tout se passe bien, il y aura un message d'erreur

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 1 570
31 déc. 2021 à 15:13

Le message d'erreur se produit sur la ligne:

Sheets(2).ListObjects(1).ListRows.Add

Je pense que cette ligne se sert à rien, et je suggère de la supprimer.
Je suggère aussi de modifier la ligne suivante, et d'y ajouter "+1", ainsi:

DL = Sheets(2).Range("b9999").End(xlUp).Row+1

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1 > yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025
31 déc. 2021 à 15:39

Merci ,
ça a marché :)

Bizarre, d'habitude cette ligne ne pose aucun problème et pourtant ? :(

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1 > yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025
31 déc. 2021 à 15:47

le code marche mais après la colonne "Statut" rien ne se passe :(

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 1 570 > jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025
31 déc. 2021 à 16:56

D'habitude?

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 1 570 > jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025
31 déc. 2021 à 16:59

Quelle partie du code devrait faire quoi après la colonne "Status"?

Réponse 9 / 9

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1
Modifié le 31 déc. 2021 à 15:32

Bah, moi j'ai enregistré le formulaire VBA avec une extension .frm.

En revanche, j'ai du mal à comprendre " il n'y a aucun object tableau ou autre sur votre feuil2". Pourriez-vous donner plus de détails f894009 ?

f894009 Messages postés 17267 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 23 mars 2025 1 713
Modifié le 31 déc. 2021 à 17:13

Re,

Sheets(2).ListObjects(1).ListRows.Add

Dans votre code, cette ligne permettrait d'ajouter une ligne a un tableau s'il y a en avait un et un seul. Autrement il faudrait mettre le nom du tableau
exemple:

Sheets(2).ListObjects("nom du tableau").ListRows.Add

Dans la feuille Order vous avez le tableau Tableau2 et dans la feuille Supplier vous avez Tableau1

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1 > f894009 Messages postés 17267 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 23 mars 2025
31 déc. 2021 à 17:14

Ah d'accord :)

jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025 1 > f894009 Messages postés 17267 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 23 mars 2025
31 déc. 2021 à 17:22

Mais pourquoi tu ne l'as pas dit plutôt !

Merci beaucoup!!! C'était ça le problème !

f894009 Messages postés 17267 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 23 mars 2025 1 713 > jus2mandarine Messages postés 226 Date d'inscription vendredi 5 juin 2015 Statut Membre Dernière intervention 26 février 2025
31 déc. 2021 à 17:33

Re,

tu ne l'as pas dit plutôt !
Ben si post <13>

Message "erreur d'exécution 9"

9 réponses

Discussions similaires