Discussion :

[sirine_]

Bonsoir à tous,

J'ai un petit souci. En fait, je vais ouvrir un fichier à partir d'un classeur et qui appartiennet au meme répertoire et ils ont une partie dans leur nom en commun.
exemple:
1) nom du mon classeur:REF_LILLE_150214
2) et le com du fichier à ouvrir a le nom: réferentiel_LILLE_150214

comment je peux ouvrir le 2 classuer à partir de 1 ??
est ce que vous pouvez m'aider svp,
merci,

[Docmarti]

Bonsoir sirine

'Dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public wb1 As Workbook
 
Sub Ouvrir()
 
chemin = ActiveWorkbook.Path
 
If Right(chemin, 1) <> "\" Then chemin = chemin & "\"
 
nom1 = ActiveWorkbook.Name
 
nom1 = Mid(nom1, 4) 'Pour supprimer les 3 premiers caracteres
 
nom2 = chemin & "réferentiel" & nom1
 
Set wb1 = Workbooks.Open(nom2)
 
 
End Sub

[sirine_]

Merci pour votre réponse mais ça marche pas, voila je vous donne les noms excate des fichiers:
le classeur actif: 123445_BPU_LILLE LAMBERT_exxx_150214.xlsm
le classeur à ouvrir: référentiel_LILLE LAMBERT_exxx_150214.xlsm

merci d'avance,
cordialement,

[Nico Chg]

Bonjour,

Son code marche très bien pour ton exemple, mais si tu ne nous donne pas toutes les infos, ça risque d'être plus compliqué.

Par exemple, est ce que tous les classeurs que tu voudras ouvrir ont le même format de nom ? ou il peut y avoir des différences ?

Il existe plusieurs solutions, je te suggère de jeter un oeil sur les Expressions rationnelles

Une des fonctionnalité des RegExp est de te permetre de chercher un "motif" dans une chaîne de caractère, indépendamment de ce qu'il se trouve avant ou après.

Le code pour ouvrir un fichier est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Wb as workbook
Set Wb = Application.workbook.open(Path + filename)

Le code pour trouver le chemin dans lequelle se trouve le classeur actif est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim sPath as string
sPath = Thisworkbook.path

Bonne chance

[sirine_]

Merci NIco pour votre réponse,

bah le code précédent ça marche mais le bug c'est dans l'ouverture du fichier, toujours une erreur de débogage sur le dernier ligne

merci pour vous deux,

Merci pour vous voila le code marche menant le problème est dans l'extension de mon fichier

[Docmarti]

Merci pour votre réponse mais ça marche pas, voila je vous donne les noms excate des fichiers:
le classeur actif: 123445_BPU_LILLE LAMBERT_exxx_150214.xlsm
le classeur à ouvrir: référentiel_LILLE LAMBERT_exxx_150214.xlsm

merci d'avance,
cordialement,

Il faudrait être plus précis sur l'erreur qui survient.
Quel est le numéro et le message d'erreur ?