Bonjour,

J'ai un code pour enregistrer sous un fichier excel à la fermeture pour l'enregsitrer en format XLSX et PDF.
ça fonctionne très bien.
Par contre je fais un erreur dans mon chemin car il ne s'enregistre pas là ou je veux.
Je lui demande de s'enregistrer sous :
C:\Users\trans\Documents\TRANSMANUTENTION ET TP\DEVIS\DEVIS 2024

et il s'enregistre sous :
C:\Users\trans\Documents
Je ne parviens pas à le faire aller jusque dans Devis 2024

Voici mon code
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
Dim sPathUser As String
    'code d'origine
'    sPathUser = Environ$("USERPROFILE") & "\Documents\Transmanutp\DEVIS\"
    sPathUser = Environ$("USERPROFILE") & "\\Documents\Transmanutp\TRANSMANUTENTION ET TP\DEVIS\DEVIS 2024"
 
 
 
    Sheets("Devis").Activate
    N_Devis = Range("F10").Value
    N_Nom = Range("E5").Value
    ActiveWorkbook.Sheets.Copy
    ActiveWorkbook.SaveAs Filename:=N_Devis & " - " & N_Nom & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Sheets("Devis").ExportAsFixedFormat Type:=xlTypePDF, Filename:=N_Devis & " - " & N_Nom & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveWorkbook.Close
    ThisWorkbook.Activate
    Application.Quit
    Application.DisplayAlerts = False
Merci de votre aide