Discussion :

[wabo67]

Pratiquement tout est dans le titre, je cherche a caché tout ce que je fais dans les macros celle ci m'ouvre differents fichier , ma déplace des cellules ect...

Comment faire pour que excel effectu la meme choses mais sans le montrer

Merci d avance

[muirgheal]

salut.

Tu pourrais être plus explicite ?
Qu'est-ce que tu appel ouvrir différents fichiers ? Est-ce une macro qui travaille avec des fichiers fermés ? Dans ce cas là, il faudrait peut être voir dans les sujets qui parles des macro utilisant des fichiers fermés. Tu y trouvera peut être bien ta réponse.

Bye,

Muirgheal

[wabo67]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim monFichier As String
Dim maFeuille As String
monFichier = Target.Address
maFeuille = UCase(Left(monFichier, Len(monFichier) - 5))
Workbooks(monFichier).Sheets(1).Range("A1:F2958").Copy Workbooks("Defaut sur Zera.xlsm").Sheets(maFeuille).[a1]
Workbooks(monFichier).Close False
End Sub

voila ma macro
il ouvre un fichier hypertext et copier la feuille.
Mais j'aimerai caché l'ouverture de ce fichier

[fred65200]

rebonjour
jolie macro!

place

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Application.screenupdating = false

en début de code
et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Application.screenupdating = true

avant End sub

@+

NB je viens d'essayer, ce n'est pas mieux. Je crois que cela viens du lien hypertexte. En as tu vraiment besoin. Peut on déclencher l'évènement au double clic par exemple.

Cela dépend de tes saisies dans l'onglet temp.

Si tu mets juste le nom zera21.xlsx (sans lien), remplace le code donné précédemment par celui là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Dim monFichier As String
Dim maFeuille As String
monFichier = Target.Value
maFeuille = UCase(Left(monFichier, Len(monFichier) - 5))
    Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & monFichier
Workbooks(monFichier).Sheets(1).Range("A1:F2958").Copy Workbooks("Defaut sur Zera.xlsm").Sheets(maFeuille).[a1]
Workbooks(monFichier).Close False
Application.ScreenUpdating = True
Cancel = True
End Sub

cordialement

[wabo67]

c bon ca marche en faite g mis tes 2 lignes de code dans une macro qui lance la feuille avec la " superbe macro"

Encore une fois merci