bonjour le forum,
je souhaite récupérer une feuille d'un classeur fermé et pour cela j'utilise un code de notre excelien boisgontier jacques
Fichier = ThisWorkbook.Path & "\GARDES.xlsm"
Set Source = New ADODB.Connection
Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=Excel 12.0;"
texte_SQL = "SELECT * FROM [AGENTS$]"
Set requete = New ADODB.Recordset
Set requete = Source.Execute(texte_SQL)
'tu ajoutes une feuille a ton classeur ouvert
ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "Agents"
'on récupère les données
ActiveSheet.Range("A1").CopyFromRecordset requete
'on ferme!
requete.Close
Source.Close
Set requete = Nothing
Set Source = Nothing
j'ai une erreur sur :
Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=Excel 12.0;"
erreur d’exécution 80004005 : mise a jour impossible . La base de données ou l'objet est en lecture seule.
pourtant je regarde mon fichier gardes.xlsm et celui n'est pas en lecture seule
avez vous une idée pour débloquer ce problème
merci d'avance
amicalement
ghislain
nb :mon fichier gardes étant volumineux je ne peux le mettre sur le site
je souhaite récupérer une feuille d'un classeur fermé et pour cela j'utilise un code de notre excelien boisgontier jacques
Fichier = ThisWorkbook.Path & "\GARDES.xlsm"
Set Source = New ADODB.Connection
Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=Excel 12.0;"
texte_SQL = "SELECT * FROM [AGENTS$]"
Set requete = New ADODB.Recordset
Set requete = Source.Execute(texte_SQL)
'tu ajoutes une feuille a ton classeur ouvert
ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "Agents"
'on récupère les données
ActiveSheet.Range("A1").CopyFromRecordset requete
'on ferme!
requete.Close
Source.Close
Set requete = Nothing
Set Source = Nothing
j'ai une erreur sur :
Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=Excel 12.0;"
erreur d’exécution 80004005 : mise a jour impossible . La base de données ou l'objet est en lecture seule.
pourtant je regarde mon fichier gardes.xlsm et celui n'est pas en lecture seule
avez vous une idée pour débloquer ce problème
merci d'avance
amicalement
ghislain
nb :mon fichier gardes étant volumineux je ne peux le mettre sur le site