Ouvrir un fichier avec un nom variable

Fermé
keke - 17 sept. 2012 à 13:44
eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 - 18 sept. 2012 à 00:43
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


2 réponses

f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 1 680
17 sept. 2012 à 14:03
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
0
eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 7 168
18 sept. 2012 à 00:43
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

0