Bonjour le forum,
Encore une fois je fais appel à vous, j'ai trouvé comment copier des cellules à partir d'un fichier fermé, voici le code :
Ca marche très bien, le souci c'est que je souhaiterais appliquer ce code à un fichier partagé, je voudrais en fait lire dans un fichier partagé fermé certaines cellules tout en gardant la mise en forme (ce que ne fait pas mon code actuel), j'ai en gros deux questions:
- comment copier à partir d'un fichier partagé
- comment faire que ma copie garde la mise en forme des cellules de base
Une ame charitable pour m'aider?
Encore une fois je fais appel à vous, j'ai trouvé comment copier des cellules à partir d'un fichier fermé, voici le code :
Code:
Sub extraire()
Dim Source As Object, Requete As Object
Dim Onglet As String, Plage As String, fichier As String
Dim Texte_SQL As String
'détermine de la plage à extraire
fichier = "Z:\P\Ges\2012.xls"
Onglet = "feuil 1" '
Plage = "A1:F1000"
'connexion ADO
Set Source = CreateObject("ADODB.Connection")
Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
'exerce la requete ADO sur les donnée à recopier
Texte_SQL = "SELECT * FROM [" & Onglet & "$" & Plage & "]"
Set Requete = CreateObject("ADODB.Recordset")
Set Requete = Source.Execute(Texte_SQL)
'restitue sur ton classeur
Range("A1").CopyFromRecordset Requete
'libère les pointeurs
Set Requete = Nothing
Set Source = Nothing
End Sub
Ca marche très bien, le souci c'est que je souhaiterais appliquer ce code à un fichier partagé, je voudrais en fait lire dans un fichier partagé fermé certaines cellules tout en gardant la mise en forme (ce que ne fait pas mon code actuel), j'ai en gros deux questions:
- comment copier à partir d'un fichier partagé
- comment faire que ma copie garde la mise en forme des cellules de base
Une ame charitable pour m'aider?