Macro pour enregistrement d'un classeur et numérotation en fonction de date et heure

**rpolpere** · 26/02/2025, 16h53

Bonjour,
Par une Macro, j'aimerais enregistrer dans un dans un dossier précis un classeur fichier Excel .
La ligne suivante est en erreur : ActiveWorkbook.SaveAs Filename:=cheminComplet, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Avez-vous une solution ?
Merci pour votre aide.
Rpolpere

**Igloobel** · 26/02/2025, 17h12

Bonjour,

Que contient ton : cheminComplet

**rpolpere** · 26/02/2025, 17h30

' Définir le chemin complet du fichier
cheminComplet = cheminDossier & nomFichier

**rpolpere** · 26/02/2025, 17h32

Merci pour ta réponse Igloobel.
Comment joindre Le code entier à mon message ?

**Philippe Tulliez** · 26/02/2025, 17h39

Bonjour,
Ce que l'on attend, c'est la chaîne de caractères que vous avez utilisée pour le chemin complet + nom du fichier, comme Filename:="C:\Users\phili\Documents\Test SaveAs.xlsm"

**rpolpere** · 26/02/2025, 17h44

Envoyé par Philippe Tulliez

Bonjour,
Ce que l'on attend, c'est la chaîne de caractères que vous avez utilisée pour le chemin complet + nom du fichier, comme Filename:="C:\Users\phili\Documents\Test SaveAs.xlsm"

' Définir le dossier où enregistrer le fichier
cheminDossier = " C:\Users\Roland Polonyi\Dropbox\TJAP\Centrale\Vérifications"

nomFichier = "Journalier_" & Format(Now, "yyyyMMdd_HHmmss") & ".xlsx"

**Philippe Tulliez** · 26/02/2025, 18h46

Bonjour,
Si le chemin et le nom du fichier sont stockés dans deux variables n'auriez vous pas omis le séparateur \ en concaténant les deux variables et de plus si c'est un classeur avec macro (xlOpenXMLWorkbookMacroEnabled), le suffixe doit être xlsm et pas xlsx

**rpolpere** · 26/02/2025, 18h57

Envoyé par Philippe Tulliez

Bonjour,
Si le chemin et le nom du fichier sont stockés dans deux variables n'auriez vous pas omis le séparateur \ en concaténant les deux variables et de plus si c'est un classeur avec macro (xlOpenXMLWorkbookMacroEnabled), le suffixe doit être xlsm et pas xlsx

Bonjour,
En fait, j'apporte 2 corrections, la première est : cheminComplet = cheminDossier & nomFichier et la seconde : cheminComplet = Replace(cheminComplet, ".xlsx", ".xlsm") bien que suffixe soit déjà déterminé plus haut = nomFichier = "Journalier_" & Format(Now, "yyyyMMdd_HHmmss") & ".xlsm"

cheminComplet = cheminDossier & nomFichier

cheminDossier = " C:\Users\Roland Polonyi\Dropbox\TJAP\Centrale\Vérifications"
et
nomFichier = "Journalier_" & Format(Now, "yyyyMMdd_HHmmss") & ".xlsm"

Comment ajouter l'ensemble de la macro en fichier joint ?

Et merci pour vos réponses

**Philippe Tulliez** · 26/02/2025, 19h17

Bonjour,

En fait, j'apporte 2 corrections, la première est : cheminComplet = cheminDossier & nomFichier et la seconde : cheminComplet = Replace(cheminComplet, ".xlsx", ".xlsm"

Comme je l'ai précisé dans ma réponse précédente, vous avez omis le séparateur \ en concaténant le chemin du dossier et le nom du fichier

Code :

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

cheminComplet = cheminDossier & "\" & nomFichier

Pour insérer votre code

Nom : dvp Editeur Balises Code.gif
Affichages : 73
Taille : 24,2 Ko

**rpolpere** · 26/02/2025, 19h21

Envoyé par Philippe Tulliez

Bonjour,

Comme je l'ai précisé dans ma réponse précédente, vous avez omis le séparateur \ en concaténant le chemin du dossier et le nom du fichier

