je m'en sort pas !!!

L

loisphil

XLDnaute Nouveau
bonjour bonsoir forum je sais plus !

ca fait pas ce que je veux j'y arrive pas

merci aux bons coeur !
encore debout ou bien levé

Private Sub ComboBox10_Change()

Dim maFeuil As String
Dim maFeuilB As String
Dim Cn As ADODB.Connection
Dim Fichier As String
'Dim onglet As String

Fichier = "D:\LancementFab2\PREFA.xls" 'Définit le classeur fermé servant de base de données

Set Cn = New ADODB.Connection

With Cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & Fichier & "; ReadOnly=False;"
.Open
End With

'If ComboBox10.Value = "" Then
'End If
'On Error GoTo GestErreur

maFeuil = ComboBox10.Value
ActiveSheet.Name = maFeuil

' rappel feuil avec Remplissage usf
TextBox1 = Workbooks("PREFA").Sheets(maFeuil).Range("H2").Value
TextBox2 = Workbooks("PREFA").Sheets(maFeuil).Range("I1").Value
ComboBox1 = Workbooks("PREFA").Sheets(maFeuil).Range("A2").Value

TextBox3 = Workbooks("PREFA").Sheets(maFeuil).Range("C5").Value
TextBox12 = Workbooks("PREFA").Sheets(maFeuil).Range("C7").Value
TextBox4 = Workbooks("PREFA").Sheets(maFeuil).Range("C9").Value
ComboBox2 = Workbooks("PREFA").Sheets(maFeuil).Range("C11").Value
TextBox5 = Workbooks("PREFA").Sheets(maFeuil).Range("C13").Value
TextBox6 = Workbooks("PREFA").Sheets(maFeuil).Range("C16").Value
TextBox7 = Workbooks("PREFA").Sheets(maFeuil).Range("I16").Value
TextBox8 = Workbooks("PREFA").Sheets(maFeuil).Range("C18").Value
TextBox9 = Workbooks("PREFA").Sheets(maFeuil).Range("I18").Value
TextBox10 = Workbooks("PREFA").Sheets(maFeuil).Range("C20").Value
TextBox11 = Workbooks("PREFA").Sheets(maFeuil).Range("I20").Value
TextBox15 = Workbooks("PREFA").Sheets(maFeuil).Range("A53").Value

ComboBox3 = Workbooks("PREFA").Sheets(maFeuil).Range("C22").Value
ComboBox4 = Workbooks("PREFA").Sheets(maFeuil).Range("G22").Value
ComboBox5 = Workbooks("PREFA").Sheets(maFeuil).Range("C24").Value
ComboBox6 = Workbooks("PREFA").Sheets(maFeuil).Range("G24").Value
ComboBox7 = Workbooks("PREFA").Sheets(maFeuil).Range("C26").Value
ComboBox8 = Workbooks("PREFA").Sheets(maFeuil).Range("G26").Value

'GestErreur:
'MsgBox "Cette feuille n'existe pas !"
SAISIE.Show


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

'Sheets("USF").Activate

End Sub
 
Trier par date Trier par votes
C

Compte Supprimé 979

Guest
Re : je m'en sort pas !!!

Bonjour Loisphil,

Alors plusieurs choses :
1) merci d'éditer ton premier post et de mettre le code entre balises
avec le bouton "#" dièse

2) Tu ne nous dis pas ce qui ne va pas :confused:

A+
 
Vote positif 0 Vote négatif
pedrag31

pedrag31

XLDnaute Occasionnel
Re : je m'en sort pas !!!

Bonjour Loiphil, bonjour BrunoM45, bonjour le forum,


Code: 
TextBox2 = Workbooks("PREFA").Sheets(maFeuil).Range("I1").Val ue
ComboBox1 = Workbooks("PREFA").Sheets(maFeuil).Range("A2").Val ue

TextBox3 = Workbooks("PREFA").Sheets(maFeuil).Range("C5").Val ue
TextBox12 = Workbooks("PREFA").Sheets(maFeuil).Range("C7").Val ue
TextBox4 = Workbooks("PREFA").Sheets(maFeuil).Range("C9").Val ue
Cliquez pour agrandir...

Le pb c'est que tu as un espace dans "value" sur chaque ligne? :D Non, je rigole... Sinon, tu l'aurais vu de suite en rouge dans VBA.

1) merci d'éditer ton premier post et de mettre le code entre balises
avec le bouton "#" dièse

2) Tu ne nous dis pas ce qui ne va pas :confused:
Cliquez pour agrandir...

