Vba : ouvrir fichier avec nom partiel

Fermé

kurt63 Messages postés 11 Date d'inscription dimanche 21 juin 2009 Statut Membre Dernière intervention 26 juin 2023 - 27 avril 2022 à 06:55
yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 - 27 avril 2022 à 12:07

Bonjour,

je souhaite via vba , ouvrir un fichier photo dont je ne connais que le début du nom

Ce début de nom sera inscrit dans une cellule avec liste déroulante
Le reste du nom peut être aléatoire avec ou sans espace
l’extension est connu.
Le nom complet du fichier existe en 2 extensions mais je ne souhaite en ouvrir qu'une seule

les fichiers sont dans plusieurs sous répertoires et je ne connais que le répertoire de base
exemple : je recherche le fichier c:azerty\querty\computer az er.tif
mais je ne connais que c:azerty\???????\computer??????.tif

l'ouverture du fichier se fera avec le logiciel par défaut
et je souhaite associer ce code avec un bouton

Pouvez vous me trouve un code vba que j'adapterai ?

Je suis sous excel pro plus 2013
le fichier excel ne se trouve pas au même endroit que le répertoire photo

merci d'avance

Configuration: Windows / Firefox 99.0

A voir également:

Vba : ouvrir fichier avec nom partiel
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
27 avril 2022 à 10:47

bonjour,
pour rechercher le fichier, tu peux t'inspirer de ceci:
https://forums.commentcamarche.net/forum/affich-37577571-vba-import-fichier-txt-depuis-un-dossier#7

yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
27 avril 2022 à 10:54

et pour l'ouvrir:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=665

yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
27 avril 2022 à 12:05

un exemple plus proche de ce que tu veux faire:

Option Explicit

Private Function sisf(nomdossier As String, nomfichierachercher As String) As String
Dim fso As Scripting.FileSystemObject, dossier As Scripting.Folder, fichier As Scripting.File, sousdossier As Scripting.Folder
Set fso = New Scripting.FileSystemObject
Set dossier = fso.GetFolder(nomdossier)
sisf = ""
For Each sousdossier In dossier.SubFolders
    For Each fichier In sousdossier.Files
        If fichier.Name Like nomfichierachercher Then
            sisf = fichier.Path
            Exit Function
        End If
    Next fichier
Next sousdossier
End Function
Private Sub test()
Debug.Print ThisWorkbook.Path
Debug.Print "sisf:", sisf(ThisWorkbook.Path, "yg*.yg")
End Sub

yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481 > yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024
27 avril 2022 à 12:07

et pour ouvrir un fichier:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=665

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters