Programmation VBA Excel 2007

Bonjour

Tu parles d'appel de ton classeur fermé par ADO -ce qui n'ouvre pas le classeur mai s'y connecte le classeur restant fermé-, alors pourquoi FIND ? il me semble (pas sûr) que FIND travaille sur le classeur ouvert de m^me que la recherche de la dernière ligne...
si tu cherches une valeur dans un champ avec ADO la syntaxe SQL sera du genre

"SELECT lesdifférentschamps FROM latableduclasseur WHERE lechamp=lavaleurcherchée";"

Autre chose: c'est une erreur de coller les photos dans XL( grand ralentissement comme tu l'as constaté): il faut les mettre dans un répertoire et appeler la photo

voilà, mais il faudrait que tu sois plus précis
pour joindre une pièce
mettre les classeurs (l'opérateur et le serveur) sans données confidentielles en pièce jointe (format XL97-2003) sur
http://cjoint.com/
et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse

mais ce que tu demandes pourrait se faire tranquilou avec access sans peut-être trop utiliser VBA ....

Bonjour,

Guère de temps cet après midi, je te conseille donc de lire ce tuto
http://silkyroad.developpez.com/VBA/ClasseursFermes/
qui te donnera un aperçu de la technologie ADO et pourra t'aider dans tes questions éventuelles (on peut améliorer les techniques indiquées notamment en se dispensant de cocher les références à ADO)
http://silkyroad.developpez.com/VBA/ClasseursFermes/

concernant les photos, il faudra revoir le systeme car le numéro d'inscription sera donné par le classeur partagé
Tu trouveras ci joint un exemple de gestion de photos (trombinoscope) que j'avais réalisé pour l'association 1901 d'un forumeur CCM qui te fournira peut- ^tre une piste
http://cjoint.com/?3InortrO67a

désolé pur cet aprèm!

Bonjour Michel,

J'ai adapté le code de silkyroad comme suit :

Sub LireClasseurFerme()
'
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String, Texte_SQL As String
Dim Rst As ADODB.Recordset

'Définit le classeur fermé servant de base de données qui contient une feuille avec la première ligne
'comme ligne des champs : Nbr|NumCand|Sexe|Nom|Prenoms|DateNaiss
'La feuille Liste contient les données
Fichier = "e:\ClasseurFermé.xlsx"

'Nom de la feuille dans le classeur fermé
NomFeuille = "Liste$"

'--- Connexion ---
Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With

'..... Définit la requête.

Texte_SQL = "SELECT * FROM [" & NomFeuille & "]"
Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute(Texte_SQL)

'Ecrit le résultat de la requête (ici toute la base) dans la cellule A2 de la feuille active du classeur actif
Range("A2").CopyFromRecordset Rst

'
'--- Fermeture connexion ---
Cn.Close
Set Cn = Nothing
'
End Sub

J'ai adapté et çà marche mais j'aimerais spécifier un classeur donné pour le résultat de la requête. Je veux comprendre les différentes commandes

De même, les modules "Ajouter un enregistrement", "Modifier les enregistrements" ne fonctionnent pas dans Excel 2007 sous Vista. En particulier

Merci et bon après midi

yapson2011

bonjour

P...! je viens de perdre pour la 2° fois tout le baratin que je t'avais préparé (micro coupures electricité):-((

ci dessous code d'extraction des inscrits sain et sauf

Option Explicit
Public Source As Object
Const Fichier  As String = "e:\ClasseurFermé.xlsx"
Const Plage  As String = "T_inscrits"

Sub Extraire_liste_inscrits()
Dim Requete As Object

se_connecter

'..... Définit la requête.
Set Requete = CreateObject("ADODB.Recordset")
Set Requete = Source.Execute("SELECT * FROM [" & Plage & "]")

'Ecrit le résultat de la requête (ici toute la base) dans le  classeur actif
Sheets(1).Range("A2").CopyFromRecordset Requete 'sheets(1) à adapter
'
'--- Fermeture connexion ---
Requete.Close
Source.Close
Set Requete = Nothing
Set Source = Nothing
'
End Sub

Sub se_connecter()
'--- Connexion ---
Set Source = CreateObject("ADODB.Connection")
With Source
     .Provider = "Microsoft.Jet.OLEDB.4.0"
     .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
     .Open
End With

End Sub

je reviens avec des explications (sur Word que je puisse sauvegarder)