Gestion base données excel pour commerciaux

Dranreb

XLDnaute Barbatruc
Non ça remonte au #35, avec la mauvaise référence de chez moi, forcément.
 

PERSEVERANT

XLDnaute Junior
Non ça remonte au #35, avec la mauvaise référence de chez moi, forcément.
Bonsoir Dranreb
finalement j'ai quand même été voir, la curiosité est toujours la plus forte.
En effet c'était bien au 35 et oui en accédant à la feuille cosultation ça se met en place comme par magie.
Bravo.
Je vais essayer de mettre de l'ordre dans tout ce que ChTi160aineai et vous m'avez envoyé, essayer de comprendre (ça ça va me donner la migraine, mais vu le travail fourni je dois faire l'effort) encore merci à tous les deux je vous tiens au courant.
Cordialement
Jean Michel
 

ChTi160

XLDnaute Barbatruc
Bonsoir KIM
Bonsoir Le Fil ,"Dranreb"
Bonsoir le Forum

Bon ben moi , j'ai dans un premier temps désinstallé la macro CBxL ,

Puis j'ai réinstallé la Dernière version #57 , après avoir enregistré comme demandé une Copie de l'aide.

J’ai enregistré le classeur dans le Dossier des Complémentaires puis j’ai pu accéder via Fichiers/Options /Compléments/Gérer : Choix Compléments Excel/ puis Atteindre /puis j’ai Coché cbxl .

Je suis ensuite aller dans Developpeur/puis Visual Basic et là , j’ai dans Projet-VBAprojet

Coché en Haut CBxl(CBxl.xlam)

Puis si je vais dans Outils/Références

Voir Image Jointe §

J’attends de savoir si cela correspond aux tests que tu veux faire dis-moi , si je peux faire autre chose Lol

Bonne fin de Soirée
A demain
Amicalement
Jean marie
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Oui ça m'a l'air tout bon. Merci.
Mais j'ai encore changé la procédure d'installation de sorte qu'elle finisse toujours par un MsgBox ,,vbCritical ou ,,vbInformation
Oups. Je me suis trompé de fichier au #64. Alors je joins le dernier CBxL ici.

Mais depuis, j'ai encore vu que même si le .xlam est mis ailleurs que dans le Roaming Microsoft Addins il est possible de l'ajouter par code à Application.Addins. Mais je vais laissé tomber cette possibilité. C'est déjà suffisamment compliqué comme ça.
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Bonjour ChTi160 et joyeuses Pâques à tous.
Ce qui m'étonne c'est que PERSEVERANT plante sur ChDir Chemin, avec
Chemin = "C:\Users\" & Application.UserName & "\AppData\Roaming\Microsoft\AddIns"
Mais toi tu me confirmes que non ? Alors que vous avez la même version Excel…

Je livre le contenu de ThisWorkbook, vu qu'il est protégé par un méchant mot de passe très difficile à cracker (enfin… peut être… mais vu que le seul but de cette protection est d'éviter aux gens de perdre leur temps à essayer de comprendre comment ça fonctionne au lieu d'étudier comment on doit l'utiliser…)
VB:
Option Explicit
Const Proj = "CBxL", Titre = "Installation " & Proj

