Hello le forum,
Sur mon poste via excel 2016 je fais des connexions via des classeurs fermés sur un reseau via cet algo (sans références cochées) :
Public Sub Traitement_Classeur()
Le_Classeur = Dir(Mon_Repertoire & "\" & "*.xlsm") 'Identification du classeur
i = F_Conso_Besoins.Cells(Rows.Count, Col_Ref_Bes).End(xlUp).Row + 1
Do While Len(Le_Classeur) > 0 'Tant qu'on a un classeur
Set LA_SOURCE = CreateObject("ADODB.Connection")
'--- Connexion ---
With LA_SOURCE
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Mon_Repertoire & "\" & Le_Classeur & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With
'----- Requete -----
Texte_SQL = "SELECT * FROM [" & Nom_F_Besoins & "$" & Ma_Plage_N & "]"
Set Requete = LA_SOURCE.Execute(Texte_SQL)
'--- restitution sur feuille classeur cible
F_Conso_Besoins.Range("A" & i).CopyFromRecordset Requete
i = F_Conso_Besoins.Cells(Rows.Count, Col_Ref_Bes).End(xlUp).Row + 1
Le_Classeur = Dir() 'prochain classeur
Loop
End Sub
Sur mon poste pas de soucis.
Sur un poste en 2010 ... erreur ...
Erreur d'execution sur la ligne
.Open
la méthode Open de l'objet _connection a échoué
Quelqu'un aurait-il une solution à mon problème svp ?
Merci.