Code :

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

cheminComplet = cheminDossier & "\" & nomFichier

Pour insérer votre code

Nom : dvp Editeur Balises Code.gif
Affichages : 73
Taille : 24,2 Ko

cheminComplet = cheminDossier & "" & nomFichier

**rpolpere** · 26/02/2025, 19h23

Envoyé par rpolpere

cheminComplet = cheminDossier & "" & nomFichier

Correction apportée :
cheminComplet = cheminDossier & " \ " & nomFichier

Mais problème non résolu

**Philippe Tulliez** · 27/02/2025, 06h59

Bonjour,
Publiez votre code.
Quel texte et quel numéro d'erreur renvoie le VBA ?

**rpolpere** · 27/02/2025, 08h58

Envoyé par Philippe Tulliez

Bonjour,
Publiez votre code.
Quel texte et quel numéro d'erreur renvoie le VBA ?

Bonjour,
Le numéro d'erreur était : 1004
Etait, parce que mon problème est résolu, il s'agissait d'une mauvaise indication dans le chemin pour atteindre le dossier final.

J'ignore comment publier l'ensemble de la macro, ce serait plus explicite, pourriez-vous me guider.

**deedolith** · 27/02/2025, 10h16

Envoyé par Philippe Tulliez

Bonjour,

Comme je l'ai précisé dans ma réponse précédente, vous avez omis le séparateur \ en concaténant le chemin du dossier et le nom du fichier

Code :

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

cheminComplet = cheminDossier & "\" & nomFichier

Hello,

Une solution moderne à ce problème récurant ne serait-il pas de passer par FSO ?
Cette bibliothèque prend en charge l'absence ou présence des antislash.
Exemple:

Code :

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

1
2
3
4
5
Dim Fso As Scripting.FileSystemObject
Set Fso = CreateObject("Scripting.FileSystemObject")
 
