A voir également:
- Erreur d'execution 1004 impossible d'executer la macro
- Erreur 0x80070643 - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Erreur d'exécution 1004 erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA
- Erreur 38 free ✓ - Forum Mobile
7 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
25 nov. 2015 à 15:12
25 nov. 2015 à 15:12
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
Modifié par f894009 le 25/11/2015 à 15:31
Modifié par f894009 le 25/11/2015 à 15:31
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 '
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"
"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"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
25 nov. 2015 à 17:10
25 nov. 2015 à 17:10
Bonjour,
Essaie avec le chemin du classeur, comme ceci:
Essaie avec le chemin du classeur, comme ceci:
Application.Run "'chemin du classeur\IRS.xlsm'!export"
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
25 nov. 2015 à 17:21
25 nov. 2015 à 17:21
Voici un exemple, il faut ouvrir le classeur lancermacro
http://www.cjoint.com/c/EKzqvcyo6IQ
http://www.cjoint.com/c/EKzqvcyo6IQ
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
26 nov. 2015 à 09:52
26 nov. 2015 à 09:52
Bonjour a vous deux
Excel sera toujours un mystere pour moi
et quand j'avais ecrit au depart le chemin complet avec les ' comme le fait cs_le_pivert et ben ca ne marchait pas
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
>
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
26 nov. 2015 à 11:03
26 nov. 2015 à 11:03
Re,
et chez moi il n'y a que la 1ère qui est OK
Windows10 et Office 2007
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
>
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
26 nov. 2015 à 11:19
26 nov. 2015 à 11:19
Re,
W8 Office2007 et 2013, tout est ok, alors mystere......!!!!
W8 Office2007 et 2013, tout est ok, alors mystere......!!!!
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
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
26 nov. 2015 à 16:41
26 nov. 2015 à 16:41
Re,
Ben, c'est un peu normal, l'instruction utilisee etant celle qui ouvre un fichier xlsm.
Et ca, ca ne marche vraiment pas en mettant le chemin complet et le nom de fichier entre '
Ben, c'est un peu normal, l'instruction utilisee etant celle qui ouvre un fichier xlsm.
Et ca, ca ne marche vraiment pas en mettant le chemin complet et le nom de fichier entre '
Application.Run "'D:\..\IRS.xlsm'!export"