Problème avec l'erreur 1004
Bonjour,
J'ai un petit problème avec mes macros. Alors voila j'ai un fichier avec une macro et j'aimerai à partir d'un autre fichier exécuter cette macro.
j'ai donc utilisé le code suivant :
Public Sub associations()
Application.Run ("IRS.xlsm!export")
End Sub
Dès que j'execute cette macro j'ai l'erreur suivante qui s'affiche :
"Impossible d'exécuter la macro.... Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées"
Avez vous des idées ?
Merci :)
J'ai un petit problème avec mes macros. Alors voila j'ai un fichier avec une macro et j'aimerai à partir d'un autre fichier exécuter cette macro.
j'ai donc utilisé le code suivant :
Public Sub associations()
Application.Run ("IRS.xlsm!export")
End Sub
Dès que j'execute cette macro j'ai l'erreur suivante qui s'affiche :
"Impossible d'exécuter la macro.... Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées"
Avez vous des idées ?
Merci :)
7 réponses
-
Bonjour,
dans le classeur: IRS.xlsm
avez vous ceci:
-
Bonjour,
Oui je l'ai déjà. Je ne vois vraiment pas d'où peut venir l'erreur. -
Re,
Deux choses que j'ai oubliees precedemment:
faire un ChDir sur le repertoire du fichier IRS.xlsm
et le nom de la macro doit etre entre '
Application.Run ("IRS.xlsm!'export'") -
J'ai fais ce que vous m'avez conseillé et j'ai tjrs la meme erreur :
"Impossible d'exécuter la macro.... Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées" -
ContributeurBonjour,
Essaie avec le chemin du classeur, comme ceci:
Application.Run "'chemin du classeur\IRS.xlsm'!export"
-
ContributeurVoici un exemple, il faut ouvrir le classeur lancermacro
http://www.cjoint.com/c/EKzqvcyo6IQ
-
-
Bonjour a vous deux
Excel sera toujours un mystere pour moi
Private Sub CommandButton1_Click() Application.Run "'" & ActiveWorkbook.Path & "\Essai.xlsm'!mamacro" 'ok ChDir ActiveWorkbook.Path Application.Run "Essai.xlsm!mamacro" 'ok Application.Run "Essai.xlsm!'mamacro'" 'ok Application.Run "'Essai.xlsm'!mamacro" 'ok End Sub
et quand j'avais ecrit au depart le chemin complet avec les ' comme le fait cs_le_pivert et ben ca ne marchait pas -
Contributeur@f894009Re,
et chez moi il n'y a que la 1ère qui est OK
ChDir ActiveWorkbook.Path Application.Run "Essai.xlsm!mamacro" 'pas ok Application.Run "Essai.xlsm!'mamacro'" 'pas ok Application.Run "'Essai.xlsm'!mamacro" 'pas ok
Windows10 et Office 2007 -
-
-
-
Re !!!
J'ai résolu le problème d'erreur avec ce code :
Public Sub associations()
Dim wb As Workbook
x = "IRS"
On Error Resume Next
Set Wk = Workbooks(x & ".xlsm")
If Err <> 1 Then
Workbooks.Open Filename:="D:\..\IRS.xlsm"
'Application.Run "'" & ActiveWorkbook.Path & "\IRS.xlsm'!export"
Else
MsgBox "Le fichier " & x & " est ouvert"
End If
End Sub
Le seul souci que j'ai maintenant c'est qu'il m'ouvre mon fichier mais n'exécute pas la macro...
Merci
