Excel VBA : Ouvrir un fichier nom variable [Résolu/Fermé]
Signaler
Eaheru
VincMalin
- Messages postés
- 197
- Date d'inscription
- mercredi 23 juin 2010
- Statut
- Membre
- Dernière intervention
- 12 mars 2018
VincMalin
- Messages postés
- 11
- Date d'inscription
- vendredi 11 novembre 2016
- Statut
- Membre
- Dernière intervention
- 20 février 2017
A voir également:
- Vba ouvrir un fichier excel avec nom variable
- Vba ouvrir un fichier excel avec chemin - Meilleures réponses
- Vba ouvrir un fichier excel - Meilleures réponses
- Excel VBA : Ouvrir un fichier nom variable ✓ - Forum - VB / VBA
- Macro ouvrir fichier avec début nom - Forum - Bureautique
- EXCEL VB - activer une feuille à nom variable ✓ - Forum - Excel
- Boucle vba qui ouvre fichier nom variable ✓ - Forum - VB / VBA
- [VBA] open d'un fichier / nom est en variable - Forum - VB / VBA
1 réponse
Eaheru
- Messages postés
- 197
- Date d'inscription
- mercredi 23 juin 2010
- Statut
- Membre
- Dernière intervention
- 12 mars 2018
Aprés maintes recherches, j'ai trouve quelque chose :
Sub Ouverture()
'
' Ouverture du fichier precedent (J-X)
Dim Chemin As String
Dim Part As String
Dim Chem2 As String
Chemin = "c:\tmp" & "\"
Part = "Liste_"
Chem2 = Dir(Chemin & "\" & Part & "*.xls")
'Ouverture du fichier
Workbooks.Open Filename:=Chemin & "\" & Dir(Chemin & "\" & Part & "*.xls")
End Sub
Je ne suis pas sur que ce soit optimisé, mais ça fonctionne bien :)
Sub Ouverture()
'
' Ouverture du fichier precedent (J-X)
Dim Chemin As String
Dim Part As String
Dim Chem2 As String
Chemin = "c:\tmp" & "\"
Part = "Liste_"
Chem2 = Dir(Chemin & "\" & Part & "*.xls")
'Ouverture du fichier
Workbooks.Open Filename:=Chemin & "\" & Dir(Chemin & "\" & Part & "*.xls")
End Sub
Je ne suis pas sur que ce soit optimisé, mais ça fonctionne bien :)
Mais si tu as plusieurs fichier qui se nommes Liste_ (Liste_1,Liste_2,Liste_3) tout tes fichiers s'ouvriront.
C'est * qui permet de dire tous. toto*.xls ouvrira tous les fichiers qui commenceront par toto et qui finiront par .xls
Cdlt.
J'ai le même type de problématique. Ma variable affaire est longue à saisir pour l'utilisateur. Je souhaite limiter la saisie au 4 ou 5 premier caractères. Il faut peu être utilisé * mais je ne vois pas comment. Merci de votre aide.
Voici mon code :
année = TextBox1
affaire = TextBox2
Workbooks.Open Filename:="D:\Users\Malinge\Documents\" & année & "\" & affaire & ".xls"