Bonjour, Merci pour votre tutoriel et l'efficacité de vos livres numériques. Bonne continuation. Cordialement, Arc
2 жыл бұрын
Bonjour Arc. C'est un plaisir. Merci beaucoup pour ce message.
@GeorgeBander6 жыл бұрын
Bonsoir cher professeur ! Ouf ! Pas facile tous ça, mais le travail en vaut la chandelle ! Pas de redondance etc...J'ai dû télécharger votre fichier, car une fois de plus, j'ai voulu le faire avec une de mes propres bases, ce qui fut un échec.... Cela dit en reprenant les rênes correctement j'ai réussi à refaire votre exercice !!! J'ai tant appris avec vous, que cela devient presque un jeu ! C'est époustouflant la façon dont vous trouver les sujets !! C'est une des choses dont je vais devoir m'atteler !! Bon ! Je ne vais pas raconter ma vie, mais tout simplement vous dire un GRAND MERCI !! Bonne soirée cher professeur !!
6 жыл бұрын
Bonjour mon cher Gérard, c'est un très grand plaisir une fois de plus d'accueillir votre message. Pas évident d'adapter cette application à une autre base de données cette fois-ci. Il faut qu'elle soit adaptée et propose des redondances. Si vous y êtes parvenu, alors grandes félicitations. Vous souhaitez vous aussi développer des sujets de formation ? Un très grand merci Gérard et très bonne journée à vous.
@GeorgeBander6 жыл бұрын
J'ai assez de difficulté, mais il est vrai que je développe certain sujet de formation ! Je décortique le logiciel en quelque sorte...! Dernière trouvaille par ex : Je sélectionne une petite liste dans excel, que je renomme et après avoir sélectionné dans la base de donné la 1er ou autre rangée, je la met en mode liste afin de pouvoir jongler avec toutes les lignes...c'est super sympa ! J'aime vraiment tous ce que vous faites et l'adapte souvent à mon travail ! Cela dit, j'apprécie énormément Excel désormais, et peut-être plus qu'Access, car grâce à vous j'ai découvert la vaste panoplie de fonction de travail que l'on peut accomplir !! Bien à vous cher professeur,et merci beaucoup pour tous !!
6 жыл бұрын
Ces études sont particulièrement intéressantes mon cher Gérard et étant donnée votre persévérance et votre pugnacité, j'imagine votre niveau particulièrement affûte. Pourquoi ne pas envisager de monter une chaîne pour en faire profiter le plus grand nombre ? Je serais votre premier fan. Très bonne soirée mon cher Gérard.
@desiremiouganlo60666 жыл бұрын
Vous êtes formidable. Merci
6 жыл бұрын
Merci beaucoup Désiré
@desiremiouganlo60666 жыл бұрын
C'est moi qui vous remercie Monsieur le Professeur parce que vos merveilleux cours m'ont été d'une très grande utilité et continue de l'être. Franchement j'adore vous suivre. Encore merci
6 жыл бұрын
C'est très gratifiant vous savez. Votre témoignage m'est précieux.
@desiremiouganlo60666 жыл бұрын
Si je pouvais tout raconté vous verrez que grâce à vous beaucoup de personnes donnent un sens à leur vie professionnelle.
@romlef5266 жыл бұрын
Bonjour stephane !!!! un grand merci, c'est une bonne continuité d'excel !!!!! par contre je n'arrive pas a trouver le lien de la description du tuto ainsi que le fichier à télécharger , encore bravo
@romlef5266 жыл бұрын
merci beaucoup, super !!!!! excellente soirée a vous egalement
@frogeregis6 жыл бұрын
Merci BCP Stéphane
6 жыл бұрын
Avec plaisir François, merci à vous comme toujours.
@philippevonderweid1833 жыл бұрын
Merci, excellent tutorial.
3 жыл бұрын
Merci beaucoup Philippe.
@ss-lp6eh4 жыл бұрын
bonjour cher Monsieur, j’ai saisi le code comme vous avez précisé mais après son exécution il m'affiche un message d'erreur "3024 erreur définit par l'application ou par l'Objet".merci d'avance (juste l'étape qui permet d'établir la connexion à la base de données et d'accéder aux enregistrements afin d'extraire les départements). 'procededure permettant l'accés à une BDD access Private Sub Workbook_Open() Dim chemin_bd As String Dim enr As Recordset: Dim base As Database chemin_bd = ThisWorkbook.Path & "sorties" 'nettoyer msgbox chemin_bd Sheets("formulaire").liste_dep.Clear: Sheets("formulaire").liste_act.Clear: Sheets("formulaire").liste_villes.Clear Sheets("formulaire").liste_dep.Value = "": Sheets("formulaire").liste_act.Value = "": Sheets("formulaire").liste_villes.Value = "" Range("H5").Value = "": Range("I5").Value = "": Range("J5").Value = "" 'établir la connexion à la base de données et d'accéder aux enregistrements afin d'extraire les départements. Set base = DBEngine.OpenDatabase(chemin_bd) Set enr = base.OpenRecordset("SELECT DISTINCT societes_departement FROM societes ORDER BY societes_departement ASC", dbOpenDynaset) Sheets("formulaire").liste_dep.AddItem "Sélectionnez un département" enr.MoveFirst Do Sheets("formulaire").liste_dep.AddItem enr.Fields("societes_departement").Value enr.MoveNext Loop Until enr.EOF = True enr.Close base.Close Set enr = Nothing Set base = Nothing Sheets("formulaire").Select Sheets("formulaire").liste_dep.ListIndex = 0 End Sub
4 жыл бұрын
Bonjour Monsieur, il y a nécessairement une différence par rapport au code fourni. Le message d'erreur semble indiquer que l'objet utilisé pour établir la connexion n'est pas reconnu. Il ne faut pas oublier d'ajouter la référence au projet, comme indiqué dans le support de formation.
@gadfay84632 жыл бұрын
Salut! tout d'abord je te remercie pour tes vidéos intéressantes. Si non, j'ai une question: Saurais-tu comment créer un user form (login et mot de passe)qui permet l'accès unique à cellules spécifiques d'un tableur excel ( les autres cellules ne seront pas visibles ni accessibles par ailleurs)? merci
2 жыл бұрын
Bonjour gad fay. Merci beaucoup pour ce message. Formulaire d'identification oui : www.bonbache.fr/formulaire-d-identification-et-connexion-en-vba-excel-336.html Concernant l'accès aux cellules, elles doivent préalablement être verrouillées. Ensuite, selon les informations d'identification fournies, le VBA décide ou non de les déverrouiller.
@marckaos6 жыл бұрын
Bonjour Stéphane, vous proposez de télécharger les fichiers sur votre site mais où sont-ils cachés, merci. Amicalement, Marc.
6 жыл бұрын
Bonjour Marc, pour chaque formation, c'est au tout début, juste après la présentation et la première capture, il est écrit : Télécharger le fichier connexion-base-donnees-access.rar en cliquant sur son lien
@marckaos6 жыл бұрын
Merci Stéphane, j'ai du passer vingt fois devant sans les voir. En revanche si vous avez le temps de répondre, j'ai remarquer que vous utilisiez les simples guillemets dans vos requêtes SQL. Ceci ne fonctionne pas dans mon VBA, il me faut utiliser les guillemets doubles. En connaîtriez-vous la raison ? Amicalement, Marc.
6 жыл бұрын
Bonjour Marc, il faut bien utiliser les simples côtes dans la requête SQL lorsque la clause WHERE porte sur un champ de type texte car la variable, pour être reconnue en tant que telle, doit être encadrée. Mais comme la chaîne SQL est déjà passée entre doubles côtes, il faut alterner pour ne pas briser l'expression, comme dans cette première requête : Set enr = base.OpenRecordset("SELECT DISTINCT societes_ville FROM societes WHERE societes_departement='" & Range("H5").Value & "' ORDER BY societes_ville ASC", dbOpenDynaset)Il y a une simple côte après societes_departement='Et il y a une simple côte à la reprise de l'expression après la variable et les doubles côtes : "' ORDER BY so... Bonne soirée à vous
@christianduong27323 жыл бұрын
Bonjour, je ne comprend pas quand vous parler de la liste_dep ou autre
3 жыл бұрын
Bonjour Christian. C'est le nom de l'objet liste déroulante qui lui est donné pour la piloter par le code VBA.
@rabahghouti70706 жыл бұрын
C'est bien expliqué
6 жыл бұрын
Merci beaucoup
@rabahghouti70706 жыл бұрын
Rossetti Stéphane est ce que on peut faire la même chose pour une base données sou forme ".DBF"
6 жыл бұрын
Bien sûr, il suffit simplement d'ajouter la référence nécessaire après le principe des requêtes reste le même.
@surface_info4 жыл бұрын
Bonjour,Est ce possible de paramétrer un lecteur de code dans une base Access pour facturation?Merci
4 жыл бұрын
Bonjour Jean. Oui, tout à fait. Une fois les drivers installés, la référence est proposée dans les librairies d'Access. Après, il faut suivre le manuel pour savoir comment le piloter par le code.
@surface_info4 жыл бұрын
@ Bien reçu, vraiment merci ! Sachez que vous aidez l'environnement des développeurs en temps réel
4 жыл бұрын
@@surface_info J'en suis ravi Jean. Merci à vous.
6 жыл бұрын
Vraiment très intéressant. Merci. Avez-vous déjà fait un tuto sur comment ajouter une entrée à une base de donnée Access de Excel?
6 жыл бұрын
Bonjour Fi Fou, pas encore mais l'idée est intéressante bien que le principe reste le même une fois la connexion à la base de données établie. Il ne s'agit plus d'exécuter des requêtes Sélection mais des requêtes Action (Insert Into). Je le note dans les futures formations à prévoir. Merci pour l'idée et votre message.
@ramirahmouni75906 жыл бұрын
Cher professeur depuis des années que je suit vos cours et j'en ai appris , par contre ce tutos très intéressant je n'arrive pas à décoller ,pourriez vous nous montrer ,a nous !!! un exemple plus simple de connexion base de donne Access - excel . ex: créer un classeur excel pour rechercher des données dans une base de donne Access existante. En réalité après avoir télécharger , je n'ai pas pu trouvé: - le bouton activer le bandeau jaune - MICROSOFT office16.0 access data base seulement 12.
6 жыл бұрын
Bonjour Rami. Merci beaucoup pour votre message, c'est un réel plaisir. Dans l'éditeur de code, vous devez ajouter la référence (Outils/Référence). Le numéro (16.0) n'est pas important. Il dépend de la version de votre Office. Pour le code, il est donné en intégralité en pas à pas : www.bonbache.fr/connecter-une-base-access-a-excel-par-le-code-vba-248.html. Dans quelques temps je posterai une vidéo plus simple à ce sujet : Identification sur un UserForm à partir d'une BDD Access.
@jacquesdehaas21326 жыл бұрын
Bonjour Stéphane, Je voudrais savoir ça ne fonctionne qu'avec EXCEL 2016? Parce que j'ai seulement celui de 2010 Pro Est il possible de le convertir en EXCEL 2010? J'ai essayer de l'ouvrir mais je n'ai de des:(Voir en dessous et pas moyen de le transformer) J'ai l'ordi en système anglais USA Canada Microsoft & Windows 2010 PRO Rar!Ïs út€>Z°ÁJh%¼¬-7L3 connexion-bdd-access.xlsmðÅS!UU‘BÎDDDTHD"QEJDEHR bADAEE5#¥D…"Q A Ihƒæ nûÛ Merci d'avance, Jacques.
6 жыл бұрын
Bonjour Jacques, ça fonctionne avec toutes les versions. J'ai d'ailleurs commencé à le développer avec Excel 2010. Ce qui change sans doute, est la référence à la librairie qui permet de piloter les objets de connexion à une base de données Access. La version US ne devrait à mon sens pas poser de souci non plus. Avez vous possibilité d'essayer avec une version française ?
@jacquesdehaas21326 жыл бұрын
Re Bonjour, Non je n'ai pas de une version Française malheureusement.
@dewesler6 жыл бұрын
Bonjour Monsieur Rossetti comme toujours 10 sur 10 quoi dire d autre une petite question svp est 'il possible exporter une table access ver phpmyadmin? Alain.
6 жыл бұрын
Bonjour Alain, tout d'abord merci pour votre retour et pour répondre à votre question : Oui tout à fait ! A mon sens la méthode la plus simple consiste à l'exporter depuis Access au format CSV (Format universel) et ensuite de l'importer depuis PHP MyAdmin depuis ce format.
@dewesler6 жыл бұрын
Un grand Monsieur et pour la rapidités de votre réponse à bientôt
6 жыл бұрын
C'est très gentil, merci à vous Alain.
@isabh.8743 жыл бұрын
Bonjour, J'ai bien apprécié votre tutoriel. Cela fonctionne bien avec vos données mais quand je transpose avec mes données, je bloque sur la 3ème liste déroulante qui est une date. Le format de la donnée dans ACCESS et du type date/heure. Pour voir la donnée correcte dans excel je suis obligée d'écrire Range("I5").Value = Format(liste_Date.Value, "mm/dd/yyyy") ou Range("I5").Value = CDate(liste_Date.Value). Malgré cela la requête SQL ne fonctionne pas: Set enr = base.OpenRecordset("SELECT DISTINCT Nom FROM TRAFIC WHERE Equipe='" & Range("H5").Value & "' AND DateTraitement='" & Range("I5").Value & "' ORDER BY Nom ASC", dbOpenDynaset). Comment faut-il faire dans ce cas ? Avez-vous parlé de ce cas dans un autre tutoriel ? Merci par avance
3 жыл бұрын
Bonjour Isab. Pour une date, vous devez l'encadrer de dièses. DateTraitement=#" & Range("I5").Value & "# Mais vous devez penser à la remettre dans le format d'origine avant d'opérer, si d'aventure vous l'aviez modifié à réception.
@isabh.8743 жыл бұрын
@ Merci beaucoup Stéphane pour votre réponse très rapide. J'essaierai dès demain.
3 жыл бұрын
@@isabh.874 Je vous en prie.
@isabh.8743 жыл бұрын
@ Cela fonctionne parfaitement grâce à votre aide ! J'ai suivi également le cours sur l'extraction de données et je l'ai adapté sans pb avec mes données. J'ai pu me former au code VBA depuis quelques années grâce à des forums et à de la persévérance, mais je n'avais jamais encore utilisé ACCESS. Votre cours me permet d'explorer d'autres solutions ! Mon but est d'insérer maintenant des données provenant de différents fichiers excel dans la base ACCESS. Je vais donc poursuivre vos cours ! Merci encore à vous.
3 жыл бұрын
@@isabh.874 J'en suis ravi et je vous en félicite. Je propose des tutos à ce sujet pour insérer des données depuis Excel dans une base Access par le code VBA, comme cette formation par exemple : www.bonbache.fr/archiver-les-resultats-excel-en-base-de-donnees-access-340.html
@samchich26536 жыл бұрын
Bonjour dans excel j'ai l'userform1 la listview1 qui dois charger et colorer sous condition les 20000 lignes de la Feuil1 mais l'execution et longue"Private Sub InitList(Nom As String, Col&)" Comment accélérer le chargement de listview1 si vous avez une solution d'optimisation du code avec un chargement depuis une base access pour un chargement de listview1 plus rapide svp merci d'avance Cordialement Dim Ctrl As Control Dim Sh As Object Dim Lig&, Col&, L&, C& Private Sub UserForm_Initialize() Me.Caption = "e;"e; Me.BackColor = &H80000005 For Each Ctrl In Me.Controls Select Case Left(Ctrl.Name, 3) Case "e;Tex"e; Ctrl.BackColor = &H80000018 Ctrl.Font.Name = "e;Arial Narrow"e; Ctrl.Font.Size = 14 Ctrl.Font.Bold = True Ctrl.Height = 24 Case "e;Com"e; Ctrl.BackColor = &H80000018 Ctrl.Font.Name = "e;Arial Narrow"e; Ctrl.Font.Size = 14 Ctrl.Font.Bold = True Ctrl.Height = 24 Case "e;Lab"e; Ctrl.BackColor = &H80000005 Ctrl.BackStyle = 0 Ctrl.Font.Name = "e;Arial Narrow"e; Ctrl.Font.Size = 14 Ctrl.Font.Bold = True Ctrl.TextAlign = 3 Ctrl.Height = 24 Case "e;Lis"e; Ctrl.LabelEdit = 1 Ctrl.View = lvwReport 'affichage en mode Rapport Ctrl.Gridlines = True 'affichage d'un quadrillage Ctrl.FullRowSelect = True 'Sélection des lignes comlètes Ctrl.LabelEdit = False Ctrl.BackColor = &H80000005 '&H80000018 ' Ctrl.ForeColor = &HFF& Ctrl.Font.Name = "e;Arial Narrow"e; Ctrl.Font.Size = 12 Ctrl.Font.Bold = True Case "e;But"e; ' Ctrl.Font.Name = "e;Arial Narrow"e; ' Ctrl.Font.Size = 12 ' Ctrl.Font.Bold = True Ctrl.Top = 330 End Select Next Ctrl End Sub Private Sub UserForm_Activate() ComboBox1.List = Feuil1.Range("e;A2:B"e; & Feuil1.Range("e;A"e; & Rows.Count).End(xlUp).Row).Value With ListView1.ColumnHeaders .Clear .Add , , "e;Num"e;, 0 .Add , , "e;Code art."e;, 70, lvwColumnLeft .Add , , "e;Type Ets"e;, 55, lvwColumnCenter .Add , , "e;Nom Ets (Client)"e;, 95, lvwColumnCenter .Add , , "e;Désignation"e;, 220, lvwColumnCenter .Add , , "e;D.U. (F)"e;, 60, lvwColumnCenter .Add , , "e;D.U. (D/P)"e;, 60, lvwColumnCenter .Add , , "e;D.U. (ST)"e;, 50, lvwColumnCenter .Add , , "e;Unité"e;, 35, lvwColumnCenter .Add , , "e;Qté"e;, 50, lvwColumnCenter .Add , , "e;Sous-traitant"e;, 140, lvwColumnCenter End With Set Sh = Feuil2 ComboBox1.ListIndex = 0 InitList "e;"e;, 1 End Sub Private Sub InitList(Nom As String, Col&) Dim L& Dim Nlig& With ListView1 .ListItems.Clear For L = 2 To 20000 ' Sh.Range("e;A"eRows.CRows.Count).End(xlUp).Row If UCase(Sh.Cells(L, Col).Text) Like UCase(Nom) & "e;*"e; Then .ListItems.Add , , L ' Numero de Ligne .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 1) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(1).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 2) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 3) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(3).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 4) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(4).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 5) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(5).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 6) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(6).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 7) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(7).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 8) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(8).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 9) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(9).ForeColor = vbRed 'vbBlue End If .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(L, 10) If LCase(Sh.Cells(L, 3)) = LCase("e;Néant"e;) Then .ListItems(.ListItems.Count).ListSubItems(10).ForeColor = vbRed 'vbBlue End If End If Next End With On Error Resume Next ListView1.ListItems(1).Selected = False Set ListView1.SelectedItem = Nothing Button2.Visible = False Button3.Visible = False End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Lig = Val(ListView1.SelectedItem) For C = 1 To 10 Controls("e;TextBox"e; & C).Value = Sh.Cells(Lig, C) Next Button2.Visible = True Button3.Visible = True End Sub Private Sub ComboBox1_Change() Col = Val(ComboBox1.Column(1)) End Sub Private Sub TextBox12_Change() InitList TextBox12.Value, Col End Sub Private Sub TextBox3_Change() If TextBox3 = "e;Néant"e; Then TextBox1.ForeColor = vbRed TextBox2.ForeColor = vbRed TextBox3.ForeColor = vbRed TextBox4.ForeColor = vbRed TextBox5.ForeColor = vbRed TextBox6.ForeColor = vbRed TextBox7.ForeColor = vbRed TextBox8.ForeColor = vbRed TextBox9.ForeColor = vbRed TextBox10.ForeColor = vbRed Else TextBox1.ForeColor = vbBlack TextBox2.ForeColor = vbBlack TextBox3.ForeColor = vbBlack TextBox4.ForeColor = vbBlack TextBox5.ForeColor = vbBlack TextBox6.ForeColor = vbBlack TextBox7.ForeColor = vbBlack TextBox8.ForeColor = vbBlack TextBox9.ForeColor = vbBlack TextBox10.ForeColor = vbBlack End If End Sub Private Sub BButton1_Click() For C = 1 To 10 Controls("e;TextBox"e; & C).Value = "e;"e; Next ComboBox1.ListIndex = 0 TextBox12.Value = "e;"e; InitList "e;"e;, 1 End Sub Private Sub Button1_Click() Dim Dligne& Dligne = Sh.Range("e;A"eRows.CRows.Count).End(xlUp).Row + 1 For C = 1 To 10 Sh.Cells(Dligne, C) = Controls("e;TextBox"e; & C).Value Next BButton1_Click End Sub Private Sub Button2_Click() For C = 1 To 10 Sh.Cells(Lig, C) = Controls("e;TextBox"e; & C).Value Next BButton1_Click End Sub Private Sub Button3_Click() Sh.Rows(Lig).Delete BButton1_Click End Sub Private Sub Button4_Click() Unload Me End Sub
6 жыл бұрын
Bonjour Sam, tout d'abord je remplacerais la boucle For par une boucle While réputée pour réaliser des traitements plus rapides. While ligne < 2000. Ensuite, je remplacerais la succession des tests If par une instruction Select Case, plus structurée et elle aussi réputée plus rapide. Mais la clé réside dans la qualité de la syntaxe Sql pour attaquer la base de données externe (SELECT DISTINCT ....), comme l'enseigne cette formation et dont vous pouvez avoir tout le détail à cette adresse : www.bonbache.fr/connecter-une-base-access-a-excel-par-le-code-vba-248.html, les chargements des listes sont instantanés bien que les données source soient denses.
@samchich26536 жыл бұрын
Bonjour Stéphane et merci pour votre réponse comment adapter Select Case a mon cas et je n'arrive pas a adapter votre formation connection a une base access help me please
6 жыл бұрын
Bonjour Sam, le plus simple est de suivre le pas à pas détaillé à cette adresse : www.bonbache.fr/connecter-une-base-access-a-excel-par-le-code-vba-248.html, tout le code est donné, il suffit de le reproduire.
@ziannziann074 жыл бұрын
Bonjour, merci beaucoup pour vos cours. C'est très intéressant, et vous expliquez bien. Par contre je suis embêté par rapport à la syntaxe d'une de mes lignes de codes: Set enr = base.OpenRecordset("SELECT DISTINCT Entreprise FROM Contacts WHERE Role ='"&Combobox1.Value&"' ORDER BY Entreprise ASC", dbOpenDynaset) J'ai beau mettre comme je veux le Where ne veut pas fonctionner, quand je le supprime ça me charge bien toute la liste sans condition et quand j ajoute la condition where et ce qui s'ensuit impossible, ça me met erreur de syntaxe, de ligne de code, pour cous les cottes double je suppose dans la condition where… Peut être que j'ai une erreur de configuration, je sais pas mais ça fait bien 2 jours que je suis dessus…. J'en serai très reconnaissant si vous pourriez me trouver une solution un Grand merci d'avance
4 жыл бұрын
Bonjour ziann finet, en lisant votre message je pensais qu'il s'agissait d'un problème d'alternance de côtes. Mais en vérifiant, vous encadrez bien votre retour de valeur (Combobox1.Value) de simples côtes pour stipuler qu'il s'agit d'un texte. Je ne pense pas que le souci vienne de là, mais je vous conseillerais d'espacer vos symboles de concaténation : '"&Combobox1.Value&"' ==> '" & Combobox1.Value & "'
@ziannziann074 жыл бұрын
@ Oh nooooooooon je crois paaaaaaaaaaaaaaasssssssssssss!!!!!!!!!!!!!!!! 2 jours pour un espace de chaque côtés….. c'était tout à fait ça le problème, et mais j'ai perdu 2 jours à regarder s'il existait une solution, pour faire autrement, j'avais tester en mettant des espace partout, inverser les côtes, alterner autrement les côtes,un espace entre les côtes mais jamais un seul espace entre la valeur et le concatainement,. Je me suis dit que je pouvais essayer de lister les conditions en bas mais j'ai pas trouver de tuto claire. Pour finir dernière solution y'avait plus qu'à demander à un pro, j'étais désespéré…. En tout cas un grand merci!!! ça me débloque, je peux continuer mon projet d'école pour le reste du weekend. Merci beaucoup pour votre rapidité de réponse!
4 жыл бұрын
@@ziannziann07 Je suis heureux que vous ayez pu vous débloquer. C'est souvent ça le code au début. On reste coincé par des petits soucis de syntaxe imperceptibles.