Modification de code VBA sous Excel 2000 - 2002

[invitebb39d076]

Bonjour ,

Je recherche une personne maitrisant le VBA et les connections aux BDD Access.
Je m'interesse aux recherches sur les courses hippiques
Voila j'ai une dizaine de macros à modifier .
Ces macros fonctionnent tres bien avec un programme de Plat.( BDD )
Ces mêmes macros ne fonctionnent pas avec un programme de Trot.( BDD )
Je ne comprends pas ce qui se passe
Je vous remercie par avance de l'aide que vous pourriez m'appporter.

Cordialement FLBBZH
-----

[JPL]

Commence par poster une macro, en utilisant la balise Code (#) de l'éditeur étendu en en expliquant le problème rencontré.

[invitebb39d076]

Bonjour JPL ,

Je te remercie pour m'avoir repondu .
Dans la dizaine de macros ( classeur excel nommé Acceuil des données ) elles fonctionnent toutes quand je fais mes recherches avec la BDD ( Access ) de Plat
Je croyais quand faisant un copier coller de ces memes macros ( classeur excel nommé ADD ) cela fonctionnerait. Quand je fais mes recherches avec la BDD de Trot.( j'ai modifié Vsource ;Vdossier etc .....)ce n'est pas le cas.
J'ai regardé si c'etait une question de champs dans la table de Trot et apparement c'est les memes que ceux de la table de Plat .D'ou big probleme.
Je pense que pour resoudre cette enigme il faudrait que tu sois en possession de la BDD de Trot ,et des 2 classeurs Excel le 1 er ADD et le 2 ieme Comparaison.
Je ne sais pas ce que tu en penses ?Et si tu es d'accord j'aurai besoin de ton mail pour t'envoyer tout ça .

Je te fais un copier coller d'une macro qui fonctionne avec la BDD de plat , pour que tu jettes un oeil

Sub EcartEntraineurs()
Cells.Replace "''", "'"
Cells.Replace "'", "''"
Dat = Range("A1").Value
Range("G3").Select
For i = 0 To 20
Bloc(i) = ""
Plop(i) = ""
Next i
For i = 0 To 20
If ActiveCell.Value = "" Then Exit For
Bloc(i) = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i
Range("A65536").End(xlUp).Offset(3, 0).Select
Windows("Acceuil des données.xls").Activate
Range("A65000").End(xlUp).Offset(2, 0).Select
ActiveCell.Value = "Ecarts Entraineur"
ActiveCell.Font.Bold = True
ActiveCell.Font.Italic = True
ActiveCell.Offset(2, 0).Select
For i = 0 To 20
If Bloc(i) = "" Then Exit For
ActiveCell.Value = i + 1
ActiveCell.Offset(0, 1).Value = Bloc(i)
vDossier = "C:\Courses Hippiques\Bases de données\"
vSource = "Base Paris Turf.mdb"
vTable = "Base"
vBaseDeDonnées.Open "provider=microsoft.jet.oledb.4.0;" & "persist security info=false;" & "data source=" & vDossier & vSource
VSQL = "select top 60 Classement,Entraineur,[Date], Hippodrome, Terrain, Prix,[Ouvert a],[Allocation],Distance from Base where Entraineur like '%" & Bloc(i) & "%' And [Date] < DateValue('" & Dat & "')  Order By [Date] Desc "

vDonnées.Open VSQL, vBaseDeDonnées, adOpenStatic, adLockReadOnly
Range("A65536").End(xlUp).Offset(2, 0).Select
AfficherLesRéponsesBasic
vBaseDeDonnées.Close
ActiveCell.End(xlUp).End(xlUp).Select
Compt = 0
Do

If ActiveCell.Value = "" Then
Trouvé = False
Exit Do
End If
If ActiveCell.Value = "01" Then
Trouvé = True
Exit Do
End If
Compt = Compt + 1
ActiveCell.Offset(1, 0).Select
Loop
If Trouvé = True Then
ActiveCell.End(xlDown).End(xlDown).End(xlUp).Offset(1, 0).Value = Compt & " course(s) que " & Bloc(i) & " n'a pas gagné(e)"
Plop(i) = Compt
Else
ActiveCell.End(xlDown).End(xlDown).End(xlUp).Offset(1, 0).Value = Bloc(i) & " n'a pas gagné(e)"
Plop(i) = "Pas gagné"
End If
ActiveCell.End(xlDown).End(xlDown).End(xlDown).End(xlUp).Rows("1:1").EntireRow.Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
ActiveCell.End(xlDown).End(xlDown).End(xlUp).Offset(2, 0).Select
Next i


'Tableau récap

For i = 0 To 20

    ActiveCell.Offset(i, 0).Value = Bloc(i)
    ActiveCell.Offset(i, 1).Value = Plop(i)

Next i
End Sub

Je te souhaite bonne reception et te dis un grand merci .Mais je crois que le mieux serait que tu ai la BDD et les 2 classeurs Excel.


Cordialement FLBBZH

[JPL]

Je n'ai pas posté mon message parce que j'aurais des compétences en ce domaine (ce n'est pas le cas) mais parce que ton message initial ne comporte aucune indication concrète. Donc j'étais sûr que tu n'aurais pas de réponse. D'après ton message il semble que c'est un problème trop important pour être traité sur un forum. Du coup j'en viens à me demander si tu ne cherches pas tout simplement une "petite main".

[A voir en vidéo sur Futura]