Discussion :

[carocaro630]

Bonjour,

Dans le cadre d'un projet scolaire, je dois mettre en place de base données de suivi de différents process d'une entreprise. Plutôt que de mettre tous mes éléments dans un même classeur exel qui du coup serait volumineux, je préfère mettre mes éléments regroupés par thème dans différents fichiers exel.

J'ai une page d'accueil qui me permet grâce à des boutons d'avoir accès à mes différents fichiers de type 1. Et de ces différents fichiers de type 1 j'ai créé d'autres boutons permettant d'accèder à des fichiers de type 2. Or j'aimerais que le fichier de type 1 se ferme sans proposer d'enregistrement ou à défaut qu'il se ferme sans enregistrer et que le fichier de type 2 s'ouvre ensuite.
Quel est le code a insérer dans ma macro?

Merci à tous.

Caroline.

[Kimy_Ire]

Il existe la fonction :

Code :

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

Workbooks("nom du classeur").Close SaveChanges:=False

qui ferme le classeur sans sauvegarder.

[carocaro630]

Merci, mais quelle est la suite du code pour ouvrir mon autre fichier ensuite

Et j'ai une autre demande, comment ouvrir un fichier pdf à partir d'un bouton et faire en sorte que ce fichier s'ouvre dans une nouvelle fenêtre en lançant l'application acrobat reader.

J'ai essayé en intégrant un lien hypertexte dans le bouton mais cela me demande à chaque fois si je suis sûr de vouloir ouvrir ce fichier.

Quelqu'un a t-il une solution ?

Merci.

[Kimy_Ire]

Le premier post que tu as créé laissait suggérer que tu étais parvenu à ouvrir un fichier.

Bref, ouvrir un fichier fixe dont tu connais le chemin et qui ne change pas de nom est assez facile :

Code :

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

Workbooks.Open Filename:="C:\Users\...\Desktop\Stats.xlsm"

par exemple !

EDIT : A savoir : le dernier classeur ouvert devient le classeur actif.

[carocaro630]

Voilà le code que j'ai utilisé et il fonctionne très bien. J'ouvre mon fichier '2' et ensuite je ferme celui (fichier '1'') à partir duquel je l'ai ouvert.

Code :

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

1
2
3
4
5
6
Sub NTF()
ChDir "P:\MG"
    Workbooks.Open Filename:="P:\MG\plannettoyage.xls"
    Sheets("HYG-F1").Select
    ThisWorkbook.Close False
End Sub

Et sinon, pour ouvrir un pdf à partir d'un bouton, quelqu'un à une solution ? J'ai utiliser la fonctio, enregistrer une macro pour voir le chemin mais c'est incompréhensible .

Caro.