Bonjour forum,

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub GetInfoProjet(intNoProjet As String)
    Dim Cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
 
    Set Cnn = New ADODB.Connection
    Cnn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=10.10...;Database=Data;User=Gille; Password=se091;Option=3;"
    Cnn.Open
 
    Set rs = New ADODB.Recordset
    strSQL = "SELECT O.NoProjet, E.NomEmploye, E.Departement, O.HrsTotal, E.GrandSecteur, O.CodeActivite, O.DateHrsDebut, O.DateHrsFin " & _
             "FROM ultrahrsgest.employe E INNER JOIN ultrahrsgest.operation O ON E.NoUtilisateur = O.NoUtilisateur " & _
             "WHERE O.NoProjet=" & intNoProjet
    rs.Open strSQL, Cnn, adOpenDynamic, adLockReadOnly
 
    Sheets("Feuil1").Range("A10").CopyFromRecordset rs
End Sub
J'ai modifier les info perso.

Le bug survient à cette ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
rs.Open strSQL, Cnn, adOpenDynamic, adLockReadOnly
Je désire garder ces mêmes propriétés pour être certain de ne pas modifier ma base de donnée, avez une solution

Merci