Discussion :

[touche_a_tout]

Bonjour,
Je crois avoir exactement reproduit l'un des exemples donnés sur ce forum et pourtant j'ai l'erreur "Nous ne trouvons pas E:\3_G_E_N_E_A_L_O_G_I_E\creation_sources_ged\Naissances\wb.x". Et d'où vient ce .x ajouté à wb ? Voici le code (ces 6 lignes se répètent 22 fois en lien avec 22 fichiers Excel similaires):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Workbooks.Open ("E:\3_G_E_N_E_A_L_O_G_I_E\creation_sources_ged\Naissances\Base_Etat_civil_F_Naissances.xlsm")
Set wb = Workbooks("Base_Etat_civil_F_Naissances.xlsm")
wb.Activate
indice = indice + 1: index = index + 1
Application.Run "wb!creation_squeeze_gedcom_d_apres_XL"
wb.Close

C'est la ligne que je mets en italique qui apparaît surlignée en jaune quand je clique sur Débogage.
Même erreur si j'ajoute "sub" devant la moulinette et les parenthèses vides à la fin.
Merci pour toute suggestion/explication/solution
Cordialement
touche_a_tout