Discussion :

[ALDForm]

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

[Philippe Tulliez]

Bonjour
Je n'ai effectué aucun test mais à la lecture rapide du code, je constate que vous alimentez la variable sPathUser qui semble contenir le chemin où sauver le fichier mais nulle part vous ne l'utilisez dans le code.
Le chemin utilisé est contenu dans les variables N_Devis et N_Nom elles même contenant les valeurs des cellules F10 et E5 de la feuille Devis
N'y a t'il pas un petit souci ?

[ALDForm]

et bien en fait c'est un fichier que j'ai recupéré mais je ne pense pas qu'il y ait une déclaration de variable ailleur.
Le code initial qui fonctionnait tres bien est commenté.
Le seul truc que l'on a changé c'est l'emplacement des devis, le chemin est plus long maintenant.

Merci

[ALDForm]

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    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
 
End Sub
 
Private Sub Workbook_Open()
 
    Dim N_Devis As Integer
    Dim N_Devis_Full As String
    Dim N_Nom As String
    N_Devis = InputBox("Saisir le numéro de devis du jour : ")
    N_Nom = InputBox("Saisir le nom du client : ")
    Sheets("Numérotation").Activate
    Range("D2").Select
    Selection.Value = N_Devis
    N_Devis_Full = "'" & Range("B3").Value
    Sheets("Devis").Activate
    Range("E5").Select
    Selection.Value = N_Nom
    Range("F10").Select
    Selection.Value = N_Devis_Full
    Range("F11").Select
    Selection.Value = Date
 
End Sub

[Philippe Tulliez]

Bonjour,
La seule chose que je puisse vous affirmer c'est que dans l'instruction ci-dessous, vous demandez de sauver le fichier à l'emplacement N_Devis & " - " & N_Nom & ".xlsx" soit le contenu des cellules F10 et E5 de la feuille Devis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:=N_Devis & " - " & N_Nom & ".xlsx", FileFormat:=xlOpenXMLWorkbook

A mon avis dans le code d'origine la cellule F10 de la feuille Devis est alimentée par la variable sPathUser soit le résultat de Environ$("USERPROFILE") & "\\Documents\Transmanutp\TRANSMANUTENTION ET TP\DEVIS\DEVIS 2024"

[EDIT]
A la place d'utiliser N.Devis vous pourriez peut-être utiliser la variable sPathUser

[SR.SFC]

Bonjour,

Modifiez votre chemin. Pas d'espace dans les noms.
Il est probable que votre problème sera résolu.

[ALDForm]

Bonjour,
La seule chose que je puisse vous affirmer c'est que dans l'instruction ci-dessous, vous demandez de sauver le fichier à l'emplacement N_Devis & " - " & N_Nom & ".xlsx" soit le contenu des cellules F10 et E5 de la feuille Devis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:=N_Devis & " - " & N_Nom & ".xlsx", FileFormat:=xlOpenXMLWorkbook

A mon avis dans le code d'origine la cellule F10 de la feuille Devis est alimentée par la variable sPathUser soit le résultat de Environ$("USERPROFILE") & "\\Documents\Transmanutp\TRANSMANUTENTION ET TP\DEVIS\DEVIS 2024"

[EDIT]
A la place d'utiliser N.Devis vous pourriez peut-être utiliser la variable sPathUser

et bien je pense qu'il n'y a rien dans les feuilles et les cellules. En tout cas je ne trouve pas.
Merci pour votre aide