Menu

Macro ouvrir plsr excel qui changent d'emplacement

lazou08 3 Messages postés mardi 10 juillet 2018Date d'inscription 12 juillet 2018 Dernière intervention - 12 juil. 2018 à 10:46 - Dernière réponse : f894009 13221 Messages postés dimanche 25 novembre 2007Date d'inscription 13 juillet 2018 Dernière intervention
- 12 juil. 2018 à 14:09
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 !
Afficher la suite 

Votre réponse

3 réponses

f894009 13221 Messages postés dimanche 25 novembre 2007Date d'inscription 13 juillet 2018 Dernière intervention - 12 juil. 2018 à 14:00
0
Merci
Bonjour,

Si tous vos fichiers sont dans le meme repertoire, utilisez
ThisWorbook.Path
pour avoir le bon chemin
lazou08 3 Messages postés mardi 10 juillet 2018Date d'inscription 12 juillet 2018 Dernière intervention - 12 juil. 2018 à 14:05
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
f894009 13221 Messages postés dimanche 25 novembre 2007Date d'inscription 13 juillet 2018 Dernière intervention - 12 juil. 2018 à 14:09
Re,
Cette procedure a un chemin en "dur" pas dynamique
Commenter la réponse de f894009