Discussion :

[Amazing_Paul]

Bonjour,

Dans le cadre d'un de mes fichiers Excel j'aimerai un code VBA simple qui permette tout simplement d'ouvrir un autre fichier Excel ainsi qu'un code pour le refermer. Aucuns de ceux que j'ai trouvé sur Internet ne fonctionnent, je vous remercie :)

[Tête de chat]

Bonjour,

pour commencer

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Sub Test()
Dim MonBook As Workbook
Const MonFichier = "C:\TMP\toto.xlsx"
Set MonBook = Workbooks.Open(MonFichier)
MonBook.Sheets(1).Range("A1") = "Coucou"
MonBook.Close SaveChanges:=True
End Sub

[Amazing_Paul]

Merci, je vais essayer ça. Mais concrètement à quoi correspond ce VBA ? Je ne suis vraiment pas familier avec la programmation par VBA ^^

[Amazing_Paul]

Le problème qui se pose pour moi concerne le chemin vers le classeur souhaité. J'ai bien vérifié l'ensemble des noms des dossiers et bien évidement du classeur mais à chaque tentative j'ai le message d'erreur "introuvable".

Voici mon chemin : "Z:\BT\Edition BLT INDEX\New Heures hélicoptères\350B3 HBEC.xlsx" peut être que la mise en forme n'est pas bonne...

Je confirme bien que les noms sont corrects et que les dossiers existent bien.

[Franc]

Salut, avec l'utilisation de FileDialog tu évites les problèmes d'orthographe du chemin ou fichier comme ceci:

Code :

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

1
2
3
4
5
6
7
8
Sub OuvrirFichierExcel()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = False 'True pour autoriser sélection multiple
    If fd.Show = -1 Then
        Workbooks.Open fd.SelectedItems(1)
    End If
End Sub

et pour fermer:

Code :

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

1
2
3
Sub FermerEtEnregistrerFichierExcel()
    ActiveWorkbook.Close SaveChanges:=True 'si pas de sauvegarde alors mettre à False
End Sub

[Amazing_Paul]

Salut, le premier code marche bien, mais à chaque fois que je l'exécute une fenêtre s'ouvre afin de sélectionner le classeur à ouvrir. Impossible de le sélectionner une seule fois de manière à ce qu'il s'ouvre de façon automatique à la prochaine exécution du code merci ? :)

[Tête de chat]

Re,

peut être que la mise en forme n'est pas bonne...

il faudrait voir l'ensemble du code...

Je confirme bien que les noms sont corrects et que les dossiers existent bien.
Ça se challenge : ouvre le classeur "à la main" et dans la fenêtre d'exécution tape :