cs_LordBob
Messages postés2865Date d'inscriptionsamedi 2 novembre 2002StatutMembreDernière intervention11 mai 2009
-
21 juin 2003 à 22:49
kastin
Messages postés1Date d'inscriptionvendredi 7 mai 2010StatutMembreDernière intervention20 mars 2011
-
20 mars 2011 à 11:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
kastin
Messages postés1Date d'inscriptionvendredi 7 mai 2010StatutMembreDernière intervention20 mars 2011 20 mars 2011 à 11:22
le téléchargement des fichiers Zippé sa un peu de problème parce que d'autre utilisateur on toujours tendance de détruire ce pour quoi je voulais signale qu'on puisse nous envoyé des fichier zip avec un code de déverrouillage merci à codes-sources.
jahrive
Messages postés6Date d'inscriptionvendredi 10 décembre 2004StatutMembreDernière intervention19 novembre 2005 9 févr. 2005 à 17:54
Pour trier la base Excel il existe une autre solution
Créer une plage nommée sur la base (feuille, range) en question
Ensuite le code est
Dim db as DAO.database
Dim Rs as DAO.recordset
'Définition du nom et du chemin du classeur (de la base)
"nom plage nommée = mabase"
'Si classeur actif'
var = Activeworkbook.path & "" & Activeworkbook.name
set db = opendatabase(var,False,False,"excel 8.0")
"à partir de la connaisance SQL"
"Si pas connaissances SQL utiliser Access (requête affichage mode SQL)
req1 = "SELECT <nomchamps>.maplage ......" _
& " FROM maplage" _
& " WHERE <nomchamps>.maplage >0" _
& " ORDER BY .......
set Rs = db.openrecordset(req1)
"Pour vider le recordset dans le classeur Excel"
Workbboks("classeur").sheets("Feuille").Range("range").CopyFromRecordset RS
cs_LordBob
Messages postés2865Date d'inscriptionsamedi 2 novembre 2002StatutMembreDernière intervention11 mai 20099 23 juin 2003 à 22:30
merci pour le zip...
Willow05
Messages postés36Date d'inscriptionmercredi 11 juin 2003StatutMembreDernière intervention27 juin 2003 23 juin 2003 à 13:26
Zut ! j'ai pas eu le temps de mettre un commentaire pour le zip... 4 sources ??? et ben ^^ je vais aller voir ça
Sinon pas mal :p Aller, une ch'tite note ^^
cs_laestrella
Messages postés93Date d'inscriptionlundi 16 juin 2003StatutMembreDernière intervention27 juin 2003 23 juin 2003 à 11:30
j'avais zappé pour le fichier ZIP maintenant c'est fait!!!
cs_LordBob
Messages postés2865Date d'inscriptionsamedi 2 novembre 2002StatutMembreDernière intervention11 mai 20099 21 juin 2003 à 22:49
tu devrai mettre tout ca dans un zip ca serai mieux...
20 mars 2011 à 11:22
9 févr. 2005 à 17:54
Créer une plage nommée sur la base (feuille, range) en question
Ensuite le code est
Dim db as DAO.database
Dim Rs as DAO.recordset
'Définition du nom et du chemin du classeur (de la base)
"nom plage nommée = mabase"
'Si classeur actif'
var = Activeworkbook.path & "" & Activeworkbook.name
set db = opendatabase(var,False,False,"excel 8.0")
"à partir de la connaisance SQL"
"Si pas connaissances SQL utiliser Access (requête affichage mode SQL)
req1 = "SELECT <nomchamps>.maplage ......" _
& " FROM maplage" _
& " WHERE <nomchamps>.maplage >0" _
& " ORDER BY .......
set Rs = db.openrecordset(req1)
"Pour vider le recordset dans le classeur Excel"
Workbboks("classeur").sheets("Feuille").Range("range").CopyFromRecordset RS
23 juin 2003 à 22:30
23 juin 2003 à 13:26
Sinon pas mal :p Aller, une ch'tite note ^^
23 juin 2003 à 11:30
21 juin 2003 à 22:49