Sujet Précédent Sujet Suivant

Lecture de classeur excel fermé

Résolu/Fermé
Coco334 - 25 mai 2009 à 16:01
 juste merci - 1 mars 2013 à 11:52
Bonjour,

Je voudrais faire une macro qui lis une feuille Excel fermée et qui calcule l'écart type d'une plage de donnée de cette feuille pour l'écrire dans la feuille ouverte avec laquelle je cré ma macro. Je débute en VBA et ce problème ne m'a pas l'air simple, est ce que vous auriez des idées ou des suggestions.

Merci d'avance
A voir également:

4 réponses

Réponse 1 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
25 mai 2009 à 17:52
ci desous exemple extraction fichier fermé avec technologie ADO
les 2 classeurs sont dans le m^me dossier et ion extrait du classeur "depart" en "feuil1" les cellules B2 à B1000 vers le classeur ouvert avec un début en C3 . 

Sub extraire_ado()
Dim Source As Object, Requete As Object
Dim chemin As String
Dim Onglet As String, Plage As String
Dim Texte_SQL As String

chemin = ThisWorkbook.Path
fichier = "depart.xls"
Onglet = "feuil1"
Onglet = Onglet & "$"
Plage = "B2:B10000"

Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & chemin & "\" & fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
    
Texte_SQL = "SELECT * FROM [" & Onglet & Plage & "]"
    Set Requete = CreateObject("ADODB.Recordset")
    Set Requete = Source.Execute(Texte_SQL)
    
Range("C3").CopyFromRecordset Requete
    
  
Requete.Close
Set Requete = Nothing
Source.Close
Set Source = Nothing

End Sub
5
juste merci
1 mars 2013 à 11:52
un grand merci !!!
même avec plusieurs mois de retard... ça vient de me débloquer mon pb et je pense de me faire gagner un temps fou !!!
0
Réponse 2 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
25 mai 2009 à 17:30
Bonjour, tu ne débutes pas par le plus aisé!...

cette macro, dite de Walkenbach pourrait être une piste

Sub lire_ferme()
Dim chemin As String

chemin = ThisWorkbook.Path
Range("A3") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R1C1")
Range("B4") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R2C2")
Range("C8") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R5C3")
Range("E9") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R7C4")
End Sub

elle extrait dans ton classeur ouvert les cellules de la feuil1 A1 (R1C1)en A3, B2(R2C2) en B4 etc.
tu pourrais traiter cela par une boucle si tes cellules sont jointives
for cptr=1 to...
cells(cptr,1) = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R" & cptr & "C1")

sinon, le mieux est d' utiliser ADO si tu as beaucoup de données, mais...
0
Réponse 3 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
25 août 2009 à 14:34
Je peux rien te dire: je suis trop nul pour Coco
0
Réponse 4 / 4
Coco334
26 mai 2009 à 14:10
Merci pour votre réponse facile j'ai pu trouver une solution en écrivant directement dans la feuille excel.
-1
tshady
25 août 2009 à 13:19
tu pourrais me dire si ca fonctionne vraiment a classeur fermé
je souhaite extraitre les données d'une feuille fermer vers un feuille ouverte sans avoir à ouvrir la source
0