Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Wed 08 September 2004 11:51
- PDOUNIAS
- Invité
Inserer ligne dans Excel par lien DDE
Bonjour je souhaiterai inserer plusieurs lignes dans un fichier Excel en fonction de ma table de donnees. J'ai essaye differentes syntaxes mais sans grand succes.
Merci pour vos suggestions.
#2 Wed 08 September 2004 09:05
- Herve Lucq
- Invité
Re: Inserer ligne dans Excel par lien DDE
J'utilise la syntaxe suivante qui fonctionnne :
idChanel=DDEInitiate( EXCEL , System )
If idChanel=0 then
Note Application occupee... +chr(13)+ Communication interrompue !
else
DDEExecute idChanel, [Ouvrir( C:Export.xls )]
idChanel=DDEInitiate ( EXCEL , Export.xls )
For z = 1 to 3
Ecrire = DDEPoke + idChanel + , L + LgE + C + z + , + ExportTxt(z)+
Run Command Ecrire
Next
End If
Dans cet exemple je travaille sur un fichier Export.xls
La boucle sur Z permet d'ecrire dans les colonnes 1-2 et 3
Lge est la variable contenant la ligne
ExportTxt(z) est la variable contenant le contenu a ecrire.
Si ton probleme persiste j'ai d'autres commandes qui fonctionnent.
#3 Wed 08 September 2004 14:55
- PDOUNIAS
- Invité
Re: Inserer ligne dans Excel par lien DDE
Une petite precision car je me suis mal exprime. Tout ce qui concerne la transcription des donnees de MI a Excel fonctionne. Je souhaite faire une insertion de ligne dans Excel si le nombre de donnees l'impose car j'ouvre un fichier xls avec mise en page. Il s'agirait de faire - DDEExecute idChanel, [EntireRow.insert] -. Si quelqu'un connaissait la syntaxe pour y arriver, je suis interesse.
Cordialement.
#4 Mon 13 September 2004 15:59
- PDOUNIAS
- Invité
Re: Inserer ligne dans Excel par lien DDE
Bonjour,
J'ai resolu mon probleme pour inserer une ligne dans une feuille Excel par lien DDE.
Voici le code pour ceux que cela interesse :
tmp = L10
'selection de la ligne
DDEExecute idChanel, [selectionner( & tmp & )]
'copier la ligne
DDEExecute idChanel, [copy()]
'selionner la ligne suivante
tmp= L11
DDEExecute idChanel, [selectionner( & tmp & )]
'inserer la ligne copiee
DDEExecute idChanel, [inserer()]
Cordialement.
