Discussion :

[ayaaaa]

Bonjour,

Après avoir repris le code source d'une ancienne personne qui n'est plus dans ma société, je n'arrive pas à compiler le source.

L'exe qui est déja en place fonctionne bien mais j'ai besoin de faire du pas à pas dans le code pour comprendre le déroulement de l'application. Après avoir installé WD16 et mis à jour le logiciel avec WDUpdate, , j'ai lancé le code en pas à pas et j'ai une erreur que je ne comprends pas

J'ai un poste en Windows 10 avec Excel 2016. L'application arrive bien à ouvrir l'excel mais dès qu'il veut ouvrir le fichier avec le code suivant :

Code :

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

oClasseur = xsExcel_in:oAppli>>Workbooks()>>Open(xsParam:sNomFichierExcel, OLEFaux)

cela plante avec l'erreur



Exception n°1059. Vous avez appelé la méthode Automation 'Open'. Le paramètre 1 n'est pas convertible en paramètre automation. L'élément 'Workbooks' est inconnu.

Etant novice en développement WD, je n'arrive pas à comprendre l'erreur.

Ai-je oublié d'installer/activer un composant?

Je vous remercie d'avance pour votre retour.

[tbc92]

Peut-être que ça marcherait mieux avec une vieille version d'Excel.
Sinon, si tu cherches "Excel Error 1059", tu peux trouver des choses. Je chercherais dans cette piste, plustôt ue dans la piste 'Windev mal installé'.

Il y a quand même un tout petit contrôle que tu peux faire.
Avant l'instruction en cause, insère cette instruction :

Code :

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

info ( xsParam:sNomFichierExcel )

Ceci va afficher le nom du fichier sur lequel tu essaies de travailler. Ce nom de fichier est-il correct ?

[ayaaaa]

J'avais fait le test sur une machine Windows 7 et excel 2010 et ai obtenu la même erreur.

Le nom du fichier est également correcte. J'ai évalué la variable en pas à pas et ai vérifié que le chemin était correcte.

La recherche sur l'erreur 1059 est un peu fastidieuse car je trouve beaucoup de choses mais qui correspondent pas forcément à mon cas.

Une autre piste peut être?

[Lo²]

Bonjour,

La classe Excel utilisée, est celle fournie avec les exemples de Windev ?
Car pour ma part, ça fonctionne quelque soit la version de Excel et pour l'ouverture du classeur, j'ai le code suivant :

Code :

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

1
2
// on ouvre le classeur demandé
:m_pautExcel>>Workbooks>>Open(sClasseur)

avec

Code :

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

m_pautExcel est un objet OLE dynamique

[ayaaaa]

J'ai réussi à corriger le code.

Je ne sais pas pour quelle raison le code ne fonctionnait plus mais le fait de passer le nom du fichier dans une variable de type chaîne a solutionner le problème.

Merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
PROCEDURE ExcelRéférencerFeuille(xsParam est une structParamètres dynamique, xsExcel_in est une structExcel dynamique) // booleen
 
oClasseur est un objet Automation dynamique
oFeuille est un objet Automation dynamique
// N° de feuille = 5 
nNumFeuilleATraiter est une entier = xsParam:nNuméroFeuille
// Nom de la feuille à traiter  "Registrations 2014"
nNomFeuilleATraiter est une chaîne = xsParam:sNomfeuille
sMsgErr est une chaîne
sNomfich est une chaîne
 
sNomfich = xsParam:sNomFichierExcel
 
// Ouverture de la feuille via Automation.
// on interdit la mise à jour des liens vers fichiers externes
//Quand exception dans
oClasseur = xsExcel_in:oAppli>>Workbooks()>>Open(sNomfich, OLEFaux)