Bonjour,
J'ai un fichier Excel nommé "toto"
J'en ouvre un autre nommé "tata"
Comment écrire en VBA dans un module dans "toto" ?
Si "tata" est ouvert, alors...
Si "tata" n'est pas ouvert alors...
Je vous remercie
Didier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Function EstOuvert(f) témoin = False For Each i In Workbooks 'on parcourt la collection des classeurs If UCase(i.Name) = UCase(f) Then témoin = True Next i EstOuvert = témoin End Function
Sub essai() If EstOuvert("x.xls") Then
Else
End If End Sub
JB http://boisgontierjacques.free.fr
On 9 oct, 18:28, "Didier NOVARIN" wrote:
Bonjour, J'ai un fichier Excel nommé "toto" J'en ouvre un autre nommé "tata" Comment écrire en VBA dans un module dans "toto" ? Si "tata" est ouvert, alors... Si "tata" n'est pas ouvert alors... Je vous remercie Didier
Bonsoir,
Function EstOuvert(f)
témoin = False
For Each i In Workbooks 'on parcourt la collection des classeurs
If UCase(i.Name) = UCase(f) Then témoin = True
Next i
EstOuvert = témoin
End Function
Sub essai()
If EstOuvert("x.xls") Then
Else
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 9 oct, 18:28, "Didier NOVARIN" <didier.nova...@club-internet.fr>
wrote:
Bonjour,
J'ai un fichier Excel nommé "toto"
J'en ouvre un autre nommé "tata"
Comment écrire en VBA dans un module dans "toto" ?
Si "tata" est ouvert, alors...
Si "tata" n'est pas ouvert alors...
Je vous remercie
Didier
Function EstOuvert(f) témoin = False For Each i In Workbooks 'on parcourt la collection des classeurs If UCase(i.Name) = UCase(f) Then témoin = True Next i EstOuvert = témoin End Function
Sub essai() If EstOuvert("x.xls") Then
Else
End If End Sub
JB http://boisgontierjacques.free.fr
On 9 oct, 18:28, "Didier NOVARIN" wrote:
Bonjour, J'ai un fichier Excel nommé "toto" J'en ouvre un autre nommé "tata" Comment écrire en VBA dans un module dans "toto" ? Si "tata" est ouvert, alors... Si "tata" n'est pas ouvert alors... Je vous remercie Didier
Didier NOVARIN
Bonsoir JB, Comme dab... C'est parfait !!! Merci beaucoup Bonne soirée Didier
"JB" a écrit dans le message de news:
Bonsoir,
Function EstOuvert(f) témoin = False For Each i In Workbooks 'on parcourt la collection des classeurs If UCase(i.Name) = UCase(f) Then témoin = True Next i EstOuvert = témoin End Function
Sub essai() If EstOuvert("x.xls") Then
Else
End If End Sub
JB http://boisgontierjacques.free.fr
On 9 oct, 18:28, "Didier NOVARIN" wrote:
Bonjour, J'ai un fichier Excel nommé "toto" J'en ouvre un autre nommé "tata" Comment écrire en VBA dans un module dans "toto" ? Si "tata" est ouvert, alors... Si "tata" n'est pas ouvert alors... Je vous remercie Didier
Bonsoir JB,
Comme dab...
C'est parfait !!!
Merci beaucoup
Bonne soirée
Didier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1191949804.496595.167640@v3g2000hsg.googlegroups.com...
Bonsoir,
Function EstOuvert(f)
témoin = False
For Each i In Workbooks 'on parcourt la collection des classeurs
If UCase(i.Name) = UCase(f) Then témoin = True
Next i
EstOuvert = témoin
End Function
Sub essai()
If EstOuvert("x.xls") Then
Else
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 9 oct, 18:28, "Didier NOVARIN" <didier.nova...@club-internet.fr>
wrote:
Bonjour,
J'ai un fichier Excel nommé "toto"
J'en ouvre un autre nommé "tata"
Comment écrire en VBA dans un module dans "toto" ?
Si "tata" est ouvert, alors...
Si "tata" n'est pas ouvert alors...
Je vous remercie
Didier
Bonsoir JB, Comme dab... C'est parfait !!! Merci beaucoup Bonne soirée Didier
"JB" a écrit dans le message de news:
Bonsoir,
Function EstOuvert(f) témoin = False For Each i In Workbooks 'on parcourt la collection des classeurs If UCase(i.Name) = UCase(f) Then témoin = True Next i EstOuvert = témoin End Function
Sub essai() If EstOuvert("x.xls") Then
Else
End If End Sub
JB http://boisgontierjacques.free.fr
On 9 oct, 18:28, "Didier NOVARIN" wrote:
Bonjour, J'ai un fichier Excel nommé "toto" J'en ouvre un autre nommé "tata" Comment écrire en VBA dans un module dans "toto" ? Si "tata" est ouvert, alors... Si "tata" n'est pas ouvert alors... Je vous remercie Didier