macro pour ouvrir autre document commencant par "2004 MMM"
1 réponse
marchepied
Bonjour,
Je voudrai faire une macro qui me permettra d'ouvrir un=20
autre document excel commencant par "2004 MMM". Ce=20
document se trouve dans le dossier "2004". Ce dossier=20
contient plusieurs documents excel, mais un seul commence=20
par "2004 MMM". Quand le document est ouvert, je voudrai=20
m=E9moriser les cellules A1 et A2, et puis fermer=20
immediatement apr=E8s le document "2004 MMM". dans la macro=20
je pourrai, ensuite, travailler avec les 2 cellules (A1 &=20
A2) r=E9cup=E9r=E9es.
Dans le nom du document, apr=E8s le "MMM" il y a d'autre=20
caract=E8res, mais ils sont variables un mois sur l'autre.
j'aurai besoin d'un peu d'aide pour faire cette macro.
Merci,
marchepied
With Application.FileSearch .NewSearch .LookIn = Dossier .SearchSubFolders = False 'mettre True s'il y a des sous-dossiers .Filename = "2004 MMM*" .Execute If .FoundFiles.Count = 1 Then Workbooks.Open .FoundFiles(1) End With
End Sub '================ FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, Je voudrai faire une macro qui me permettra d'ouvrir un autre document excel commencant par "2004 MMM". Ce document se trouve dans le dossier "2004". Ce dossier contient plusieurs documents excel, mais un seul commence par "2004 MMM". Quand le document est ouvert, je voudrai mémoriser les cellules A1 et A2, et puis fermer immediatement après le document "2004 MMM". dans la macro je pourrai, ensuite, travailler avec les 2 cellules (A1 & A2) récupérées. Dans le nom du document, après le "MMM" il y a d'autre caractères, mais ils sont variables un mois sur l'autre. j'aurai besoin d'un peu d'aide pour faire cette macro. Merci, marchepied
Bonsoir,
Essaye ce bout de code, en adaptant à tes données :
'================ Sub TrouveFichier()
Dim Dossier$
With Application.FileSearch
.NewSearch
.LookIn = Dossier
.SearchSubFolders = False 'mettre True s'il y a des sous-dossiers
.Filename = "2004 MMM*"
.Execute
If .FoundFiles.Count = 1 Then Workbooks.Open .FoundFiles(1)
End With
End Sub
'================
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je voudrai faire une macro qui me permettra d'ouvrir un
autre document excel commencant par "2004 MMM". Ce
document se trouve dans le dossier "2004". Ce dossier
contient plusieurs documents excel, mais un seul commence
par "2004 MMM". Quand le document est ouvert, je voudrai
mémoriser les cellules A1 et A2, et puis fermer
immediatement après le document "2004 MMM". dans la macro
je pourrai, ensuite, travailler avec les 2 cellules (A1 &
A2) récupérées.
Dans le nom du document, après le "MMM" il y a d'autre
caractères, mais ils sont variables un mois sur l'autre.
j'aurai besoin d'un peu d'aide pour faire cette macro.
Merci,
marchepied
With Application.FileSearch .NewSearch .LookIn = Dossier .SearchSubFolders = False 'mettre True s'il y a des sous-dossiers .Filename = "2004 MMM*" .Execute If .FoundFiles.Count = 1 Then Workbooks.Open .FoundFiles(1) End With
End Sub '================ FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, Je voudrai faire une macro qui me permettra d'ouvrir un autre document excel commencant par "2004 MMM". Ce document se trouve dans le dossier "2004". Ce dossier contient plusieurs documents excel, mais un seul commence par "2004 MMM". Quand le document est ouvert, je voudrai mémoriser les cellules A1 et A2, et puis fermer immediatement après le document "2004 MMM". dans la macro je pourrai, ensuite, travailler avec les 2 cellules (A1 & A2) récupérées. Dans le nom du document, après le "MMM" il y a d'autre caractères, mais ils sont variables un mois sur l'autre. j'aurai besoin d'un peu d'aide pour faire cette macro. Merci, marchepied