Private Sub Workbook_Open()
If Me.IsAddin Then Exit Sub
If InstallationOK Then
   Création.Aide
   MsgBox "Installation terminée avec succès." _
      & vbLf & "Dans votre application VBA vous pouvez à présent" _
      & vbLf & "cocher """ & Proj & """, menu Outils, Références…", _
      vbInformation, Titre
   Me.Close SaveChanges:=False
Else
   Me.IsAddin = False
   MsgBox "Installation abandonnée." _
      & vbLf & "Recommandation: Ne prenez pas le projet " & Proj & " de ce" _
      & vbLf & "classeur précurseur comme référence dans un autre projet.", _
      vbCritical, Titre
   Me.Saved = True
   End If
End Sub

Private Function InstallationOK() As Boolean
Dim Chemin As String, ChNomF
Select Case MsgBox("Ce classeur n'est pas dans l'état définitif propre à son utilisation." _
   & vbLf & "Il va vous être proposé de l'enregistrer comme Complément Excel." _
   & vbLf & "Voulez vous d'abord une copie de sa feuille d'aide ?", _
   vbYesNoCancel, "Ouverture " & Me.Name)
   Case vbCancel: Exit Function
   Case vbYes: Création.Aide
   End Select
Me.IsAddin = True
On Error Resume Next
ChDrive "C"
If Err Then
   MsgBox "Impossible de se positionner sur le lecteur ""C""." _
      & vbLf & "Erreur " & Err & " :" & vbLf & Err.Description, vbExclamation, Titre
Else
   Chemin = "C:\Users\" & Application.UserName & "\AppData\Roaming\Microsoft\AddIns"
   ChDir Chemin
   If Err Then MsgBox "Impossible de se positionner sur ce dossier de compléments :" _
      & vbLf & Chemin _
      & vbLf & "Mais vous pouvez peut être l'enregistrer ailleurs…" _
      & vbLf & "Erreur " & Err & " :" & vbLf & Err.Description, vbExclamation, Titre
   End If
ChNomF = Application.GetSaveAsFilename(Proj, "Complément Excel,*.xlam")
If VarType(ChNomF) <> vbString Then Exit Function
Err.Clear: Me.SaveAs ChNomF, FileFormat:=xlOpenXMLAddIn
If Err Then MsgBox "Impossible d'enregistrer le complément." _
   & vbLf & "Erreur " & Err & " :" & vbLf & Err.Description, _
   vbCritical, Titre: Me.IsAddin = False: Me.Saved = True: Exit Function
Workbooks.Open ChNomF
If Err Then MsgBox "Impossible de réouvrir le complément." _
   & vbLf & "Erreur " & Err & " :" & vbLf & Err.Description, _
   vbCritical, Titre: Me.IsAddin = False: Me.Saved = True: Exit Function
InstallationOK = True
End Function
As tu des observations ?
 

ChTi160

XLDnaute Barbatruc
Bonjour PERSEVERANT
Bonjour Le Fil ,"Dranreb"
Bonjour le Forum
Bonnes Fête à Toutes et Tous .

Une Remarque, J’ai, hier soir désinstaller la macro Complémentaire et bien lorsque j'ai voulu la réinstaller, j'ai effectivement eu un message, me disant qu'il ne trouvait par le Chemin.
il m'a ouvert la fenêtre d'enregistrement avec comme Dossier Cible : « Complément Excel " dossier qui n'existe pas ! Puisque chez moi c'est " Macro Complément Excel » ou « Macro Complémentaire Excel 97-2003 »
Donc , comme tu sais , je ne suis pas un expert , mais un « Autodidacte » ! Lol
La ligne de Code ci-dessous, est sensée me permettre d’accéder au Dossier des Complémentaires ou me permettre d’enregistrer n’importe Où ?

ChNomF = Application.GetSaveAsFilename(Proj, "Complément Excel,*.xlam")
N'y a t'il pas une question de Version 32 ou 64 le chemin est peut être différent , tout comme pour l'enregistrement des Ocx ?????? Pas expert je te rappelle ! Lol
J’attends de tes nouvelles Lol
Bonne Journée
Amicalement
Jean Marie
 

Dranreb

XLDnaute Barbatruc
Ce que je voudrais savoir c'est si mon code d'installation tourne, puisqu'il est censé s'occuper de tout.
On s'en fout que la dénomination des types de fichiers xlam soit Complément Excel ou Macro complémentaire.
Ce qui m'intéresse c'est deux chose :
1) — Est ce qu'on est alors positionné sur le bon dossier chez toi, C:\Utilisateurs\ChTi160\AppData\Roaming\Microsoft\AddIns contrairement à chez PERSEVERANT où il n'a pas été trouvé,
2) — Est-ce que ça se termine bien si on fait Enregistrer.
 
Dernière édition:

PERSEVERANT

XLDnaute Junior
Bonsoir KIM
Bonsoir Le Fil ,"Dranreb"
Bonsoir le Forum

Bon ben moi , j'ai dans un premier temps désinstallé la macro CBxL ,

Puis j'ai réinstallé la Dernière version #57 , après avoir enregistré comme demandé une Copie de l'aide.

J’ai enregistré le classeur dans le Dossier des Complémentaires puis j’ai pu accéder via Fichiers/Options /Compléments/Gérer : Choix Compléments Excel/ puis Atteindre /puis j’ai Coché cbxl .

Je suis ensuite aller dans Developpeur/puis Visual Basic et là , j’ai dans Projet-VBAprojet

Coché en Haut CBxl(CBxl.xlam)

Puis si je vais dans Outils/Références

Voir Image Jointe §

J’attends de savoir si cela correspond aux tests que tu veux faire dis-moi , si je peux faire autre chose Lol

Bonne fin de Soirée
A demain
Amicalement
Jean marie
Bonjour ChTi160
Bonjour Dranreb,
Bonjour le forum
merci de ce complément d'info
je vois que Dranreb a commis une nouvelle version, je vais la copier en lieu et place de l'ancienne et voir ce que ça donne
cordialement
Jean Michel
 

PERSEVERANT

XLDnaute Junior
Bonjour Dranreb, ChTi160, le forum
je ne sais pas si mes observation vont pouvoir vous aider, mais voici ce que je peux observer.

J'ai remplacé la CBxL du #35 par celle du #85.
Elle est stockée dans le même dossier que mon classeur excel.
J'ai été dans le projet VBA ou (via outil référence) j'ai été rechercher cette nouvelle version et le CBxL est bien coché.
Avec cette dernière version rien ne se passe dans la feuille Consultation.

Avec la version du #35, je viens de vérifier, les ComboBox s'affichent et la recherche sur les 3 critères s'effectue.

Il y aura un petit problème à régler après, mais je vous expliquerai, je pense que pour l'instant vous êtes focalisés sur un point plus technique, inutile de mélanger les genres.
Amicalement
Jean Michel
 

ChTi160

XLDnaute Barbatruc
Bonjour Jean Michel
Bonjour le Fil ,Le Forum
Tu dis : "Elle est stockée dans le même dossier que mon classeur excel."
c'est pas indispensable , ce qui est important c'est que le Fichier soit enregistré, d'ou qu'il soit , dans le Dossier des"Macro Complémentaire d'Excel" en"*. xlam"
Ainsi , tu peux utilisé cet utilitaire quelque soit le Classeur utilisé !
je pense qu'une installation facile et efficace est nécessaire ! Lol
Bonne fin de Journée
Amicalement
Jean marie
 

Dranreb

XLDnaute Barbatruc
Je rectifie: Ce n'est pas important que ce fichier là, (ni le GigIdx d'ailleurs, joint par erreur, mais très utile aussi dans d'autres contextes) soit enregistré dans le dossier des Macro Complémentaire d'Excel, parce qu'il ne contient notamment aucune fonction destinée à être utilisée dans des formules de feuilles de calcul. Ça offre juste une facilité pour l'ouvrir depuis Excel, en cochant le complément, en vue de cocher ensuite surtout sa référence dans une nouvelle application. En revanche il est important qu'il n'encombre pas les fenêtres Windows puisque ce n'est qu'une fourniture de services VBA. Il est ouvert automatiquement du moment qu'il est en référence dans un projet. Aussi faut il simplement qu'il soit accessible au chemin enregistré lors de sa mise en référence.
 

ChTi160

XLDnaute Barbatruc
Re
peut être un début d'explication sur la non reconnaissance du Chemin d'enregistrement ????
lorsque je fait l'enregistrement manuel dans le Dossier des "Macros Complémentaires"
J'ai dans le Chemin un UserName "Jean marie Gxxxxxs" qui ne correspond pas à celui du Dossier "JMG" (les x sont les lettres de mon nom)
Ai je ? un jour , modifié le Nom du Dossier UserName , je ne sais pas !
Puis je le modifié et remplacer "JMG" en "Jean marie Gxxxxxs"
ceux qui pourrait Expliquer et résoudre le problème du chemin incorrect .
Voir Image jointe :
j'attends une réponse pour ce qui est de la Modification du Nom du Dossier.
Bonne fin de Journée
 

Fichiers joints

PERSEVERANT

XLDnaute Junior
Je rectifie: Ce n'est pas important que ce fichier là, (ni le GigIdx d'ailleurs, joint par erreur, mais très utile aussi dans d'autres contextes) soit enregistré dans le dossier des Macro Complémentaire d'Excel, parce qu'il ne contient notamment aucune fonction destinée à être utilisée dans des formules de feuilles de calcul. Ça offre juste une facilité pour l'ouvrir depuis Excel, en cochant le complément, en vue de cocher ensuite surtout sa référence dans une nouvelle application. En revanche il est important qu'il n'encombre pas les fenêtres Windows puisque ce n'est qu'une fourniture de services VBA. Il est ouvert automatiquement du moment qu'il est en référence dans un projet. Aussi faut il simplement qu'il soit accessible au chemin enregistré lors de sa mise en référence.
Soyez rassurés tous les deux, ça j'avais compris, je l'ai mis la parce que c'est plus facile pour moi de le retrouver si besoin en était.
Pour ce qui est de la remarque de Jean Marie, en #91, je ne peux qu’acquiescer, facile est le mot juste. Vous comprenez sans doute mieux pourquoi au début de ces échanges j'étais plus amateur de peu de VBA.
Amitiés
Jean Michel
 

Dranreb

XLDnaute Barbatruc
Hmm hmm… Donc "C:\Users\" & Application.UserName & "\AppData\Roaming\Microsoft\AddIns" peut ne pas donner le bon chemin, si je comprends bien.
Si quelqu'un me donnait un moyen simple et fiable de le trouver, ce chemin, ça m'intéresserait.
Je m'y perds entre des "%APPDATA%", l'API SHGetSpecialFolderPath et autres Shell ou quoi…

Oh con… Je crois que je le tiens, c'est tout simplement Application.UserLibraryPath
Pouvez vous vérifier ?
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
Voilà de quoi tordre le coup à la nuance 'Complément Excel' ou 'Macro complémentaire'
Du coup, au vu de ce nom de propriété j'appelle ça maintenant une 'Bibliothèque personnalisée'
C'est mieux que 'bibliothèque de l'utilisateur'
 

Fichiers joints

PERSEVERANT

XLDnaute Junior
Voilà de quoi tordre le coup à la nuance 'Complément Excel' ou 'Macro complémentaire'
Du coup, au vu de ce nom de propriété j'appelle ça maintenant une 'Bibliothèque personnalisée'
C'est mieux que 'bibliothèque de l'utilisateur'
J'ai échangé les deux fichiers CBxl et Gigldx.
ils sont tous les deux liés au projet VBA
mais pas de changement à l'ouverture de la feuille Consultation !
Jean Michel
 

ChTi160

XLDnaute Barbatruc
Re "Dranreb"
Tu n'as pas répondu à ma demande , penses tu ? que je puisse changer le Nom du Fichier "des Macros Complémentaires" de GJM en Jean marie Gxxxxxs
j'avais pensé , te demander si cela ne pouvais avoir une solution avec une Adresse du Genre Application.TemplatePath (que j'utilise pour charger un modéle .xltm) et je crois comprendre que tu y as pensé et trouvé Lol
je vais tester les nouveaux fichiers Joints au #96
je viens de tester Application.UserLibraryPath et cela correspond au nom de mon fichier "GJM"
Bonne fin de Journée
Amicalement
Jean marie
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
À PERSEVERANT: Le changement du fichier précurseur ne change rien à ce qui est déjà en place dans des applications. Ce qui diffère c'est la procédure d'installation qui s'exécute lors de son ouverture.
 

ChTi160

XLDnaute Barbatruc
Re "Dranreb"

j'ai facilement enregistré , le Fichier CBxl , Ok donc pour le chemin , j'ai constaté que le Libellé dans Atteindre avait changé il est passé de CBxl à "ComboBox Liées" plus Clair .
Demande : Quel fichier puis je utiliser pour tester ?
Merci par avance
Amicalement
Jean marie
 

Discussions similaires


Haut Bas