Discussion :

[Lordinho]

Bonjour,

Etant debutant dans excel j'ai un probleme tout bête que je n'arrive pas a résoudre !

J'explique la situation :
* Base.xml : qui sort chaque jour ( avec divers champs codés a retranscrire avec un VLOOKUP sur un fichier referentiel = ex : code 75 = PARIS )
* Lancement.xls : ou il y a tout mes macros et qui sera lancé via un .bat et programmer en tache planifié !
* Referentiel.xls : tous les codes de departements, profils metier ( pas de soucis sur ce fichier )

Jusqu'a la pas de soucis car j'ai specifié le chemin d'acces dans mon VLOOKUP :
Mais le probleme viens de ce qui est en rouge, comment lui appliquer le chemin d'accés pour le fichier "base.xml" !

Mais dans mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub edit()
    Windows("base.xml").Activate
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight
    Range("E2").Select    
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],['K:\***\***\3. Réalisation et tests\Referentiel.xls]Dpt'!R1C1:R101C2,2,FALSE)"
    Range("E2").Select
    Selection.Copy
End Sub

Merci d'avance

[patricktoulon]

bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    dim titre as string
dim chemin ,trucaouvrir as string
 
sub ouverture fichier
 
chemin="c:\mondossier"
titre ="monfichier.xls"
trucaouvrir=chemin &"\" & titre
workbooks.open trucaouvrir
'et la le reste de  ta macro 
 
end sub

voila au plaisir