Enregistre fermeture apres ouverture d'un autre fichier

[wrap food]

bonjour,

help

J'ai une macro dans un fichier A qui ouvre un fichier B les deux fichiers sont dans le même dossier
Je voudrais enregistrer et fermer le fichier A apres avoir ouvert le fichier B
Les deux fichiers seront toujopurs dans un même dossier mais il pourra voir un non différent

Voila le code

ActiveWorkbook.Save
Workbooks.Open Filename:=ThisWorkbook.Path & "\planning S1.xls" ' Fichier B'
Workbooks.close Filename:=ThisWorkbook.Path & "\planning S0.xls" ' Fichier A'

Mais cela ne foctionne pas

Avez vous une idées

Par avance merci

 

[Lermiton]

Re : Enregistre fermeture apres ouverture d'un autre fichier

Bonsoir tous
Bonsoir wrap food.

Personnellement, lorsque je veux gérer plusieurs classeurs ayant la même structure et auxquels s'appliquent les mêmes macros, je crée un classeur invisible (propriété de l'objet ThisWorkbook : IsAddin = True) dans lequel je regroupe toutes les macros comme, dans le cas que tu soumets, les macros d"ouverture et de fermeture.

Mais pour répondre à ta question, il faut écrire, pour fermer le planning S0.xls :

Workbooks.close Filename:="planning S0.xls"

et non pas

Workbooks.close Filename:=ThisWorkbook.Path & "\planning S0.xls"

Et voici une macro, à placer dans le "Fichier A", qui fonctionne sous Excel 2003.

Sub Ouvrir_le_Fichier_B_depuis_le_Fichier_A()
    Dim i As Integer

Rem définit le fichier à ouvrir
    Const FichB As String = "Fichier B.xls"

Rem vérifie que le fichier B n'est pas déjà ouvert
    For i = 1 To Workbooks.Count
        If Workbooks(i).Name = FichB Then
            MsgBox "Le fichier " & FichB & " est déjà ouvert !", 64, "FICHIER DEJA OUVERT"
            Exit Sub
        End If
    Next
    
Rem ouvre le fichier B
    Workbooks.Open ThisWorkbook.Path & "\" & FichB

Rem enregistre et ferme le fichier actif (fichier A)
    ThisWorkbook.Close savechanges:=True

End Sub

Bonne fin de soirée.