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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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.
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" <JYSMLD83@aol.com> a écrit dans le message de
news:24cfb01c45fad$0b19aef0$a401280a@phx.gbl...
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.
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.
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
.
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