Macro enregistrement (chemin précis)

[3xceln4ute]

Bonjour Forum,

J'ai deux demandes si vous me le permettez.

1 - J'ai une macro qui permet d'enregistrer l'horaire à un endroit précis.

La macro affiche une erreur au niveau de cette ligne:

fdObj.CreateFolder (NomRep)

Voici la macro

Sub BA_Sauvegarder_Horaire_Cadres_EXEC()
'
' BA_Sauvegarder_Horaire_Cadres Macro
' Macro enregistrée le 2017-10-21 par USALVRO
'
'Cherche a sauvegarder le fichier en cours dans le répertoire 03DivGestCH\Centre de Dotation Administration\HORAIRES D'ENTREVUES\.
'Si les sous répertoires /ANNÉE/, /MOIS/, et /DATE/ n'existent 'pas il les crée. Si tout existe il demande à l'usager d'y conserver le fichier

    Dim fdObj As Object

    'variable pour le chemin
    Dim NomRep As String

    'liste des nom de mois
    Dim NomRepMois(11) As String

    Dim Mois As String


    Mois = Month(Cells(12, 3)) - 1

    'compléter la matrice
    NomRepMois(0) = "01-Janvier " & (radio2.Cells(12, 3))
    NomRepMois(1) = "02-Fevrier " & (radio2.Cells(12, 3))
    NomRepMois(2) = "03-Mars " & (radio2.Cells(12, 3))
    NomRepMois(3) = "04- Avril " & (radio2.Cells(12, 3))
    NomRepMois(4) = "05-Mai " & (radio2.Cells(12, 3))
    NomRepMois(5) = "06-Juin " & (radio2.Cells(12, 3))
    NomRepMois(6) = "07-Juillet " & (radio2.Cells(12, 3))
    NomRepMois(7) = "08-Août " & (radio2.Cells(12, 3))
    NomRepMois(8) = "09-Septembre " & (radio2.Cells(12, 3))
    NomRepMois(9) = "10-Octobre " & (radio2.Cells(12, 3))
    NomRepMois(10) = "11-Novembre " & (radio2.Cells(12, 3))
    NomRepMois(11) = "12-Decembre " & (radio2.Cells(12, 3))

    'définition du chemin
    NomRep = "\\ile.mtl.qc.ca\VDM$\04.RessHumaines\03DivGestCH\Centre de Dotation Administration\HORAIRE D'ENTREVUES\" & _
                    Year(radio2.Cells(12, 3)) & "\" & NomRepMois(Mois) & "\" & Day(radio2.Cells(12, 3)) & " " & Format(radio2.Cells(12, 3), "mmmm") & "\"
                      
    'vérifie si le répertoire existe
        Application.ScreenUpdating = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
        If fdObj.FolderExists(NomRep) Then
'        MsgBox "Ce répertoire existe déjà.", vbInformation, "Dotation"
    Else
        fdObj.CreateFolder (NomRep)
'        MsgBox "Le répertoire a été créé.", vbInformation, "Dotation"
    End If

   Application.GetSaveAsFilename (NomRep)


    Application.ScreenUpdating = True
End Sub

2 - Serait-il possible de demander à Excel d'enregistrer le fichier en prenant en compte:
Nom du fichier_Date d'entrevue_Nom de l'intervenant RH responsable.xls

 

[Staple1600]

Bonsoir le fil, le forum

Mets un Msgbox pour tester la valeur de NomRep
'définition du chemin
NomRep = "\\ile.mtl.qc.ca\VDM$\04.RessHumaines\03DivGestCH\Centre de Dotation Administration\HORAIRE D'ENTREVUES\" & _
Year(radio2.Cells(12, 3)) & "\" & NomRepMois(Mois) & "\" & Day(radio2.Cells(12, 3)) & " " & Format(radio2.Cells(12, 3), "mmmm") & "\"
Msgbox NomRep
'vérifie si le répertoire existe

 

[3xceln4ute]

Bonsoir le fil, le forum

