Chemin d'accès sous VBA sur un NAS

Version imprimable

Bonjour à tous !

Je suis débutant dans le monde du développement VBA et je suis prestataire d'une grande entreprise française je n'ai donc pas accès à tout.
Actuellement je conçois une macro pour pouvoir copier des données dans un fichier qui est sur un NAS. Mais malheureusement le chemin que j'ai ne fonctionne pas et ne trouve pas le fichier.
Est il possible de faire ça avec un code VBA ? C'est une histoire de droit ?

Code:

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
31
32
33
34
35
36
37
38
39
 Private Sub CommandButton1_Click()
    Dim CheminFichier As String
    Dim ClasseurSource As Workbook
    Dim FeuilleSource As Worksheet
    Dim FeuilleDestination As Worksheet
    Dim PlageSource As Range
    Dim PlageDestination As Range
    Dim DernièreLigne As Long

    ' Définir le chemin du fichier source
    CheminFichier = "\\nas23\DMM_espace_Partage_2_m\Logistique\3-Centre Logistique Militaire\32A Partage ONET_SAE\XX_Gestion ONET\03. Activité Rechange\TBD Rechange - 2023"

    ' Ouvrir le fichier source
    Set ClasseurSource = Workbooks.Open(CheminFichier)

    ' Définir la feuille source (onglet "Recap hebdo" dans le fichier source)
    Set FeuilleSource = ClasseurSource.Sheets("Recap hebdo")

    ' Définir la feuille de destination (onglet "Bilan site hebdo" dans le fichier de destination)
    Set FeuilleDestination = ThisWorkbook.Sheets("Bilan site hebdo")

    ' Trouver la dernière ligne dans la plage de source
    DernièreLigne = FeuilleSource.Cells(Rows.Count, "B").End(xlUp).Row

    ' Définir la plage de source à copier (B5 jusqu'à la dernière ligne et colonne V)
    Set PlageSource = FeuilleSource.Range("B5:V" & DernièreLigne)

    ' Définir la plage de destination
    Set PlageDestination = FeuilleDestination.Range("I5:AC56")

    ' Copier les données de la plage source vers la plage de destination
    PlageDestination.Value = PlageSource.Value

    ' Fermer le fichier source sans enregistrer les modifications
    ClasseurSource.Close False

    ' Afficher un message de confirmation
    MsgBox "Les données ont été importées avec succès!", vbInformation
End Sub

06/09/2023, 18h04
Franc

Bonjour, ça peut effectivement être une question de droits. Tu pourrais essayer comme ceci:

Code:

Set ClasseurSource = Workbooks.Open(CheminFichier, , , , "votre_nom_utilisateur", "votre_mot_de_passe")
08/09/2023, 08h34
Log_Rdx

Citation:

Envoyé par Franc

Bonjour, ça peut effectivement être une question de droits. Tu pourrais essayer comme ceci:

Code:

Set ClasseurSource = Workbooks.Open(CheminFichier, , , , "votre_nom_utilisateur", "votre_mot_de_passe")

Bonjour ! Merci pour votre réponse.
Malheureusement j'ai toujours le l'erreur 1004 : Laméthide 'Open' de l'objet 'Workbooks' a échoué
J'ai aussi une question auquel je n'ai pas pensé quand j'ai ouvert ce topic. Le nom du fichier dans le code doit il se terminer par ".xlsx" ou autre ?

Merci de votre aide !
08/09/2023, 09h37
Dinytro

Et si tu tapes le chemin d'accès à la main

Code:

\\nas23\DMM_espace_Partage_2_m\Logistique\3-Centre Logistique Militaire\32A Partage ONET_SAE\XX_Gestion ONET\03. Activité Rechange\TBD Rechange - 2023\<tonfichier>

Est-ce que tu y accèdes ?

Est-ce que tu as un résultat différent si au moment où tu le lances, tu as une fenêtre explorateur ouverte avec accès au nas déjà identifié ?
C'est quoi comme nas ?
08/09/2023, 09h58
Log_Rdx

Citation:

Envoyé par Dinytro

Et si tu tapes le chemin d'accès à la main

Code:

\\nas23\DMM_espace_Partage_2_m\Logistique\3-Centre Logistique Militaire\32A Partage ONET_SAE\XX_Gestion ONET\03. Activité Rechange\TBD Rechange - 2023\<tonfichier>

Est-ce que tu y accèdes ?

Est-ce que tu as un résultat différent si au moment où tu le lances, tu as une fenêtre explorateur ouverte avec accès au nas déjà identifié ?
C'est quoi comme nas ?

Et bien j'ai résolu mon problème enfin de compte il fallait juste changer le nom du fichier et rajouter un .xlsx et remplacer le CheminFichier par CheminNAS et tout fonctionne niquel !
Je devrais arrêter d'écouter les gens qui me disent que ça fonctionne pas et que c'est impossible :lol::lol:

Merci de votre réponse ! Et désolé pour le dérangement. Passez une bonne journée !