Debug.Print Fso.BuildPath("C:\monDossier", "monFichier.xlsx")   '// Affiche: C:\monDossier\monFichier.xlsx
Debug.Print Fso.BuildPath("c:\mondossier\", "monFichier.xlsx")  '// Affiche: c:\mondossier\monFichier.xlsx

**rpolpere** · 27/02/2025, 10h21

Envoyé par deedolith

Hello,

Une solution moderne à ce problème récurant ne serait-il pas de passer par FSO ?
Cette bibliothèque prend en charge l'absence ou présence des antislash.
Exemple:

Code :

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

1
2
3
4
5
Dim Fso As Scripting.FileSystemObject
Set Fso = CreateObject("Scripting.FileSystemObject")
 
Debug.Print Fso.BuildPath("C:\monDossier", "monFichier.xlsx")   '// Affiche: C:\monDossier\monFichier.xlsx
Debug.Print Fso.BuildPath("c:\mondossier\", "monFichier.xlsx")  '// Affiche: c:\mondossier\monFichier.xlsx

Bonjour,
Mon problème est donc réglé mais je suis toujours incapable de vous communiquer l'ensemble de code.

Nouveau chalenge pour moi : Créer un raccourci sur le bureau pour ouvrir le dernier fichier d’un dossier déterminé

**deedolith** · 27/02/2025, 10h40

Pour poster un code source, utilises la balise Code (le bouton # dans l'éditeur).

Tu copies / colles ton code,
Tu le sélectionne,
Tu click sur le bouton.

Il y a également un bouton pour envoyer des pièces jointes (celui qui ressemble à un trombone),
pour peut que ton fichier ne contienne pas de données sensibles.

**rpolpere** · 27/02/2025, 11h05

Envoyé par deedolith

Pour poster un code source, utilises la balise Code (le bouton # dans l'éditeur).

Tu copies / colles ton code,
Tu le sélectionne,
Tu click sur le bouton.

Il y a également un bouton pour envoyer des pièces jointes (celui qui ressemble à un trombone),
pour peut que ton fichier ne contienne pas de données sensibles.

Journalier_20250227_094205.xlsm

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
 
Private Sub ENREGISTRER_Click()
 
 
    Dim cheminDossier As String
    Dim nomFichier As String
    Dim cheminComplet As String
 
        ' Définir le dossier où enregistrer le fichier
    cheminDossier = "C:\Users\Roland Polonyi\Dropbox\TJAP\Centrale\Vérifications\"
 
        ' Vérifier si le dossier se termine par "\"
    If Right(cheminDossier, 1) <> "\" Then
        cheminDossier = cheminDossier & "\"
    End If
 
 
        ' Générer le nom du fichier basé sur la date et l'heure
    nomFichier = "Journalier_" & Format(Now, "yyyyMMdd_HHmmss") & ".xlsm"
 
        ' Vérifier si un classeur est actif
    If ActiveWorkbook Is Nothing Then
        MsgBox "Aucun classeur actif à enregistrer.", vbExclamation, "Erreur"
        Exit Sub
 
    End If
 
 
        ' Définir le chemin complet du fichier
    cheminComplet = cheminDossier & nomFichier
 
 
    ' Vérifier si le classeur contient des macros et ajuster l'extension
        Dim formatFichier As Long
        If ActiveWorkbook.HasVBProject Then
         formatFichier = xlOpenXMLWorkbookMacroEnabled ' Format XLSM (52)
    Else
        formatFichier = xlOpenXMLWorkbook ' Format XLSX (51)
        cheminComplet = Replace(cheminComplet, ".xlsm", ".xlsx") ' Ajuster le nom
    End If
 
    ' Enregistrer avec gestion d'erreur
         On Error Resume Next
         ActiveWorkbook.SaveAs Filename:=cheminComplet, FileFormat:=formatFichier
         If Err.Number <> 0 Then
 
        MsgBox "Erreur lors de l'enregistrement : " & Err.Description, vbCritical, "Erreur"
        Exit Sub
 
    End If
    On Error GoTo 0 ' Réactiver les erreurs normales
 
 
    ' Message de confirmation
    MsgBox "Fichier enregistré avec succès : " & nomFichier, vbInformation, "Succès"
 
End Sub

Merci pour ta réponse

**deedolith** · 27/02/2025, 14h13

Comme je l'ai indiqué plus tôt, passe par FSO pour construire tes chemins, ca t'éviteras les tests de vérification de la présence de l'antislash final.
Le type du format de fichier n'est pas Long, mais Excel.XlFileFormat.
Tu peux omettre l'extension du fichier, la fonction SaveAs le prendra en charge pour peut que le format lui soit fourni.
Revoit ton gestionnaire d'erreur, on fait du VBA, pas du VBScript.

PS:
Quelques liens:
Principe de Responsabilité Unique: https://en.wikipedia.org/wiki/Single...lity_principle
Loi de Demeter: https://en.wikipedia.org/wiki/Law_of_Demeter
Respecter ces 2 principe améliorera la qualité de tes futur développements.

**rpolpere** · 27/02/2025, 14h24

Envoyé par deedolith

Comme je l'ai indiqué plus tôt, passe par FSO pour construire tes chemins, ca t'éviteras les tests de vérification de la présence de l'antislash final.
Le type du format de fichier n'est pas Long, mais Excel.XlFileFormat.
Tu peux omettre l'extension du fichier, la fonction SaveAs le prendra en charge pour peut que le format lui soit fourni.
Revoit ton gestionnaire d'erreur, on fait du VBA, pas du VBScript.

PS:
Quelques liens:
Principe de Responsabilité Unique: https://en.wikipedia.org/wiki/Single...lity_principle
Loi de Demeter: https://en.wikipedia.org/wiki/Law_of_Demeter
Respecter ces 2 principe améliorera la qualité de tes futur développements.

Merci pour ta réponse mais tout est résolu ( Publication précédente)

Mais Nouveau chalenge pour moi : Créer un raccourci sur le bureau pour ouvrir le dernier fichier d’un dossier déterminé

Macro pour enregistrement d'un classeur et numérotation en fonction de date et heure [XL-365]

Macros et VBA Excel

Discussions similaires

Partager

Partager