Macro ouvrir plsr excel qui changent d'emplacement

lazou08 Messages postés 5 Statut Membre -  
f894009 Messages postés 17417 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 !

1 réponse

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Si tous vos fichiers sont dans le meme repertoire, utilisez
    ThisWorbook.Path
    pour avoir le bon chemin
    0
    1. lazou08 Messages postés 5 Statut Membre
       
      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
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,
      Cette procedure a un chemin en "dur" pas dynamique
      0