Essayez d'ouvrir un Classeur et exécuter une macro dans le fichier

J'ai un classeur qui ouvre un autre classeur (nom de fichier est basé sur la valeur d'une cellule), puis exécute une macro appelée Single_sector à l'intérieur du fichier.

Il ouvre le fichier parfaitement bien, mais ne pas exécuter la macro. Des idées?

Sub run_all()
Dim Location



On Error Resume Next

'Location of file to open
 Location = Worksheets("Main").Range("folder_location").Value

'Open F&V File
Application.Workbooks.Open Location & Range("fv_file").Value
'Run Macro
Run ("Single_sector")



End Sub

OriginalL'auteur user1923975 | 2013-03-04

  1. 14

    Placez le code suivant dans la macro appelant l'autre classeur:

    Location = Worksheets("Main").Range("folder_location").Value
Set wb = Workbooks.Open(Location & Range("fv_file").Value)
Application.Run "'" & wb.Name & "'!" & strSubToRun, Parameters
Set wb = Nothing

    Paramètres est un tableau d'arguments que vous souhaitez passer, de sorte que le sub dans l'autre classeur devrait ressembler à quelque chose comme

    Public Sub TheSub(ParamArray X())

Dim i As Long

Sheet1.Cells(1, 1).Value = "Parameters passed:"

For i = 0 To UBound(X(0))
    Sheet1.Cells(i + 2, 1).Value = CStr(X(i))
Next

End Sub
    Fonctionne parfaitement, merci beaucoup
    n'macro "strSubToRun" dans wb classeur fonctionne de manière asynchrone ?
    Non, il n'est pas.

    OriginalL'auteur Excel Developers

  2. 3

    Essayez d'ouvrir un Classeur et exécuter une macro dans le fichier

    Assurez-vous que votre code dans un autre classeur est à l'événement "Workbook_open" si vous n'avez pas besoin d'utiliser de course ("Single_sector"). La procédure single_selector déclencherait dès qu'un autre classeur est ouvert.

    Mise à jour de réponse

    Sub run_all()
    Dim Location



    On Error Resume Next

    Dim wkb As Workbook

    'Location of file to open
    Location = Worksheets("Main").Range("folder_location").Value

    'Open F&V File
    Set wkb = Workbooks.Open(Location & Range("fv_file").Value)
    wkb.Sheets(1).Single_sector ' kindly put this proc in another workbook sheet1




End Sub
    Le seul problème avec cela est que j'ai besoin de faire certaines choses dans le fichier de parfois de sorte d'avoir la macro à exécuter à chaque fois que j'ouvre le fichier ne serait pas la meilleure solution.
    Alors, quand tout que tout est terminé, vous ouvrez un autre classeur.
    Où est-ce que votre code résident dans un autre classeur. Module ou une feuille de calcul ??
    Les choses que je dois faire/ changer dans l'autre classeur. Le code est dans un module est l'autre classeur. Merci
    Pls élaborer ce genre de changement afin que je puisse vous aider.

    OriginalL'auteur

  3. 3

    Probablement pas très élégant mais:

    Dim Location As String

Location = "\\location\to\file.xlsm"

Workbooks.Open(Location).RunAutoMacros (xlAutoOpen)

    Où vous avez un "Auto_Open" Sous dans votre autre fichier excel pour gérer les macros à exécuter sur votre autre feuille de calcul

    OriginalL'auteur user2824072