Discussion :

[momocactus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[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.

[anasecu]

Bonjour,


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Workbooks.Open Filename:=x & ".xlsm"

[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.

[anasecu]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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