Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Cedrim69

XLDnaute Nouveau
Bonjour,

J'ai un probleme avec mon code suivant, il me propose bien d'enregistrer mon fichier avec le bon nom, mais pas dans le bon répertoire...

Le but de mon code, est de proposer directement aux techniciens d'enregistrer le fichier dans le bon répertoire, pour pas qu'ils écrasent la fiche de base

VB:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

' Sauvegarde dans le bon repertoire avec le bon nom de fichier
        sRep = ThisWorkbook.Path
        'sRep = "https://teamplace.volvo.com/sites/parts-SPI/Back office docline/ARGUS non conformities cases"
        sName = Range("B4") & ".xlsm"


    If Feuil1.CheckBox1.Value = True Then sRep = sRep & "/03 - Non conformités non avérées/"
    If Feuil1.CheckBox2.Value = True Then
        If Range("G5") <> "" Then
        sRep = sRep = sRep & "/02 - Non conformités réelles corrigées/"
        Else
        sRep = sRep & "/01 - Non conformités réelles non corrigées/"
        End If
    End If

    Application.Dialogs(xlDialogSaveAs).Show sRep & sName
End Sub

Pouvez-vous m'apporter votre aide svp.
 
Dernière édition:

Cedrim69

XLDnaute Nouveau
Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Je voudrais ouvrir la boite de dialogue "Enregistrer sous" quand mes techniciens clique sur Enregistrer. En gros une lecture seule, avec en plus aller dans le répertoire ou le fichier doit etre enregistrer en temps normal et laisser aux techniciens la possibilité de l'enregistrer ailleurs... J'ai vu qu'on pouvais utiliser Application.Dialogs(xlDialogSaveAs).Show sRep & sName, mais je ne reussi pas à faire fonctionner ma macro...
 

gilbert_RGI

XLDnaute Barbatruc
Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

essayer ceci

attention les chemins doivent être existant sinon erreur et sortie par la msgbox
dans ce cas possibilité de créer le répertoire manquant avec MkDir
Code:
Sub test()
 Dim msgerreur
' Sauvegarde dans le bon repertoire avec le bon nom de fichier
        srep = ThisWorkbook.Path
         sname = Range("B4")
    If Feuil1.CheckBox1.Value = True Then srep = srep & "\03 - Non conformités non avérées"
     If Feuil1.CheckBox2.Value = True Then
         If Range("G5") <> "" Then
         srep = srep & "\02 - Non conformités réelles corrigées"
         Else
         srep = srep & "\01 - Non conformités réelles non corrigées"
         End If
     End If
 On Error GoTo msgerreur
         
With Application.FileDialog(msoFileDialogSaveAs)
         .AllowMultiSelect = False         'Un seul Fichier possible
         .InitialFileName = srep & "\" & sname       'Répertoire d'ouverture de la fenetre et le nom du fichier
         .Title = "Enregistrement de ce fichier"
         .Show 
End With
Exit Sub
msgerreur:
MsgBox srep & vbLf & vbLf & " Il y a une erreur dans ce chemin" & vbLf & " ou ce chemin n'existe pas"
End Sub
 
Dernière édition:

Cedrim69

XLDnaute Nouveau
Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Bonjour,

J'ai toujours un problème quand je met un chemin sur le serveur.
La macro fonctionne bien quand je met des chemin sur mon disque dur, mais des que je veux sauvegarder sur le serveur (https://...) ça ne fonctionne pas.

Avez-vous une idée pour me dépanner ?

Merci d'avance.
 

Pièces jointes

  • Argus non conformities chart (7).xlsm
    41.3 KB · Affichages: 52

Cedrim69

XLDnaute Nouveau
Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Hello, désolé pour le retard pour la réponse. j'ai essayé de faire une msgbox mais c'est pas possible. J'ai le message d'erreur "Il y a une erreur dans ce chemin ou ce chemin n'existe pas"
Je ne comprend pas pourquoi...
fiche msgerror.jpg

rep-enregistrement.JPG

Merci d'avance
 

Cedrim69

XLDnaute Nouveau
Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Hello,
désolé pour le retard, j'étais en déplacement.
Je viens d'essayé en commentant On Error GoTo msgerreur, mais maintenant j'ai un bug dans la macro
onError_comment.jpg

Merci d'avance
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo