Macro ouvrir plsr excel qui changent d'emplacement

lazou08 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,
Je reviens avec une question sur les macros.
Je résume mon problème :

J'ai un fichier excel nommé "interface" qui va chercher des données dans une vingtaine de fichiers excel qui se trouvent dans le même dossier qu'"interface".
Ainsi, pour modifier "interface", il faut que l'ensemble de mes 20 fichiers soient ouverts en même temps afin que les modifications se fassent correctement.
Seulement, ce fichier est à destination de plusieurs utilisateurs.
Je voudrais donc réaliser une macro dans le fichier "interface" qui, au clic, ouvre les 20 fichiers qui se trouvent dans le même dossier qu'"interface", et ce, sur n'importe quel pc qui pourra l'utiliser. Du moment que le dossier complet soit copié intégralement sur le pc utilisateur.

Lorsque je déplace tous mes fichiers ensemble dans une même destination il n'y a pas de problème : mes données dans "interface" qui sont toujours bien liées aux aux autres fichiers, le "chemin d'accès" s'est donc mis à jour.
Est-ce possible également que le chemin d'accès dans une macro se mettent à jour également ?

J'espère avoir été assez claire,
Merci pour votre aide !
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Si tous vos fichiers sont dans le meme repertoire, utilisez
ThisWorbook.Path
pour avoir le bon chemin
0
lazou08 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai trouvé ce script, savez-vous à quel endroit dois-je utiliser cette fonction ?


Sub Openworkbook_Click()
'Updateby Extendoffice 20161008
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("F:\Evaluation\Fichier1.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "Fichiers non trouvés !", vbInformation, "Ouverture des fichers Excel"
Err.Clear
Else
MsgBox "Les fichiers sont ouverts !", vbInformation, "Ouverture des fichiers Excel"
End If
End Sub
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Cette procedure a un chemin en "dur" pas dynamique
0