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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
771
Réponses
3
Affichages
829
Retour