OVH Cloud OVH Cloud

Ouverture d'un classeur!

3 réponses
Avatar
STEN
Bonjour,=20
Je travaille sur un classeur et j'aimerai =E0 l'aide d'une=20
macro ouvrir un autre classeur du disque sans pour autant=20
en connaitre le chemin exact mais seulement le nom, est-
ce possible ?
Merci de votre aide.

3 réponses

Avatar
AV
Je travaille sur un classeur et j'aimerai à l'aide d'une
macro ouvrir un autre classeur du disque sans pour autant
en connaitre le chemin exact mais seulement le nom, est-
ce possible ?


Regarde là :
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ChercheAvecBaseName.txt

AV

Avatar
papou
Bonjour STEN
Si le lecteur est connu, voici une méthode (sinon voir plus bas) :
Sub Vachercher()
With Application.FileSearch
.NewSearch
.LookIn = "C:"
.SearchSubFolders = True
.Filename = "Bi_Mensuel.xls"
If .Execute() <> 0 Then
If .FoundFiles.Count > 1 Then
MsgBox "Ce fichier a été trouvé dans " & .FoundFiles.Count & "
endroits", vbInformation, "Résultat"
For i = 1 To .FoundFiles.Count
If MsgBox("Ouvrir le fichier " & .FoundFiles(i) & " ?", vbYesNo +
vbQuestion, "Ouverture") = vbYes Then
Workbooks.Open .FoundFiles(i)
Exit For
End If
Next i
Else: Workbooks.Open .FoundFiles(1)
End If
Else: MsgBox "Pas de fichier trouvé", vbInformation, "Résultat"
End If
End With

End Sub

Sinon, voir sur le site de Frédéric :
http://perso.wanadoo.fr/frederic.sigonneau/
Rubrique Fichiers et Dossiers

Cordialement
Pascal
"STEN" a écrit dans le message de
news:24cfb01c45fad$0b19aef0$
Bonjour,
Je travaille sur un classeur et j'aimerai à l'aide d'une
macro ouvrir un autre classeur du disque sans pour autant
en connaitre le chemin exact mais seulement le nom, est-
ce possible ?
Merci de votre aide.
Avatar
STEN
Mercia vous deux!
-----Message d'origine-----
Je travaille sur un classeur et j'aimerai à l'aide d'une
macro ouvrir un autre classeur du disque sans pour
autant


en connaitre le chemin exact mais seulement le nom, est-
ce possible ?


Regarde là :
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/
ChercheAvecBaseName.txt


AV


.