Oui, et si possible un petit fichier exemple avec toutes les combobox et les textbox pour voir ce que doit faire le code...;)

Bonne journee...
 
Vote positif 0 Vote négatif
L

loisphil

XLDnaute Nouveau
Re : je m'en sort pas !!!

bonjour forum !
BrunoM45,pedrag31 !

desole pour reponse tardive mais j'ai veille une bonne parti de la nuit
fallait dormir un peu !
mon fichier est trop lourd pour l'envoi ! Alors j'ai du faire du vide
voir fichier joint
ce que je n'arrive pas a faire... avec la selection ComboBox10 je dois recuperer les valeurs d'une feuil d'un classeur fermé pour pour les inscrires dans l'USF en fonction du choix des boutons d'option PREFA MJL MSL etc...

je recommence avec les balises !
Code: 
Private Sub ComboBox10_Change()

Dim maFeuil As String
Dim maFeuilB As String
Dim Cn As ADODB.Connection
Dim Fichier As String
'Dim onglet As String

         
    Fichier = "D:\LancementFab2\PREFA.xls" 'Définit le classeur fermé servant de base de données
    
    Set Cn = New ADODB.Connection
    
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With



'If ComboBox10.Value = "" Then
 'End If

'On Error GoTo GestErreur

 
    maFeuil = ComboBox10.Value
    ActiveSheet.Name = maFeuil

' rappel feuil avec Remplissage usf
TextBox1 = Workbooks("PREFA").Sheets(maFeuil).Range("H2").Value
TextBox2 = Workbooks("PREFA").Sheets(maFeuil).Range("I1").Value
ComboBox1 = Workbooks("PREFA").Sheets(maFeuil).Range("A2").Value

TextBox3 = Workbooks("PREFA").Sheets(maFeuil).Range("C5").Value
TextBox12 = Workbooks("PREFA").Sheets(maFeuil).Range("C7").Value
TextBox4 = Workbooks("PREFA").Sheets(maFeuil).Range("C9").Value
ComboBox2 = Workbooks("PREFA").Sheets(maFeuil).Range("C11").Value
TextBox5 = Workbooks("PREFA").Sheets(maFeuil).Range("C13").Value
TextBox6 = Workbooks("PREFA").Sheets(maFeuil).Range("C16").Value
TextBox7 = Workbooks("PREFA").Sheets(maFeuil).Range("I16").Value
TextBox8 = Workbooks("PREFA").Sheets(maFeuil).Range("C18").Value
TextBox9 = Workbooks("PREFA").Sheets(maFeuil).Range("I18").Value
TextBox10 = Workbooks("PREFA").Sheets(maFeuil).Range("C20").Value
TextBox11 = Workbooks("PREFA").Sheets(maFeuil).Range("I20").Value
TextBox15 = Workbooks("PREFA").Sheets(maFeuil).Range("A53").Value

ComboBox3 = Workbooks("PREFA").Sheets(maFeuil).Range("C22").Value
ComboBox4 = Workbooks("PREFA").Sheets(maFeuil).Range("G22").Value
ComboBox5 = Workbooks("PREFA").Sheets(maFeuil).Range("C24").Value
ComboBox6 = Workbooks("PREFA").Sheets(maFeuil).Range("G24").Value
ComboBox7 = Workbooks("PREFA").Sheets(maFeuil).Range("C26").Value
ComboBox8 = Workbooks("PREFA").Sheets(maFeuil).Range("G26").Value
    
'GestErreur:
'MsgBox "Cette feuille n'existe pas !"
SAISIE.Show


    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
    
    'Sheets("USF").Activate

End Sub
 

Pièces jointes

  • DEBUT2.zip
    44.5 KB · Affichages: 40
Vote positif 0 Vote négatif
Brigitte

Brigitte

XLDnaute Barbatruc
Re : je m'en sort pas !!!

Coucou le fil,

Bruno, Michel, je vous sens désabusés... Ca va pô çâ, au tarif où qu'on vous paie (je fais exprès de mal parler, ça fera plus couleur locale, je parle pas pour ce fil)...

Allez je vous fais des bises pour vous ramener le sourire, c'est bon, je peux repartir, c'est fait ? Quoi, non ? Roooooooooôh, vous poussez les gars, on s'amuse bien ici tout de même. C'est les vacances, le soleil brille sur la France (quoi, encore non ? fermez les yeux, pensez aux photos des Antilles où est arrivé Samedi notre ami criscris11, le pauvre... alors ça y est, vous le voyez le soleil ? ouf)...

Zêtes pas possibles !!

