FORUM WINDEV

bonjour
nombreux ceux qui veulent faire des traitement des transfert vers excel de l'importation depuis excel, et j'aimerais bien mettre en partage des codes que je trouve très utile pour l'échange des données avec excel :



// Création de objets automation dynamiques
MaFeuilleXLS est un objet Automation dynamique

// Instance de Excel existante ?
SI ObjetActif("Excel.Application") <> Null ALORS
// Récupération de l'instance de Excel existante
MaFeuilleXLS = ObjetActif("Excel.Application")
SINON
// Allocation de l'objet ...

Ce code permet d'ajouter dans une table Windev des cellules copiées dans MS Excel. Ca devrait aussi fonctionner avec Open Office (Calc).
sTxt, sLigne est une chaîne
i, nPosTAB, nPosCR, nPosMax, j, nb, nAscii, nPosVirgule sont des entiers
bQueChiffresDepuisTAB, bVirguleDepuisTAB est un booléen

SI PressePapierFormat(ppfTexte) ALORS
// récupère le texte dans le presse-papier
sTxt = PressePapier()
nPosMax = Taille(sTxt)
i = 1 // indiquera la position courante du balayage de la chaine
TANTQUE i <= ...

Bienvenue sur softdev

Un blog dédié aux outils AGL (Atelier de Génie Logiciel) de PC SOFT.

Retrouver ici toutes les astuces, les infos glanés au cours de recherches sur le web de....

http://softdev.over-blog.com/article-ac ... 43927.html

/Codage en base 64.
sChaine64 = Crypte(sChaine,"",crypteAucun, Vrai)

//Decodage en base 64.
sChaine = Décrypte(sChaine64,"",crypteAucun, Vrai)

SQLConnecte(" \My Documents\Essai.cdb", "" , "", "", "ACCESS" , "Microsoft.Jet.OLEDB.3.51")
ListeAjoute(LISTE_TABLE, SQLListeSource())

Voici un exemple illustrant l'utilisation de l'API SetPriorityClass, qui permet de modifier la priorité du process en cours. Ce code peut être copié en initialisation de projet, ou à tout moment dans le projet.

Attention, avec le niveau REALTIME_PRIORITY_CLASS, un seul process pouvant avoir cette priorité, il est possible que vous ne puissiez plus bouger la souris ni utiliser le clavier. La seule solution est de redémarrer la machine.

Ret est un entier
hCurrentProcess est ...

Il s'agit par exemple de réagir dans le cas suivant:



- un programme Win Dev tourne

- par ALT-TAB on passe dans un autre programme

- on souhaite réagir quand le programme Win Dev perd le focus



Pour gérer ce type de traitement, il faut déclarer un événement sur le message Windows WM_ACTIVATEAPP (28)



Dans le cas ou _EVE.wParam vaut 0, le focus est perdu par l'application dans les autres cas, le focus est pris. ...

Code: Tout sélectionner

DateDeb est une DateHeure = "20000101"

DateFin est une DateHeure = DateDuJour()+Maintenant()

 

MaDurée est une Durée = DateFin-DateDeb

Info("Depuis le « "+LaDurée..Seconde+(LaDurée..Minute*60)+(LaDurée..Heure*3600)+(LaDurée..Jour*3600*24))
      


//Génération aléatoire d'un mot de passe.
//Pour chaque caractére (ici 10), il faut piocher 1 caractéres
//dans chaque série 0-9 A-Z et a-z
//Et repiocher dans ces trois 1 caractére
sMotPasse est une chaîne
nSerieNum est un entier
nSerieMaj est un entier
nSerieMin est un entier
nChoix est un entier

i est un entier

POUR i = 1 A 10
//Série 0-9
InitHasard()
nSerieNum = Hasard(48,57)
//Série A-Z
InitHasard()
nSerieMaj = Hasard(65,90)
//Série a-z
InitHasard() ...

//Variables de connexion
sNomConnexion est une chaîne = "CNX_ACCESS"
sTypeConnexion est une chaîne = "Microsoft.Jet.OLEDB.4.0"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "C:\MaBaseAccess.mdb"
sNomBase est une Source de Données = ""
sNomUtilisateur est une chaîne = ""
sMotDePasse est une chaîne = ""
sInfoEtendus est une chaîne = ""

SI HDécritConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
SI HOuvreConnexion(sNomConnexion) ALORS

HChangeConnexion(Cedex,"CNX_ACCESS")
Info("Connexion créée. Changement de connexion effectué")
SINON
Erreur(HErreurInfo())
FIN ...