Je cherche à ouvrir un classeur2 depuis un classeur1, ou l'activer s'il est
déjà ouvert.
Quelle fonction dois je utiliser pour tester si le classeur est déjà ouvert ?
Bonjour Va voir ici : http://www.excelabo.net/xl/fichiers.php#classouvert
Cordialement Pascal
"Antoine" a écrit dans le message de news:
Salut à tous,
Je cherche à ouvrir un classeur2 depuis un classeur1, ou l'activer s'il est
déjà ouvert. Quelle fonction dois je utiliser pour tester si le classeur est déjà ouvert ?
Merci d'avance
Antoine
Ricky
Bonjour *Antoine*
Sub OuvreSiPasOuvert() ' activer le fichier ==> sinon l'ouvrir On Error Resume Next Workbooks("simplex.xls").Activate If Err <> 0 Then fichier = "c:MesCacouillousSosMpfesimplex.xls" Workbooks.Open Filename:=fichier If Err <> 0 Then MsgBox "Le fichier '" & fichier & "' est introuvable" End If End If End Sub
Contribution de F. Sigonneau publiée sur Excelabo
| Salut à tous, | | Je cherche à ouvrir un classeur2 depuis un classeur1, ou l'activer | s'il est déjà ouvert. | Quelle fonction dois je utiliser pour tester si le classeur est déjà | ouvert ? | | Merci d'avance | | Antoine
-- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faqword.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Bonjour *Antoine*
Sub OuvreSiPasOuvert()
' activer le fichier ==> sinon l'ouvrir
On Error Resume Next
Workbooks("simplex.xls").Activate
If Err <> 0 Then
fichier = "c:MesCacouillousSosMpfesimplex.xls"
Workbooks.Open Filename:=fichier
If Err <> 0 Then
MsgBox "Le fichier '" & fichier & "' est introuvable"
End If
End If
End Sub
Contribution de F. Sigonneau publiée sur Excelabo
| Salut à tous,
|
| Je cherche à ouvrir un classeur2 depuis un classeur1, ou l'activer
| s'il est déjà ouvert.
| Quelle fonction dois je utiliser pour tester si le classeur est déjà
| ouvert ?
|
| Merci d'avance
|
| Antoine
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Sub OuvreSiPasOuvert() ' activer le fichier ==> sinon l'ouvrir On Error Resume Next Workbooks("simplex.xls").Activate If Err <> 0 Then fichier = "c:MesCacouillousSosMpfesimplex.xls" Workbooks.Open Filename:=fichier If Err <> 0 Then MsgBox "Le fichier '" & fichier & "' est introuvable" End If End If End Sub
Contribution de F. Sigonneau publiée sur Excelabo
| Salut à tous, | | Je cherche à ouvrir un classeur2 depuis un classeur1, ou l'activer | s'il est déjà ouvert. | Quelle fonction dois je utiliser pour tester si le classeur est déjà | ouvert ? | | Merci d'avance | | Antoine
-- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faqword.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net