Alors Bruno, ce départ pour la grande île des tentations, ça approche ti ?
 
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
Re : je m'en sort pas !!!

Salut Loisphil,

Une connexion ADO s'utilise avec un RecordSet (ligne d'enregistrements)
Il faut donc que les données contenues dans les feuilles de ton classeur soient en ligne avec une entête de colonnes (à moins que je me trompe)

Dans ton cas, tu peux seulement utiliser la méthode OLE
Code: 
Private Sub ComboBox10_Change()
  Dim Chemin As String, NomFic As String
  Dim Classeur As Workbook
  Dim base As Range
  ' Méthode OLE plus simple
  Chemin = ThisWorkbook.Path & "\"
  NomFich = "PREFA.xls"
  Application.ScreenUpdating = False
  Set Classeur = GetObject(Chemin & NomFich)
  Application.ScreenUpdating = True
 
  If PREFA.Value = True Then
    maFeuil = ComboBox10.Value
    ' rappel feuil avec Remplissage usf
    TextBox1 = Classeur.Worksheets(maFeuil).Range("H2").Value
    TextBox2 = Classeur.Worksheets(maFeuil).Range("I1").Value
    ComboBox1 = Classeur.Worksheets(maFeuil).Range("A2").Value
    TextBox3 = Classeur.Worksheets(maFeuil).Range("C5").Value
    TextBox12 = Classeur.Worksheets(maFeuil).Range("C7").Value
    TextBox4 = Classeur.Worksheets(maFeuil).Range("C9").Value
    ComboBox2 = Classeur.Worksheets(maFeuil).Range("C11").Value
    TextBox5 = Classeur.Worksheets(maFeuil).Range("C13").Value
    TextBox6 = Classeur.Worksheets(maFeuil).Range("C16").Value
    TextBox7 = Classeur.Worksheets(maFeuil).Range("I16").Value
    TextBox8 = Classeur.Worksheets(maFeuil).Range("C18").Value
    TextBox9 = Classeur.Worksheets(maFeuil).Range("I18").Value
    TextBox10 = Classeur.Worksheets(maFeuil).Range("C20").Value
    TextBox11 = Classeur.Worksheets(maFeuil).Range("I20").Value
    TextBox15 = Classeur.Worksheets(maFeuil).Range("A53").Value
    ComboBox3 = Classeur.Worksheets(maFeuil).Range("C22").Value
    ComboBox4 = Classeur.Worksheets(maFeuil).Range("G22").Value
    ComboBox5 = Classeur.Worksheets(maFeuil).Range("C24").Value
    ComboBox6 = Classeur.Worksheets(maFeuil).Range("G24").Value
    ComboBox7 = Classeur.Worksheets(maFeuil).Range("C26").Value
    ComboBox8 = Classeur.Worksheets(maFeuil).Range("G26").Value
    ' Fermer le classeur appelé par méthode OLE
    Classeur.Close False
    SAISIE.Show
  End If
End Sub

Le problème, c'est que tes feuilles ou tu veux récupérer les valeurs, sont sous forme de fiche.

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
XL 2019 Je rencontre une erreur 9 : "L'indice n'appartient pas à la sélection"
Réponses
3
Affichages
1 K
chris4785478547
C
H
  • Question
XL 2019 "Bug" récupération d'un champs suite requete mysql
Réponses
3
Affichages
945
Polobe36
P
Fredox
  • Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
Fredox
H
  • Question
XL 2013 Pilote ODBC - MySQL - Paramétrages
Réponses
2
Affichages
1 K
hctad1
H
G
  • Question
Microsoft 365 Ecrire dans un classeur ferme
Réponses
2
Affichages
3 K
patricktoulon
patricktoulon
Lone-wolf
  • Question
XL 2013 Copier des données de plusieurs classeurs
Réponses
2
Affichages
612
Lone-wolf
Lone-wolf
R
  • Question
Requête SQL - problème date - where - récupération celllule
2
Réponses
18
Affichages
5 K
rcan7412
R
BenHarber
  • Question
XL 2013 Chemin d'accès avec One Drive ?
Réponses
4
Affichages
6 K
BenHarber
BenHarber
M
  • Question
XL 2013 Erreur d'exécution 9 ou 13 que je n'arrive pas à résoudre.
2
Réponses
20
Affichages
3 K
massol
M
N
  • Question
XL 2016 Copie feuille de plusieurs classeurs fermés vers classeur actif
Réponses
0
Affichages
942
Nestor
N

Membres actuellement en ligne

4 membres et 17 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 677
Messages
2 090 824
Membres
104 677
dernier inscrit
soufiane12