Mets un Msgbox pour tester la valeur de NomRep
'définition du chemin
NomRep = "\\ile.mtl.qc.ca\VDM$\04.RessHumaines\03DivGestCH\Centre de Dotation Administration\HORAIRE D'ENTREVUES\" & _
Year(radio2.Cells(12, 3)) & "\" & NomRepMois(Mois) & "\" & Day(radio2.Cells(12, 3)) & " " & Format(radio2.Cells(12, 3), "mmmm") & "\"
Msgbox NomRep
'vérifie si le répertoire existe

Bonjour,

Merci pour votre réponse.

On dirait que le chemin d'accès n'est plus reconnu.

Voici le bon chemin:

S:\03DivGestCH\Centre de Dotation Administration\HORAIRE D'ENTREVUES\2017\11-Novembre

Et je sais que c'est ce bout de code qui doit changer, mais je ne sais pas où :/

NomRep = "\\ile.mtl.qc.ca\VDM$\04.RessHumaines\03DivGestCH\Centre de Dotation Administration\HORAIRE D'ENTREVUES\" & _
    Year(radio2.Cells(12, 3)) & "\" & NomRepMois(Mois) & "\" & Day(radio2.Cells(12, 3)) & " " & Format(radio2.Cells(12, 3), "mmmm") & "\"

 

[Staple1600]

Bonsoir le fil , le forum

Qu'est-ce qu'il y a exactement d'affiché dans le Msgbox?
(quand tu ajoutes le test suggéré dans mon message précédent)

 

[3xceln4ute]

Bonsoir le fil , le forum

Qu'est-ce qu'il y a exactement d'affiché dans le Msgbox?
(quand tu ajoutes le test suggéré dans mon message précédent)

 

[Staple1600]

Re

Il suffit de supprimer cette partie alors, non?
\\ile.mtl.qc.ca\VDM$\04.RessHumaines\
pour la remplacer par
S:\

 

[3xceln4ute]

En fait, non. Parce que le dossier du mois été nommé comme ça: 11 - Novembre 2017
Mais, actuellement, il est nommé ainsi: 11-Novembre

Donc, le code doit s'adapter au nouveau format du nom de dossier, je présume.

 

[Staple1600]

Re

Qui a écrit ?

Voici le bon chemin:
Code (Text):
S:\03DivGestCH

Ce n'est pas moi, non ?

 

[3xceln4ute]

En fait, comme c'est un serveur en réseau, donc il change de S:\ à \\ile.mtl.qc.ca\VDM$\04.RessHumaines\

Il n'est pas là le problème.

 

[Staple1600]

Re

Et comme cela? Il y a toujours l'erreur?

'définition du chemin
    NomRep = "\\ile.mtl.qc.ca\VDM$\04.RessHumaines\03DivGestCH\Centre de Dotation Administration\HORAIRE D'ENTREVUES\" & _
                    Year(radio2.Cells(12, 3)) & "\" & NomRepMois(Mois) & "\" & Day(radio2.Cells(12, 3)) & " " & Format(radio2.Cells(12, 3), "mmmm")

 

[3xceln4ute]

Ça persiste :/

 

[Staple1600]

Bonsoir le fil, le forum

Fais une version test de ta macro pour créer un dossier en local
Exemple:
NomRep = "C:\TEMP\" & _
Year(radio2.Cells(12, 3)) & "\" & NomRepMois(Mois) & "\" & Day(radio2.Cells(12, 3)) & " " & Format(radio2.Cells(12, 3), "mmmm")
Est-ce la macro crée le dossier si'il n’existe pas?

PS: Tu fais aussi faire plus simple comme test
NomRep = "C:\TEMP\toto\titi"
Les dossiers TEMP et toto existent mais pas titi
Est-ce que la macro crée titi?

 

[3xceln4ute]

Bonjour le fil, le forum,

Voici une capture d'ecran du msgbox


Ça ne crée pas le dossier 2017.

 

[Staple1600]

Bonsoir le fil, le forum

Et le second test? Celui indiqué dans le PS

 

[3xceln4ute]

Bonjour le forum, le fil,

J'ai essayé ce qui a été demandé en PS et ça donne ceci:

https://prnt.sc/h92iwv

Puis ça affiche cette fenêtre:

Erreur d"exécution '76':
Chemin d'accès introuvable

et la ligne de code fdObj.CreateFolder (NomRep) devient jaune.