Macro Ouvrir classeur excel

[poipoi59]

Bonjour,

Je souhaite créer une macro permettant d'ouvrir un fichier excel dont la fin du nom est égale à la valeur d'une cellule de mon classeur actif

En espérant être clair,

Merci de votre aide

 

[Robert]

Re : Macro Ouvrir classeur excel

Bonjour Poipoi, bonjour le forum,

Pourrais tu être plus précis car la fin c'est pas très clair... Un petit exemple peut-être !

 

[Pierrot93]

Re : Macro Ouvrir classeur excel

Bonjour,

peut être ceci si j'aibien compris :

Workbooks.Open "C:\MesDocs\Excel\Debut Nom fichier" & Range("A1").Value & ".xls"

bonne journée
@+

Edition : bonjour Robert

 

[poipoi59]

Re : Macro Ouvrir classeur excel

Merci,

Exemples : ".......P496865 - WADOUX STEPHANE.xls" ou "......P496782 - HUMEL SOPHIE"

Le début correspondant à une date qui changé régulièrement et pas forcément concordante à la date du jour ou du mois, par contre la fin citée en exemple est reprise exactement sur une cellule du classeur actif

Merci pour l'attention portée et la rapidité

 

[poipoi59]

Re : Macro Ouvrir classeur excel

Bonjour,

peut être ceci si j'aibien compris :

Workbooks.Open "C:\MesDocs\Excel\Debut Nom fichier" & Range("A1").Value & ".xls"

bonne journée
@+

Edition : bonjour Robert

Merci, Pierrot,

Le souci est que je ne connaîs pas le début du nom du fichier...

 

[Pierrot93]

Re : Macro Ouvrir classeur excel

Re,

et quel est le format et surtout le critère qui permet de déterminer cette date ??

 

[poipoi59]

Re : Macro Ouvrir classeur excel

Re,

et quel est le format et surtout le critère qui permet de déterminer cette date ??

La date est déterminée par un collègue...mais peut-on supposer que l'on puisse rechercher un fichier dont on ne connaisse que la fin du nom de ce fichier ???

J'ai vu des choses possibles avec le début connu et fin inconnue mais pas l'inverse

Je suis sûr que quelqu'un d'entre vous a une solution pour moi...

Merci

 

[Pierrot93]

Re : Macro Ouvrir classeur excel

Re,

regarde du coté de la fonction "Dir" avec l'utilisation d'un *

 

[poipoi59]

Re : Macro Ouvrir classeur excel

Re,

regarde du coté de la fonction "Dir" avec l'utilisation d'un *

aurais-tu un exemple s'il te plaît ?

Merci

 

[Pierrot93]

Re : Macro Ouvrir classeur excel

Re,

dans l'éditeur vba, F1 sur le mot "dir" te donnera un exemple... une petite recherche sur le forum également.....

 

[Pierrot93]

Re : Macro Ouvrir classeur excel

Re,

un exemple à adapter :

Option Explicit
Sub test()
Dim r As String, f As String
r = ThisWorkbook.Path & "\"
f = Dir(r & "*partieConnue.xls")
Do While f <> ""
    If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
    f = Dir
Loop
End Sub

 

[poipoi59]

Re : Macro Ouvrir classeur excel

Merci parce que l'explication via l'aide vba ne m'éclairait guère

Mais comment alors remplacer partie connue par la valeur d'une cellule ?

Merci

 

[poipoi59]

Re : Macro Ouvrir classeur excel

Merci parce que l'explication via l'aide vba ne m'éclairait guère

Mais comment alors remplacer partie connue par la valeur d'une cellule ?

Merci

J'ai tenté cela :

Sub test()
Dim r As String, f As String
r = "chemin & " \ ""
f = Dir(r & Range("A2").Value & ".xls")
Do While f <> ""
If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
f = Dir
Loop
End Sub


Mais ça ne marche pas, étonnant non ???

 

[poipoi59]

Re : Macro Ouvrir classeur excel

J'ai tenté cela :

Sub test()
Dim r As String, f As String
r = "chemin & " \ ""
f = Dir(r & Range("A2").Value & ".xls")
Do While f <> ""
If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
f = Dir
Loop
End Sub


Mais ça ne marche pas, étonnant non ???

Un autre test :

Sub test()
Dim r As String, f As String
ThisWorkbookPath = "c:chemin"
r = ThisWorkbook.Path & "\"
f = Dir(r & Range("A2").Value & ".xls")

Do While f <> ""
If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
f = Dir
Loop
End Sub

cela ne marche pas non plus !!!

Avez-vous une solution ???

Merci,

 

[Pierrot93]

Re : Macro Ouvrir classeur excel

Re,

modifie comme suit :

Option Explicit
Sub test()
Dim r As String, f As String
r = ThisWorkbook.Path & "\"
f = Dir(r & "*" & Range("A1").Value & ".xls")
Do While f <> ""
    If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
    f = Dir
Loop
End Sub