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
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
A voir également:
- Ouvrir un fichier avec un nom variable
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Ouvrir un fichier rar - Guide
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Comment ouvrir un fichier apk ? - Guide
- Ouvrir un fichier .dat - Guide
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
17 sept. 2012 à 14:03
Bonjour,
Code a mettre dans VBA ThisWorkBook
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
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
18 sept. 2012 à 00:43
Bonsoir,
ou bien avec la boite de dialogue:
eric
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