Ouverture d'un fichier excel + macro excel

Version imprimable

05/01/2010, 21h08
novice06

Ouverture d'un fichier excel + macro excel

bonjour,

un petit problème vient à moi

- un fichier excel fh1966.xls
- PERSO.XLS avec une macro spécifique "fh_reseau" pour des fichiers spécifiques dont fait parti fh1966.xls
- une application access
- un formulaire avec un explorateur et sélection d'un fichier dont le chemin est récupérer dans RecupChemin (dim RecupChemin as string)

comment faire pour que l'utilisateur qui via le formulaire access ira sélectionner le fichier fh1966.xls ouvre en background grace à un bouton de commande ce fichier excel et lui applique la macro spécifique fh_reseau ?

en espérant que cela soit possible

merci par avance

Bonsoir,

A priori cela ne pose pas de problème. Pour ma part je préfère mettre le code dans access plutot que dans perso.xls mais le principe est le même. Voici un petit exemple pour te mettre sur la voie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub imp_plg_Click()
If Not Mode_debug Then On Error GoTo err:
Dim objBook As Object, objApp As Object, objSheet As Object
 
'ouverture du fichier
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(Client_path & "planet_plg.xls", ReadOnly:=True)
Set objSheet = objBook.Worksheets("planning")
objApp.Visible = True   'si on veut visualiser
objSheet.Activate
objSheet.Range("taches_actives").QueryTable.Refresh BackgroundQuery:=False 'raffraichissement de la requete
objSheet.Range("taches_actives").AutoFilter Field:=1, Criteria1:="<>T"
objSheet.Range("a1").Select
Exit Sub
err: message "Erreur " & err.Number & " dans OF.imp_plg : " & err.DESCRIPTION
End Sub

bonjour,
la partie du code suivant est ok à l'exception du lancement de la macro fh-reseau de PERSO.XLS

Quel est la procédure pour lancer cette macro si possible ?

Code:

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
Private Sub Commande5_Click()
 
 Dim xlApp As Excel.Application
 Dim xlSheet As Excel.Worksheet
 Dim xlBook As Excel.Workbook
 
'ouverture du fichier
Set xlApp = CreateObject("excel.application")
Set xlBook = objApp.Workbooks.Open(Me.Texte1, ReadOnly:=False)
Set xlSheet = objBook.Worksheets("retour")
objApp.Visible = True
objSheet.Activate
objSheet.Range("a1").Select
 
'macro Fh_reseau présente dans PERSO.XLS à lancer
xxxxxxx
 
'fermeture
xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
 
End Sub

merci
bonne journée

06/01/2010, 08h31
fgiambelluco

Bonjour
Essaye un

Code:

xlApp.Application.Run "perso.xls!TaMacro"

(je n'ai pas pu tester cause Excel 2007)
;)