Ado selon fichier boisgontier probleme

Regueiro · 16 Avril 2012

Bonjour à tous.
Comme indiquer dans l'intitulé, j'ai pris sur le site de Boisgontier
son fichier DVCascadeContinentADO
Je l'ai enregistré sur mon PC et enregistrer le fichier DVCascadeContinentADO.xls par xlsm et continent.xls reste identique.
Son application marche très bien.
J'essaie donc de l'appliquer pour mon application et là cela ne marche pas.
Je ne n'arrive pas à comprendre pourquoi.
Je vous joint mes 2 fichiers.

Voilà également la copie de mes références activées

Pour Info je suis sur Windows 7 Edition Familiale Premium
et Microsoft Excel 2010

Merci de votre Aide
A+

BOISGONTIER · 16 Avril 2012

Re : Ado selon fichier boisgontier probleme

Bonjour,

-Sauvegarder la BD au format .XLS
-Modifier son nom pour qu'il corresponde à celui qui est spécifié dans le programme (BD_PROG_CALCULATION.xls)
-Dans le programme, il faut spécifier la librairie 'Microsoft ActiveX Data Object 2.8 doit être activé en VBA avec Outils/Références

Code:

Private Sub UserForm_Initialize()
  'Microsoft ActiveX Data Object 2.8 doit être activé
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path & "\"
  fichier = "BD_PROG_CALCULATION.xls"
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ= " & répertoire & fichier
  Set rs = cnn.Execute("SELECT Type FROM BD Where Type<>'' Group By Type")
  Me.ComboBox1.List = Application.Transpose(rs.GetRows)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
  SendKeys "{F4}"
End Sub

JB

Regueiro · 16 Avril 2012

Re : Ado selon fichier boisgontier probleme

Bonsoir le Forum
Bonsoir Jacques, cela fait plaisir de vous attendre.
J'ai fait les modifications et cela marche. Merci
Juste quelques questions.
1. Si ma BD est enregistrée au format xlsm ou xlsx la macro peut elle marcher.
2. Est-ce que suis obligé de compléter ma BD ainsi
HEA - HEA 100
HEA - HEA 120
En fait j'aimerais ne pas avoir besoin de mettre chaque fois HEA sur la colonne A, ainsi
HEA - HEA 100
- HEA 120
- HEA 140
IPE - IPE 80
- IPE 100
etc.
3. Lorsque je selectionne HEA 100 par exemple.
HEA va en C et HEA 100 en D
Alors que j'aimerais que HEA 100 en C
4. En colonne G j'ai le Poids kg/m avec une formule de type RechercheV.
Est-il possible de mettre cette formule dans un code VBA.

Merci encore de votre aide.

Regueiro · 17 Avril 2012

Re : Ado selon fichier boisgontier probleme

Bonjour Le Forum et Jacques
Quelqu'un ou Jacques pourrait-il me répondre à mes questions du Post Précédent.
Merci
A+

Regueiro · 17 Avril 2012

Re : Ado selon fichier boisgontier probleme

Bonjour Le Forum
Questions selon Post précédent
1. Toujours en suspend, en attente de réponse d'une âma charitable.
2. J'ai compléter ma colonne A, avec HEA ou IPE, en attente d'une alternative.
3. OK résolu, j'ai changer

Private Sub ComboBox2_Change()
ActiveCell = Me.ComboBox1
ActiveCell.Offset(, 0) = Me.ComboBox2 'modidié 1 par 0 OK
Unload Me
End Sub

4. Toujours à la recherche d'une solution, éventuellement compléter le USF avec
un textBox avec la valeur de kg/m et un bouton validation.

J'ai rajouter un BeforeDoubleClick pour lancer la Macro
Merci de votre Aide.
En PJ mes fichiers.
A+

Regueiro · 18 Avril 2012

Re : Ado selon fichier boisgontier probleme

Bonjour à Tous
Je cherche toujours de l'aide.
Il aurait une personne pour m'expliquer comment faire.
Merci
A+

Ado selon fichier boisgontier probleme

Regueiro

XLDnaute Impliqué

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Regueiro

XLDnaute Impliqué

Regueiro

XLDnaute Impliqué

Regueiro

XLDnaute Impliqué

Pièces jointes

Regueiro

XLDnaute Impliqué

Discussions similaires

Ado selon fichier boisgontier probleme

Regueiro

XLDnaute Impliqué

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Regueiro

XLDnaute Impliqué

Regueiro

XLDnaute Impliqué

Regueiro

XLDnaute Impliqué

Pièces jointes

Regueiro

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency