MACRO EXCEL

[JEAN SEB]

Bonjour à tous,

Je suis un débutant sur EXCEL et je suis en train de créer une macro.

Existe-il un moyen pour que ma macro puisse aller chercher n'importe quel fichier (quelque soit le nom)dans un folder, et que la macro se lance automatiquement ?

Merci d'avance

Jean Seb

 

[Temjeh]

Salut Jean
Bonjour le forum

J'ai ceci que les amis du forum mon aider à faire il y a longtemps que tu peut mettre sous un bouton et tu doit bien sur adapter les chemin:

Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ''
End Function

Sub Ouvrir()
Dim Nom_Fichier
Nom_Fichier = Application.InputBox(prompt:='Entrez le nom du territoir à ouvrir')
ChDir 'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve'

If FileExists('C:\\Program Files\\Territoire 2004\\Territoires\\' & Nom_Fichier & '.xls') = False Then
MsgBox 'Fichier Inexistant'
Else
Workbooks.Open FileName:= _
'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve\\' & Nom_Fichier & '.xls'
MsgBox '*&Eacute;diter maintenant*'
End If
End Sub

et si tu veut en pressant une touche de clavier dans le workbook tu met:

Application.OnKey '{F8}', 'Ouvrir'

A++

Temjeh

 

[Temjeh]

Temjeh écrit:

Salut Jean
Bonjour le forum

J'ai ceci que les amis du forum mon aider à faire il y a longtemps que tu peut mettre sous un bouton et tu doit bien sur adapter les chemin:

Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ''
End Function

Sub Ouvrir()
Dim Nom_Fichier
Nom_Fichier = Application.InputBox(prompt:='Entrez le nom du territoir à ouvrir')
ChDir 'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve'

If FileExists('C:\\Program Files\\Territoire 2004\\Territoires\\' & Nom_Fichier & '.xls') = False Then
MsgBox 'Fichier Inexistant'
Else
Workbooks.Open FileName:= _
'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve\\' & Nom_Fichier & '.xls'
MsgBox '*&Eacute;diter maintenant*'
End If
End Sub

et si tu veut en pressant une touche de clavier dans le workbook tu met:

Private Sub Workbook_Activate()
Application.OnKey '{F8}', 'Macro1'
End Sub

A++

Temjeh

 

[Temjeh]

Désolé pour le doublon j'ai voulu faire une ptite correction à ma réponse

Private Sub Workbook_Activate()
Application.OnKey '{F8}', 'Ouvrir'
End Sub

Temjeh