Ouvrir un fichier excel xlsm depuis une macro

Version imprimable

Bonjour,
J'ai une macro qui marchait très bien sous excel 97-2003, et je l'ai basculé sur excel 2016. Elle sert à ouvrir un fichier excel, dont le nom est fixé par le fichier mère.
Voici la macro:
Code:

1 2 3 4 5 6 7 8 9 10 11 'PROCÉDURE REPRISE AFFAIRE EXISTANTE 'Ouverture du fichier correspondant à la ref choisi dans la liste déroulante ' Sub consultaffaire() ChDir "D:\CSBK\Administratif\0 Gestion affaires\Répertoire Affaire" Application.Goto Reference:="refconsultaffaire" x = ActiveCell.FormulaR1C1 Workbooks.Open Filename:= _ x ActiveWorkbook.RunAutoMacros xlAutoOpen End Sub
Le problème, c'est que la macro essaye d'ouvrir un fichier xlsx, alors que le fichier à ouvrir est un xlsm. Du coup, la mcro plante.
Est ce que quelqu'un peut m'aider?

Merci d'avance.

23/08/2018, 18h06
anasecu

Bonjour,

Tu as vérifié le nom qui remplaces ton x ?
Si tu demandes un xlsm il n'y a aucune raison d'ouvrir un xlsx
23/08/2018, 18h45
momocactus

Bonjour,

Oui, j'ai regardé le nom du fichier que la macro essaye d'ouvrir, c'est le même nom que le fichier à ouvrir.
Seulement, dans ma macro, je ne spécifie pas l'extension du fichier à ouvrir, parce que je ne sais pas le faire. Du coup, la macro ouvre par défaut du xlsx, alors qu'il faudrait qu'elle ouvre du xlsm.

Je cherche donc l'écriture pour que ma macro ouvre du xlsm.
23/08/2018, 23h18
anasecu

Bonjour,

Si tu veux ouvrir le xlsm il suffit de le préciser dans la macro

Code:

Workbooks.Open Filename:=x & ".xlsm"
24/08/2018, 08h46
momocactus

Bonjour,

J'ai essayé ton code, la macro cherche bien maintenant à ouvrir le xlsm.
Par contre elle ne fonctionnait toujours pas. Du coup, j'ai fait quelques recherches. Et je me suis aperçu qu'il fallait que je fasse de "D" mon lecteur par défaut dans la macro pour qu'elle fonctionne.
Du coup, j'ai rajouté le code suivant:
ChDrive "D"

Et la macro fonctionne très bien.

Merci pour ton aide.

Bonjour,

Plutôt que de changer les répertoires et drives tu peux le faire plus simplement ainsi

Code:

1
2
3
4
5
Sub consultaffaire()
    Application.Goto Reference:="refconsultaffaire"
    Workbooks.Open Filename:= "D:\CSBK\Administratif\0 Gestion affaires\Répertoire Affaire\" &  ActiveCell.Value & ".xlsm"
    ActiveWorkbook.RunAutoMacros xlAutoOpen
End Sub

24/08/2018, 16h10
momocactus

Merci beaucoup,

le code marche parfaitement et c'est beaucoup plus simple.

Merci encore, mon problème est résolu.