Re : Ouverture automatique de fichier
Bonjour et merci,
en combinant plusieurs codes, j'ai réalisé le code ci-dessous qui fonctionne comme espéré.
Cependant, une fois le classeur créé donc dans le cas où il existe déjà, il me créé un autre classeur "ClasseurX" en plus de l'ouverture ou la sélection (s'il est déjà ouvert de Portefeuilles.xlsx). Je ne comprend pas quelle ligne de code engendre l'ouverture de ce classeur car j'aimerai bien supprimer cet aspect.
Par ailleurs, lorsque le fichier n'existe pas, une message box d'erreur s'affiche et je suis obligé de cliquer dessus pour que mon fichier se créé, est-ce possible de contourner ce détail pour ne pas avoir ce message d'erreur ?
Voici mon code :
Sub ouverture_portefeuilles()
On Error Resume Next
Workbooks("Portefeuilles.xlsx").Activate
If Error Then
Workbooks.Open Filename:= _
"C:\Portefeuilles.xlsx"
Workbooks("Portefeuilles.xlsx").Activate
If Error Then
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Portefeuilles.xlsx"
End If
End If
End Sub
Merci ,
Jon