Ouverture et Fermeture de dossier Excel via VBA

Version imprimable

26/04/2023, 11h29
Amazing_Paul

Ouverture et Fermeture de dossier Excel via VBA

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 :)

Bonjour,

pour commencer

Code:

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

27/04/2023, 13h15
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 ^^
27/04/2023, 13h32
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.

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

Code:

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:

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

27/04/2023, 14h05
Tête de chat

1 pièce(s) jointe(s)

Re,

Citation:

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 :
Pièce jointe 637930
27/04/2023, 14h15
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 ? :)
27/04/2023, 14h28
Franc

Je n'avais pas compris que ça devait être automatique, alors le code de Tête de chat est le bon, à placer dans Workbook.Open et Workbook.Close pour automatiser.
27/04/2023, 16h29
Amazing_Paul

Merci à vous deux, mon problème semble être réglé :)