Copier-coller depuis Excel dans une table Windev

[ASG2012]

Ce code permet d'ajouter dans une table Windev des cellules copiées dans MS Excel. Ca devrait aussi fonctionner avec Open Office (Calc).

Code :

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 <= nPosMax
      // récupère la prochaine ligne (avant le retour chariot)
      nPosCR = Position(sTxt, CR, i)
      SI nPosCR = 0 ALORS  // pas de nouvelle ligne trouvée
         sLigne = Milieu(sTxt,i,nPosMax-i+1)
         i = nPosMax + 1
      SINON
         sLigne = Milieu(sTxt,i,nPosCR-i)
         i = nPosCR + 2
      FIN
      
      // remplace les virgules par des points dans les nombres à virgules
      // (lors d'un copier dans Excel, une tabulation sépare les champs)
      nb = Taille(sLigne)
      bQueChiffresDepuisTAB = Vrai
      bVirguleDepuisTAB = Faux
      POUR j=1 A nb
         nAscii = Asc(Milieu(sLigne,j,1))
         SI nAscii=9 ALORS  // tabulation
            SI bQueChiffresDepuisTAB ET bVirguleDepuisTAB ALORS
               sLigne = Gauche(sLigne,nPosVirgule-1)+"."+Droite(sLigne,nb-nPosVirgule)
            FIN
            bQueChiffresDepuisTAB = Vrai
         SINON SI nAscii=44 ALORS  // test si virgule
            bVirguleDepuisTAB = Vrai
            nPosVirgule = j
         SINON SI nAscii<48 OU nAscii>57 ALORS  // test si pas chiffre
            bQueChiffresDepuisTAB = Faux
         FIN
      FIN
      
      // ajout de la ligne dans la table
      TableAjoute(TABLE_Donnees, sLigne)
   FIN
FIN

[tunidev]

Merci pour ces astuces
formidable!

[TheDuke]

Ah oui, celle la est superbe!

Merci pour le partage! :lol:

[chaniby]

C'est formidable ce travail

je l'ai essayé ça marche, mais au niveau des dates il y a un problème,

est ce qu'il y a une solution?

et merci d'avance

[FranckiVinC]

Bonjour,
Je ne comprends pas où copier/coller ce bout de code?
Est-ce dans la l'initialisation de la table? A quel moment?
Merci par avance

[FranckiVinC]

Le code fonctionne
malheureusement, il ne colle que a la fin du tableau.
La variable nPosTAB n'est pas utiliser dans le code. Comment faire pour que le collage se fait a partir de la cellule selectionnée?
Merci