Discussion :

[cchampion2fr]

Je voudrais ouvrir un fichier en connaissant que le debut du nom du fichier.

Code :

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

Workbooks.Open Filename:="C:\DONNEE\Perso\RO\RO2\TableSynthese_CR_*.XLS"

Ici nom du fichier : TableSynthese_CR_844fffefefe.XLS

Apres je fais des vlookup sur ce fichier donc j'imagine qu'il suffira de reprendre TableSynthese_CR_*.XLS dans mes formules vlookup...

[ouskel'n'or]

Fais un dir sur la partie du nom que tu connais

Code :

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

1
2
3
Chemin = "C:\DONNEE\Perso\RO\RO2\"
NomFich = Dir(Chemin & "TableSynthese_CR_*.XLS")
Workbooks.Open Filename:= NomFich

Pas testé.
Bonne journée

[Invité]

Bonjour,

Ouskel'n'or :

En effet, il ne peut pas utiliser le caractère générique "*" avec Open.

Donc pas de problème, votre code fonctionne, évidemment.

Juste pour l'utilisation future du nom de fichier, j'ajouterai :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
fich = Dir("C:\DONNEE\Perso\RO\RO2\TableSynthese_CR_*.XLS")
Workbooks.Open Filename:=fich
lg = Len(fich)
fich = Left(fich, lg - 4)
Set wbk = ActiveWorkbook

End Sub

utiliser "wbk" ensuite au lieu du nom du fichier lorsque c'est nécessaire.

[cchampion2fr]

ok..j'ai reussi à corriger le petit truc qui n'allait pas.

Apres pour la deuxieme question je fais comment pour ma recherchev..

Code :

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

Cells(k, 12) = "=VLOOKUP(RC[-8],'[&nomfich]Gouvernance'!R2C1:R40C3,3)"

[Invité]

Faites une recherche sur ce forum en tapant VLOOKUP et vous allez trouver des tas d'exemples.

Et pour commencer vous verrez qu'il faut utiliser :

Code :

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

Cells(k, 12) = Application.WorksheetFunction.VLookup(.....

[ouskel'n'or]

Deux pb : Un, quand tu ouvres un fichier, il devient le fichier actif. Si tu mets
seulement

Cells(k, 12) = ..........

la cellule en question concerne le fichier que tu as ouvert. Et je ne pense pas que ce soit ce que tu souhaites.
Le second : Si tu mets une variable dans une formule, tu dois la concaténer avec le reste de ta formule

NomClasseur = "NomDuClasseurOuChercher"
NomFeuille = "NomDeLaFeuilleOuChercher"
Thisworkbook.Worksheets("NomDeLaFeuilleOuColler").cells(k,12)= "=VLOOKUP(RC[-8],[" & NomDuClasseurOuChercher & "]" & NomDeLaFeuilleOuChercher & "!R2C1:R40C3,3)"

Ceci n'étant qu'une indication qu'il reste à tester

Edit
Et je pense que la solution de jacques_jean est encore la meilleure si tu ne dois pas étendre la formule sur les cellules suivantes
Je laisse cette solution au cas où...

[cchampion2fr]

ok merci pour vos reponses.

je vais regarder