Ouvrir un fichier excel par macro en adresse relative.

[Emmanuel]

Bonjour le forum,

Je bloque actuellement sur une utilisation dans une macro VB pour ouvrir un fichier excel donné. Je souhaite lors de l'ouverture d'un fichier depuis l'explorateur Windows ouvrir tous les fichiers qui sont présent dans ce répertoire. La difficulté est de travailler en adresse relative et non en adresse absolue de fichier.

Je ne sais pas quelle solution adopter.

Merci d'avance pour toutes vos réponses.

Emmanuel

 

[Coun]

Bonjour Emmanuel,

Je te suggère d'utiliser la propriété .path d'un classeur. Cela te permet de récupérer le chemin de ton fichier et ensuite tu pourras travailler sur ce chemin a ta guise en le stockant dans une chaine de caractère.

Voila, bon courage!

Philippe

 

[Papaye]

Salut,

Essaye :

Sub Macro1()


NomRep = ActiveWorkbook.Path
NomSuivi = ActiveWorkbook.Name
With Application.FileSearch
.NewSearch
.LookIn = NomRep
.SearchSubFolders = False
.Filename = "*.XLS"
.MatchAllWordForms = True
.FileType = msoFileTypeExcelWorkbooks
If (.Execute() > 0) Then
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> NomRep & "\" & NomSuivi Then Workbooks.Open Filename:=.FoundFiles(i)
Next i
End If
End With

End Sub

 

[Emmanuel]

Merci beaucoup à Coun et Papaye.

Je vais essayer les solutions proposées.