Ouvrir Excel sans exécuter Workbook_Open()

Le runautomacros sert quand tu utilises une macro auto_open(), ce qui est
une solution.
Si tu utilises Workbook_open, tu peux le désactiver par
application.enableeventsúlse (pense à repasser à true après ouverture du
fichier)
J@C

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 645a01c40140$053cc560$a501280a@phx.gbl...
Bonjour,

Voici ma question :

Comment ouvrir un classeur par VBA en désactivant
l'exécution de la macro Workbook_Open().

Voici où mes recherches en sont, mais ça ne fonctionne
pas !

Public Function OuvrirSansVBA()

Dim NomFichier As String

NomFichier = "MonClasseur.xls"
Dossier = "C:Temp"

Workbooks.Open(NomFichier).RunAutoMacros
which:=xlAutoClose

End Function
'

Merci d'avance

mousnynao!

Bonjour.

Function OuvrirSansWorkbookOpen(Fichier$) As Boolean
Dim Wk As Workbook
Application.EnableEvents = False
Set Wk = Workbooks.Open(Fichier)
Application.EnableEvents = True
OuvrirSansWorkbookOpen = Not Wk Is Nothing
End Function

Alain CROS.

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 645a01c40140$053cc560$a501280a@phx.gbl...
Bonjour,

Voici ma question :

Comment ouvrir un classeur par VBA en désactivant
l'exécution de la macro Workbook_Open().

Voici où mes recherches en sont, mais ça ne fonctionne
pas !

Public Function OuvrirSansVBA()

Dim NomFichier As String

NomFichier = "MonClasseur.xls"
Dossier = "C:Temp"

Workbooks.Open(NomFichier).RunAutoMacros
which:=xlAutoClose

End Function
'

Merci d'avance

mousnynao!

Merci pour votre réponse.

Je connaissais pourtant cette commande, mais je n'y ais
pas penser. De plus, il me semble avoir vu un paramètre
de Workbooks.Open sur ce forum il y a longtemps. J'ai fait
un recherche dans les 100 premières pages mais je ne l'ai
pas trouvé.

J'ai bien trouvé une soluce sur EXCELabo, mais elle ne
fonctionne pas, il y a une erreur que je ne trouve pas.

Alors merci encore, cette soluce me suffit :)))

mousnynao !

-----Message d'origine-----
Bonjour.

Function OuvrirSansWorkbookOpen(Fichier$) As Boolean
Dim Wk As Workbook
Application.EnableEvents = False
Set Wk = Workbooks.Open(Fichier)
Application.EnableEvents = True
OuvrirSansWorkbookOpen = Not Wk Is Nothing
End Function

Alain CROS.

"mousnynao" <anonymous@discussions.microsoft.com> a écrit
dans le message de news: 645a01c40140$053cc560

$a501280a@phx.gbl...

Bonjour,

Voici ma question :

Comment ouvrir un classeur par VBA en désactivant
l'exécution de la macro Workbook_Open().

Voici où mes recherches en sont, mais ça ne fonctionne
pas !

Public Function OuvrirSansVBA()

Dim NomFichier As String

NomFichier = "MonClasseur.xls"
Dossier = "C:Temp"

Workbooks.Open(NomFichier).RunAutoMacros
which:=xlAutoClose

End Function
'

Merci d'avance

mousnynao!


.

Merci pour votre réponse.

Je connaissais pourtant cette commande, mais je n'y ais
pas penser. De plus, il me semble avoir vu un paramètre
de Workbooks.Open sur ce forum il y a longtemps. J'ai fait
un recherche dans les 100 premières pages mais je ne l'ai
pas trouvé.

J'ai bien trouvé une soluce sur EXCELabo, mais elle ne
fonctionne pas, il y a une erreur que je ne trouve pas.

Alors merci encore, cette soluce me suffit :)))

mousnynao !

-----Message d'origine-----
Le runautomacros sert quand tu utilises une macro
auto_open(), ce qui est

une solution.
Si tu utilises Workbook_open, tu peux le désactiver par
application.enableevents=false (pense à repasser à true
après ouverture du

fichier)
J@C

"mousnynao" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news: 645a01c40140$053cc560$a501280a@phx.gbl...
Bonjour,

Voici ma question :

Comment ouvrir un classeur par VBA en désactivant
l'exécution de la macro Workbook_Open().

Voici où mes recherches en sont, mais ça ne fonctionne
pas !

Public Function OuvrirSansVBA()

Dim NomFichier As String

NomFichier = "MonClasseur.xls"
Dossier = "C:Temp"

Workbooks.Open(NomFichier).RunAutoMacros
which:=xlAutoClose

End Function
'

Merci d'avance

mousnynao!



.