Discussion :

[crochepatte]

Bonjour,

J'ai un soucis de compatibilité Excel 2003 vers Excel 2007.

J'ai une macro dans mon classeur E03 qui fonctionne bien sous E03. Quand je l'exécute sous E07, elle ne fonctionne pas...

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
 
        '---------------------------
        Set cn = New ADODB.Connection
        '--- Connection ---
        With cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Data Source=" & FichierDatas & _
                ";Extended Properties=Excel 8.0;"
            .Open
        End With
        '-----------------
        'Définit la requête. pour retrouver la place où insérer les feuilles du rapport mensuel
        texte_SQl = "SELECT Année, Mois FROM [Données complémentaires$] WHERE Année = " & annee
 
        Set rst = New ADODB.Recordset
        Set rst = cn.Execute(texte_SQl)

Il bloque à l'exécution de ma requête(seulement sous E07). Un message d'erreur apparaît: Erreur -2147217904 : aucune valeur données pour un ou plusieurs des paramètres requis.
Je comprends pas pourquoi....Le problème se situe peut être en amont, lors que le définition de la connexion...

Si quelqu'un a une piste...Merci

[pgz]

Bonjour.

Avec XL 2007, peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set Cn = New ADODB.Connection
 
With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    .Open
End With

Cordialement,

PGZ

[crochepatte]

En fait, la vérité est ailleurs...

Merci pour ceux qui ont cherché...
Le problème se situait ailleurs dans mon code...en amont... Brièvement, pour ceux que ça intéresse, la copy/modif/sauvegarde d'un fichier xls se fait de façon différente entre E03 et E07 (cela est du aux nouveaux formats xlsx). Le FichierDatas ou je récupère les données n'était pas sauvegardé comme je voulais...

A bon entendeur...