ouvrir un fichier avec un nom variable

Question

Bonjour, 

Je suis nouveau dans le language VBA, et j'aimerais savoir si à l'aide d'une MsgBox ou quelque chose de ce style il est possible d'ouvrir un fichier excel.

Plus exactement, je souhaite savoir si à l'ouverture de mon fichier principal une boite de dialogue peux s'ouvrir automatiquement, demandant à l'utilisateur quel fichier il souhaite ouvrir, sachant que l'utilisateur aura le nom du fichier (ex:01012012).

L'ensemble des fichiers à ouvrir se situe dans le même répertoire (C:\mesdocuments etc ...) mais seul le nom de fichier change (ex: 01012012 , 02012012 ....)

Merci d'avance de vos réponses


Configuration: Windows 7 / Internet Explorer 7.0

f894009 · Answer

Bonjour,

Code a mettre dans VBA ThisWorkBook

Private Sub Workbook_Open()
  'eviter erreurs: reponse vide, fichier existe pas, annuler et fermeture croix
  On Error Resume Next
  Nom_Fichier = Application.InputBox("Entrez le nom du fichier sans .xls")
  chemin_fichier = "c:\........"
  Workbooks.Open Filename:=chemin_fichier & Nom_Fichier & ".XLS"

End Sub

eriiic · Answer

Bonsoir,

ou bien avec la boite de dialogue:
Sub Nomdufichier()
    Dim NomFichier
    NomFichier = Application.GetOpenFilename
    If VarType(NomFichier) = vbBoolean Then
        MsgBox "Action annulée"
        Exit Sub
    Else
        MsgBox "Fichier sélectionné : " & NomFichier
        Workbooks.Open Filename:=NomFichier
    End If
End Sub
eric

Ouvrir un fichier avec un nom variable

2 réponses

Discussions similaires

Newsletters