Discussion :

[patrickFouilloux]

bonjour tout le monde

j'ai un fichier excel qui regroupe l'ensemble de dossier. j'ai des onglets qui reprennent des données provenant d'un autre fichier , et j'ai donc besoin que ce 2ème fichier s'ouvre automatiquement avec mon fichier principal.
sur le forum j'ai trouvé le processus en VBA suivant :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
Set C = ThisWorkbook
Application.Workbooks.Open ("C:\Users\Administrateur\Desktop\Administration des outils Keygen 2013.xls"), , True
End Sub

tout fonctionne bien sauf que sur mon ordinateur pas de problème car les 2 fichiers sont bien sur mon disque mais par contre ces fichiers sur sur un serveur (par synology) et les assistante n'y accède que par une adresse IP. donc avec l'adresse complète du fichier C:\..... ne peut pas fonctionner sur les autres ordi qui passe par le serveur.

donc est ce que quelqu'un peut m'aider

je vous remercie par avance de votre aide

cordialement

Patrick

[halaster08]

Bonjour,

Tu peux essayer d'utiliser l'enregistreur de macro sur le poste des tes assistantes et d'ouvrir le fichier, tu auras alors normalement le chemin qui fonctionne pour elles.

[patrickFouilloux]

tout d'abord je te remercie de cette réponse très rapide.

j'avais essayer de mettre l'adresse commençant par l'ip à la place du c://... et cela ne fonctionnait pas. je bien de tilter pourquoi. en ouvrant le fichier général sur le poste d'une assistante finalement tout fonctionne avec l'adresse ip mais plus sur le miens ayant le fichier en direct sur mon ordinateur. les fichiers sont gérés à la base par moi donc sur mon PC et par le biais de synology ils sont envoyés sur le serveur . Les assistantes y accèdent donc seulement par le serveur n'ayant pas l'application synology sur leur ordinateur afin de ne pas polluer leur disque dur de toutes les données de chaque technicien.
j'ai l'impression que je vais tourner en rond :-(

[Phil Free]

Bonjour,

Synology est un serveur NAS. Tous serveur NAS correctement configuré devrait avoir un Nom d’hôte ! Ce qui permet d’éviter d'utiliser l'adresse IP.
C'est d'autant plus intéressant si le serveur a été configuré avec le DHCP activé. C'est a dire avec une Adresse IP non Fixe.
Ce n'est probablement pas le cas mais c'est quand même préférable d'utiliser le nom d’hôte.

Donc pour connaitre le chemin UNC(Universal Naming Convention) de ton fichier ou plutôt du répertoire dans le quel il se trouve..

je te propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Demo()
Dim FDR As FileDialog, MonRepertoire As String
Set FDR = Application.FileDialog(msoFileDialogFolderPicker)
With FDR
    .Show
    If .SelectedItems.Count > 0 Then
        MonRepertoire = .SelectedItems(1)
    End If
End With
    MsgBox GetUNCPath(MonRepertoire)
End Sub
 Function GetUNCPath(ByVal MyPath As String) As String
    ' recuperation du Chemin UNC d'un lecteur reseau
    Dim Drive_fso As Object, fso As Object
 
    If MyPath = vbNullString Then Exit Function
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set Drive_fso = fso.GetDrive(fso.GetDriveName(MyPath))
    If Not Err = 0 Then
        GetUNCPath = vbNullString
    ElseIf Not Drive_fso.ShareName = vbNullString And Not LCase$(fso.GetFile(MyPath).Path) = LCase$(MyPath) Then
        GetUNCPath = Drive_fso.ShareName & Right$(MyPath, Len(MyPath) - 2)
    Else
        GetUNCPath = MyPath
    End If
    On Error GoTo 0
    Set Drive_fso = Nothing
    Set fso = Nothing
End Function

La sub demo permet de sélectionner le répertoire dont tu veux connaitre le chemin UNC

Voila j'en ai fait pas mal, maintenant à toi de faire le reste.

[patrickFouilloux]

Bonjour,

Synology est un serveur NAS. Tous serveur NAS correctement configuré devrait avoir un Nom d’hôte ! Ce qui permet d’éviter d'utiliser l'adresse IP.
C'est d'autant plus intéressant si le serveur a été configuré avec le DHCP activé. C'est a dire avec une Adresse IP non Fixe.
Ce n'est probablement pas le cas mais c'est quand même préférable d'utiliser le nom d’hôte.

Donc pour connaitre le chemin UNC(Universal Naming Convention) de ton fichier ou plutôt du répertoire dans le quel il se trouve..

je te propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Demo()
Dim FDR As FileDialog, MonRepertoire As String
Set FDR = Application.FileDialog(msoFileDialogFolderPicker)
With FDR
    .Show
    If .SelectedItems.Count > 0 Then
        MonRepertoire = .SelectedItems(1)
    End If
End With
    MsgBox GetUNCPath(MonRepertoire)
End Sub
 Function GetUNCPath(ByVal MyPath As String) As String
    ' recuperation du Chemin UNC d'un lecteur reseau
    Dim Drive_fso As Object, fso As Object
 
    If MyPath = vbNullString Then Exit Function
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set Drive_fso = fso.GetDrive(fso.GetDriveName(MyPath))
    If Not Err = 0 Then
        GetUNCPath = vbNullString
    ElseIf Not Drive_fso.ShareName = vbNullString And Not LCase$(fso.GetFile(MyPath).Path) = LCase$(MyPath) Then
        GetUNCPath = Drive_fso.ShareName & Right$(MyPath, Len(MyPath) - 2)
    Else
        GetUNCPath = MyPath
    End If
    On Error GoTo 0
    Set Drive_fso = Nothing
    Set fso = Nothing
End Function

La sub demo permet de sélectionner le répertoire dont tu veux connaitre le chemin UNC

Voila j'en ai fait pas mal, maintenant à toi de faire le reste.

Bonsoir Phil

je te remercie de ce retour. j'avoue que je suis assez novice dans le VBA. je ne comprends pas comment cela fonctionne et où je dois mettre le fichier qui doit 'ouvrir automatiquement. désolé

[halaster08]

je bien de tilter pourquoi. en ouvrant le fichier général sur le poste d'une assistante finalement tout fonctionne avec l'adresse ip mais plus sur le miens ayant le fichier en direct sur mon ordinateur.

Dans ce cas rajoute une condition si c'est toi qui ouvre chemin normal, si c'est une assistante chemin via l'ip.
Pour savoir qui ouvre le fichier tu peux utiliser environ: https://msdn.microsoft.com/fr-fr/vba...or=-2147217396