Discussion :

[BGIE_29300]

Bonjour tout le monde,

comme indiqué dans le titre de mon message, je tente de lire et écrire dans un classeur Excel 365 fermé.

J'ai lu le tuto de SilkyRoad, et j'ai tenté d'appliquer son code, mais j'obtiens un message d'erreur dès le Dim Cn as ADODB.connection



alors que j'ai coché ceci :



Merci d'avance pour votre aide !

[hyperion13]

Salut
Comme le code est une image
La référence est Microsoft ActiveX Data Objects 6.1 Library, alors normal que vous ayez une erreur puisque pas coché chez vous.
Éventuellement

Code :

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

1
2
Dim cn ADODB.connection vs Dim cn As Object
Set cn = New ADODB.Connection vs Set cn = CreateObject("ADODB.Connection")

Code :

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

1
2
3
With cn
    .Open "Provider=Microsoft.ACE.OLEDB.16.0; Data Source=" & Fichier & "; Extended Properties=""Excel 16.0 Macro; HDR=Yes"";"
End With

[Raccourcix]

Bonjour

Et pourquoi ne pas utiliser Power Query pour lire dans votre classeur "Base2" ?
C'est quand même beaucoup plus rapide, simple, dynamique...
Pour moi cette méthode était adaptée à l'époque d'Excel 2007 mais Excel a bien évolué depuis et on dispose d'outils bien plus pratique

Quant à écrire dans un classeur fermé, je dirais qu'Excel n'est pas fait pour cela, mais bon...

Stéphane

[BGIE_29300]

Merci beaucoup, je vais tester et vous tiens au courant.

[BGIE_29300]

Retour suite à la correction de "L'active X".

Le code se bloque désormais sur le ".open" avec le message :



Merci d'avance pour votre aide.

Salut
Comme le code est une image
La référence est Microsoft ActiveX Data Objects 6.1 Library, alors normal que vous ayez une erreur puisque pas coché chez vous.
Éventuellement

Code :

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

1
2
Dim cn ADODB.connection vs Dim cn As Object
Set cn = New ADODB.Connection vs Set cn = CreateObject("ADODB.Connection")

Code :

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

1
2
3
With cn
    .Open "Provider=Microsoft.ACE.OLEDB.16.0; Data Source=" & Fichier & "; Extended Properties=""Excel 16.0 Macro; HDR=Yes"";"
End With