Mon fichier s'ouvre alors que je ne veux pas

Bonjour,

j'ai un problème, j'utilise le code

Dim Source As New ADODB.Connection
Fichier=mon fichier
Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
Fichier & ";Extended Properties='Excel 12.0;HDR=yes' "

et le problème c'est qu'il m'ouvre le fichier alors que je ne souhaite pas je veux juste récupérer des info avec la méthode ADO dans un fichier excel fermé.

si quelqu'un à une idée ?

Bien cordialement

Bonjour,

voici un exemple,

Sub Read_File()
Dim Fichier As String, Feuille As String
Dim Cnn As Object, texte_SQL As String, Rst As ADODB.Recordset

Fichier = "C:\Users\isabelle\Documents\MonFichier.xlsx"    'à adapter
Feuille = "Feuil1"                                                  'à adapter

Set Cnn = New ADODB.Connection

'--- Connexion ---
With Cnn
    .Provider = "Microsoft.Jet.OLEDB.12.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
           & Fichier & ";Extended Properties=""Excel 12.0;HDR=NO;"""
    .Open
End With

'--- récupérer les données --
Set rs = Cnn.Execute("SELECT * FROM [" & Feuille & "$]")
Range("A1").CopyFromRecordset rs

 '--- Fermeture connexion ---
rs.Close
Cnn.Close
Set rs = Nothing
Set Cnn = Nothing
End Sub

Bonjour,

je pense que parce que mon fichier est déjà ouvert par une personne et est donc en lecture seul la macro ouvre quand même le fichier pour prendre les infos.

merci à toi

Rechercher des sujets similaires à "mon fichier ouvre que veux pas"