Commentaires de BRICE LA BIDOUILLE sur tout CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 02 05:42:23

ASTUCE WINDOWS : DéPLACER LES FENêTRES PERDUES D'UN éCRAN INEXISTANT VERS MON éCRAN PRINCIPAL par cyril

TEAM SYSTEM DATABASE EDITION : VERSION FINALE DISPONIBLE DE CETTE NOUVELLE MISE à JOUR DE LA VERSION 2008 par christian

[LINQ TO WIQL] LES DESSOUS DU PROVIDER (PART 1: INTRODUCTION) par Miiitch

SHAREPOINT 2007 : ACTIVATION DE FEATURES ET ACTIVATIONDEPENDENCIES par phil

DOCUMENT W3C SUR L'ACCESSIBILITé DE SILVERLIGHT 2.0 par neodante

+ de logiciels à télécharger

1 301 179 membres
66 nouveaux aujourd'hui
14 547 membres club

Trouver une ressource

Trouvez une ressource parmi 39 071 codes, 1 207 997 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

2 commentaire(s) de BRICE LA BIDOUILLE sur des sources sur tout CodeS-SourceS

Le : 28/11/2006 09:43:58
Source : (VBA)GESTIONNAIRE DE STOCK DUNE PME

Bonjour très prometteur ce code!

Erreur détecté lors de la validation, et donc la création des enregistrements dans des tables.

La date de création n'est pas la date d'aujourd'hui!
Tu utilises (="TODAY") de EXCEL,
ajout_datecreation_produit = ("=TODAY()")

utilises plutôt:

ajout_datecreation_produit = Date 'Fonction date du jour VBA

ou alors garde (="TODAY") copie ta cellule colle la valeur dans cette cellule.

    ajout_datecreation_produit = ("=TODAY()")
With activecell
     .value = ajout_datecreation_produit ''ECRITURE DE LA FORMULE
     .Copy                           'COPIE DE LA CELLULLE ACTIVE
     .PasteSpecial Paste:=xlValues 'COLLAGE DE LA VALEUR
End With
    Application.CutCopyMode = False 'Fin du mode COPIE

Bon courage!

Le : 22/08/2006 09:34:43
Source : SUPPRIMER LA LIGNE NUMERO N D'UN FICHIER TEXTE .TXT

Et bien en effet, de la fioriture en pagaille, c'est fou comme on croit faire bien!

En tous les cas merci de vos conseils, désolé d'avoir posté ce code qui a beaucoup de cousins!

Il est vrai que la programmation repond à des règles et des optimisations qui sont encore flous pour moi!
J'avoue que le code présenté ici est du bricolage mais malhereusement pour l'instant c'est la règle de tous mes développements.

Juste pour Icons la boucle:

For compteur = 1 To NbOC
TEMP = Mid(TEMP, InStr(1, TEMP, "\") + 1)
Next

La variable maintes fois écrasé TEMP renvoie la chaîne de texte après le dernier "\" donc le nom de fichier.
en rajoutant après next >
#POSITION_DERNIER_CARACTERE = len(Chemin_complet)- len(TEMP)
On obtient la position du dernier "\" à la façon d'un "instr_der" si je peux me permettre.

Merci encore et je réflécherais à 2 fois avant de poster.