Discussion :

[chamus]

Bonjour a tous

voila je voudrais savoir s il etait possible d ecrire un code sql me permettant
- d ouvrir un classeur excel
- de modifier le contenu de la cellule A65000 de la feuille(4) (genre mettre "a")
- de refermer ce meme classeur

Au fait g ecrit une macro sur ce classeur qui se declenche des qu une cellule de la feuille(4) est modifiée.
j exporte a partir de ma base de donnée une requete vers ce classeur, mais cette exportation ne declenche pas ma macro (le classeur excel etant fermé pour permettre l exportation). j essaie de trouver un moyen de la declencher sans ouvrir ce classeur...

merci beaucoup

[Invité]

Salut

Va voir le Tuto de SylkiRoad sur les classeurs fermés, il parle de connection avec un classeur par ADO, si cela peut t'aider

Starec

[cafeine]

Hello,

DAO sait très bien le faire aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub DAOUpdateExcelFile(ByVal strFullPath As String, _
                       ByVal strTab As String, _
                       ByVal RowIndex As Long, _
                       ByVal ColumnIndex As Long, _
                       ByVal setValue As Variant)
 
    ' Ajoutez la référence DAO
    Dim db As DAO.Database
    Dim rec As DAO.Recordset
 
    ' on ouvre le fichier excel en tant que base de données DAO
    Set db = OpenDatabase(strFullPath, False, False, "Excel 8.0;")
    DoEvents
    ' on ouvre un recordset sur un onglet comme on le ferait
    '   sur une table Access
    ' En DAO, les tables sont les onglets avec un $ final
    Set rec = db.OpenRecordset(strTab & "$", DAO.dbOpenDynaset)
 
    ' on se déplace sur l'enregistrement souhaité
    rec.Move RowIndex - 1
    ' on édite l'enregistrement
    rec.Edit
        rec.Fields(ColumnIndex - 1).Value = setValue
    rec.Update
    ' on sauvegarde
 
    ' fermez les objets
    rec.Close
    db.Close
 
    ' libérez les objets !
    Set db = Nothing
    Set rec = Nothing
 
End Sub

Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

daoupdateexcelfile "c:\temp\db.xls","Feuil1",12,5,999

Permet de passer la valeur de la cellule E12 de l'onglet "Feuil1" à 999

[cafeine]

Tiens j'ai remarqué que ça ne marchait pas s'il y a une formule dans la cellule ...

[DMboup]

Tu dois utiliser les object WorkBooks (classeur) WorkSheets (Feuille) et Cells(Cellule).

Ca resemble à ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim MonApp As Object
Dim MonClasseur As WorlBook
Dim MaFeuille As WorkSheets
 
    Set MonApp = CreateObject("Excel.Application")
    oApp.Visible = True
 
    Set MonClasseur=MonApp.WorkBooks("Ton Fichier").OpenDocument
    Set MaFeuille=MonClasseur.WorkSheets("Ta Feuille").Selected

Utilise F1 pour corriger et compléter le code

[Pierre Fauconnier]

Salut DMBoup

Je me permets quelques corrections de ton code, car approximatif (sûrement donné à la hâte...). Ne le prends pas mal, c'est pour la bonne cause...

Tu donnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim MonApp As Object
Dim MonClasseur As WorlBook
Dim MaFeuille As WorkSheets

Cela devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim MonApp As Object
Dim MonClasseur As WorkBook
Dim MaFeuille As WorkSheet

Avec WorkBook et sans s à Worksheet

Puis tu donnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set MonClasseur=MonApp.WorkBooks("Ton Fichier").OpenDocument
Set MaFeuille=MonClasseur.WorkSheets("Ta Feuille").Selected

Cela devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set MonClasseur = Workbooks.Open("MonFichier")
Set MaFeuille = MonClasseur.Worksheets("MaFeuille")

[DMboup]

C'est certainement mieux. J'ai saisi à la volet comme ca.

[Invité]

Re

Excuse-moi DMboup, mais là c'est de l'automation, hors chamus demande du SQL, et ce n'est qu'avec DAO comme l'écrit Caféine ou ADO que l'on peut faire du SQL

Starec