EXCEL ET VBA

**julie13300** · 05/05/2018, 15h59

Bonjour

J'ai un classeur excel avec du code VBA qui fonctionnait très bien jusqu'à ces derniers jours, lorsque je veux enregistrer et archiver mon fichier j'ai un message qui me demande de supprimer les macros Visual Basic. Bien entendu si je le fais ça ne s'archive pas et ça ne remet pas le fichier vierge.

Je vais essayer de vous mettre tout mon code et ma capture d'écran avec le message

merci d'avance pour votre aide

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
59
60
61
62
 
Option Explicit
 
Dim chemin As String
Dim PathSep As String
Dim nom As String
 
Sub Archivage_Devis()
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8].Value & "-" & Year([E3]) & "-" & MonthName(Format([E3], "mm")) & "-" & Format([K5], "0000") & ".xlsm"
'---------------------Création du fichier temporaire
    If [K5] = "" Then MsgBox "Veuillez saisir en cellule K5 le numéro du devis", , "Création abandonnée !": Exit Sub
 
    If MsgBox(" Si le devis est entièrement édité, veuillez confirmer" & vbCrLf & vbCrLf & _
        " l'archivage du devis n° " & nom, vbYesNo, " Veuillez confirmer pour poursuivre,") = vbYes Then
        Application.EnableEvents = False
        Application.DisplayAlerts = False   '-------Annulation des alertes
'---------------------Nom du fichier à créer extension xls
        ActiveSheet.Shapes.Range(Array("Bouton1")).Visible = False
       ' ActiveSheet.PrintOut copies:=1
        Sheets("Devis").Copy
        ActiveWorkbook.SaveAs chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:=52
        ActiveWindow.Close
'---------------------Après l'archivage le fichier se réinitialise
        ActiveSheet.Shapes.Range(Array("Bouton1")).Visible = True
        Sheets("Devis").Range("E3,E4,A13:G17,A19:F22,G27").ClearContents
        Sheets("Devis").Range("K5").Value = Sheets("Devis").Range("K5").Value + 1
        Application.DisplayAlerts = True   '-------rétablissement des alertes
        Application.EnableEvents = True
    End If
    [K5].Select
    ActiveWorkbook.Save
End Sub
 
Sub Archivage_Factures()
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8].Value & "-" & Year([E3]) & "-" & MonthName(Format([E3], "mm")) & "-" & Format([K5], "0000") & ".xlsm"
'---------------------Création du fichier temporaire
    If [K5] = "" Then MsgBox "Veuillez saisir en cellule K5 le numéro de la facture", , "Création abandonnée !": Exit Sub
 
    If MsgBox(" Si la facture est entièrement éditée, veuillez confirmer" & vbCrLf & vbCrLf & _
                " l'archivage de la facture n° " & nom, vbYesNo, " Veuillez confirmer pour poursuivre,") = vbYes Then
       Application.EnableEvents = False
       Application.DisplayAlerts = False   '-------Annulation des alertes
'---------------------Nom du fichier à créer extension xls
       Sheets("Facture").Shapes.Range(Array("Bouton2")).Visible = False
     ' ActiveSheet.PrintOut copies:=1
       Sheets("Facture").Copy
       ActiveWorkbook.SaveAs chemin & PathSep & "Archives Factures" & PathSep & nom, FileFormat:=52
       ActiveWindow.Close
'---------------------Après l'archivage le fichier se réinitialise
        Sheets("Facture").Shapes.Range(Array("Bouton2")).Visible = True
        Sheets("Facture").Range("E3,E4,A14:G21,F24:G24").ClearContents
        Sheets("Facture").Range("K5").Value = Sheets("Facture").Range("K5").Value + 1
        Application.DisplayAlerts = True   '-------rétablissement des alertes
        Application.EnableEvents = True
    End If
    [K5].Select
    ActiveWorkbook.Save
End Sub

**kiki29** · 05/05/2018, 16h30

Salut, à lire

**julie13300** · 05/05/2018, 16h52

Envoyé par kiki29

Salut, à lire

Bonsoir

je te remercie mais en modifiant l'extension dans mon code ça ne fonctionne pas

**kiki29** · 05/05/2018, 17h07

Re, as-tu regarder le format de sauvegarde par défaut ? Quel est le contenu de ta chaine contenant le chemin complet de ta sauvegarde et sa syntaxe ?

à voir également

**julie13300** · 05/05/2018, 17h17

Envoyé par kiki29

Re, as-tu regarder le format de sauvegarde par défaut ? Quel est le contenu de ta chaine contenant le chemin complet de ta sauvegarde et sa syntaxe ?

à voir également

Si je fais un fichier excel normal il s'enregistre en xlsx

avec une macro j'enregistre en xlsm

Ce classeur est donc en xlsm

et ma ligne de sauvegarde dans mon code est :

pour les devis :

Code :

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

1
2
3
4
Sub Archivage_Devis()
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8].Value & "-" & Year([E3]) & "-" & MonthName(Format([E3], "mm")) & "-" & Format([K5], "0000") & ".xlsm"

pour les factures :

Code :

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

1
2
3
4
Sub Archivage_Factures()
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8].Value & "-" & Year([E3]) & "-" & MonthName(Format([E3], "mm")) & "-" & Format([K5], "0000") & ".xlsm"

Je sais pas trop si c'est cela que tu me demandes

**kiki29** · 05/05/2018, 17h20

Re, regarde ce qui est souligné en rouge plus haut dans le post 2, sinon un debug.print la_chaine pour voir la_chaine dans la fenêtre exécution.

**julie13300** · 05/05/2018, 17h27

Envoyé par kiki29

Re, regarde ce qui est souligné en rouge plus haut dans le post 2, sinon un debug.print la_chaine pour voir la_chaine

oui j'ai vu ce qui était surligné en rouge, mais je travaille sur un mac, je n'ai pas exactement cela mais j'ai enregistré mon fichier dans le format qui était sur ton post 2 puis j'ai mis dans ma ligne de code le même format, mais ça ne fonctionne pas

alors pour le debug je sais pas faire du tout

**kiki29** · 05/05/2018, 19h25

Re, qqch dans le genre :

Code :

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

1
2
3
4
5
6
.....
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8].Value & "-" & Year([E3]) & "-" & MonthName(Format([E3], "mm")) & "-" & Format([K5], "0000") & ".xlsm"
    Debug.Print nom
.....

**RyuAutodidacte** · 05/05/2018, 23h35

Bonsoir,

Et si tu essayais de cette manière :

Code :

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

1
2
ActiveWorkbook.SaveAs chemin & PathSep & "Archives Factures" & PathSep & nom, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled

Vérifie quand même que ton chemin soit correcte

genre :

Code :

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

"/Users/UserName/Desktop/DeveloppezCom/… …/Monfichier.xlsm"

**julie13300** · 06/05/2018, 12h19

Envoyé par kiki29

Re, qqch dans le genre :

Code :

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

1
2
3
4
5
6
.....
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8].Value & "-" & Year([E3]) & "-" & MonthName(Format([E3], "mm")) & "-" & Format([K5], "0000") & ".xlsm"
    Debug.Print nom
.....

Bonjour j'ai mis debug.print nom
et ca me donne ça : Nom : Capture d’écran 2018-05-06 à 12.03.47.png
Affichages : 422
Taille : 49,7 Ko

**julie13300** · 06/05/2018, 12h29

Envoyé par RyuAutodidacte

Bonsoir,

Et si tu essayais de cette manière :

Code :

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

1
2
ActiveWorkbook.SaveAs chemin & PathSep & "Archives Factures" & PathSep & nom, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled

Vérifie quand même que ton chemin soit correcte

genre :

Code :

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

"/Users/UserName/Desktop/DeveloppezCom/… …/Monfichier.xlsm"

Bonjour,

J'ai testé ton morceau de code mais ça ne fonctionne pas du tout

Alors par contre sur ce bout de code : j'ai changé xlsm par xls

Code :

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

1
2
3
4
Sub Archivage_Devis()
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8].Value & "-" & Year([E3]) & "-" & MonthName(Format([E3], "mm")) & "-" & Format([K5], "0000") & ".xls"

et là j'ai toujours le message supprimer les macros et enregistrer donc je dis oui mais tout s'enregistre bien ça me remet mon original à vide, quand je vais dans le dossier archives il s'y trouve bien, quand je veux l'ouvrir j'ai le message : (pièces jointe) je dis oui et là ça s'ouvre correctement. Donc le problème c'est d'avoir tous ces messages d'erreurs
Avec l'extension xlsm (qui normalement est la bonne quand on a une macro) il s'archive bien aussi mais je ne peux pas du tout ouvrir le fichier.

**RyuAutodidacte** · 06/05/2018, 13h25

Re,

Les dernières mises à jour avec Excel ont elles été faites ?

As tu fais les modifications pour les 2 lignes concernées ?

Code :

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

ActiveWorkbook.SaveAs chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:=52

Devient :

Code :

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

1
2
3
4
Debug.Print chemin & PathSep & "Archives Devis" & PathSep & nom
 
ActiveWorkbook.SaveAs chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled

---------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------

Code :

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

ActiveWorkbook.SaveAs chemin & PathSep & "Archives Factures" & PathSep & nom, FileFormat:=52

Devient :

Code :

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

1
2
3
4
Debug.Print chemin & PathSep & "Archives Factures" & PathSep & nom
 
ActiveWorkbook.SaveAs chemin & PathSep & "Archives Factures" & PathSep & nom, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled

Faire le code en pas à pas (avec les touches cmd + shift + i) et mettre en commentaire les lignes avec ActiveWorkbook.SaveAs,
qu'indique la fenêtre d'Exécution ??

Le message que tu indiques semble montrer en fait que tu as enregistré le fichier avec l'extension qui ne lui correspond pas, un peu comme si tu avais .psd au lieu de .txt, sauf que là, cela concerne les formats d'Excel
Voit en changeant l'extension manuellement sur ledit fichier en .xlsx ou en .xlsm et essaie de l'ouvrir à chaque changement, si il s'ouvre sans messages c'est que tu auras trouvé la bonne extension.
Reste à voir ce qui ne va pas dans le code …

Edit : mise à jour du message

**julie13300** · 06/05/2018, 14h45

Envoyé par RyuAutodidacte

Re,[...]

Re

Alors après plusieurs changements je vais t'expliquer ce que j'ai eu

- En mettant ton code, en remettant l'extension xlsm, quand je clique sur le bouton archivage, ça me réinitialise le devis client que je viens de faire et ça me laisse sur le modèle l'origine tout ce que j'ai mis dans mon devis ------ donc c'est pas bon. Si je ferme tout et que je retourne chercher le devis client il est vide.

- J'ai remis mon code d'origine et j'ai changé l'extension au lieu de xls j'ai mis xlsx, là quand j'archive j'ai toujours le premier message à savoir "supprimer les macros" ce que je fais et là mon fichier origine est bien réinitialiser. Quand je vais dans le dossier archive et que j'ouvre je n'ai plus le message qui me demande si oui ou non je veux ouvrir le fichier car l'extension n'est pas bonne.

J'ai donc plus qu'un seul message d'alerte.

je te mets en copie ce que ça m'a mis dans la fenêtre d'exécution
Celle-ci avec ton code :
GOURMANDIT RECEPTION-2018-mai-0015.xls
/Users/Jma/Desktop/teddy/Devis/Archives Devis/GOURMANDIT RECEPTION-2018-mai-0015.xls

Celle-ci avec mon code mais avec une extension différente
DINOGO-2018-mai-0015.xlsx
/Users/Jma/Desktop/teddy/Devis/Archives Devis/DINOGO-2018-mai-0015.xlsx

Je précise que j'ai testé ton code avec les trois extensions xls - xlsm et xlsx et qu'avec les trois ça réinitialise le devis client mais pas le devis modèle

Ce que je ne comprends pas c'est que logiquement l'extension avec une macro est bien xlsm

Pour ma version d'excel j'ai 2016

j'espère que mes explications seront claires

**RyuAutodidacte** · 06/05/2018, 15h09

puis je avoir ton fichier d'origine en enlevant les données confidentielles et en les remplaçant par des fausses donnée en xlsx en remettant les codes dans le post
(je remettrais les codes et enregistrerais le fichier d'origine en xlsm pour faire les test)

Pour archive devis le fichier est en xlsx dans le résultat que tu me donnes, alors qu'on lui dit d'enregistrer en xlsm d'ou ton dernier message d'erreur dans ton post précédent

Pour Archive devis on devrait avoir ceci (pour fichier .xlsx):

Code :

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

1
2
3
4
Debug.Print chemin & PathSep & "Archives Devis" & PathSep & nom
 
ActiveWorkbook.SaveAs chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:= _
        xlOpenXMLWorkbook

le résultat que tu m'as donné : /Users/Jma/Desktop/teddy/Devis/Archives Devis/DINOGO-2018-mai-0015.xlsx

**RyuAutodidacte** · 06/05/2018, 15h19

je suis allé vérifié sur le site d'un Mac user connu qui utilise les numéro pour fileformat
et le n° pour le xlsm serait 53 si j'ai bien compris (pour ma part je préfère utilisé la version texte, que d'ailleurs tu peux retrouver en utilisant l'enregistreur de macro)
le lien RondeBruin

**julie13300** · 06/05/2018, 15h24

Envoyé par RyuAutodidacte

puis je avoir ton fichier d'origine en enlevant les données confidentielles et en les remplaçant par des fausses donnée en xlsx en remettant les codes dans le post
(je remettrais les codes et enregistrerais le fichier d'origine en xlsm pour faire les test)

Pour archive devis le fichier est en xlsx dans le résultat que tu me donnes, alors qu'on lui dit d'enregistrer en xlsm d'ou ton dernier message d'erreur dans ton post précédent

Pour Archive devis on devrait avoir ceci (pour fichier .xlsx):

Code :

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

1
2
3
4
Debug.Print chemin & PathSep & "Archives Devis" & PathSep & nom
 
ActiveWorkbook.SaveAs chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:= _
        xlOpenXMLWorkbook

le résultat que tu m'as donné : /Users/Jma/Desktop/teddy/Devis/Archives Devis/DINOGO-2018-mai-0015.xlsx

non non je l'avais remis en xlsx
je t'envoie le fichier d'origine

**RyuAutodidacte** · 06/05/2018, 15h33

A tout hasard puisque j'y pense ce ne serait pas ceci qui te manques : CreateBackup

Code :

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

 ActiveWorkbook.SaveAs chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:=52, CreateBackup:=True

C.F. ICI

**julie13300** · 06/05/2018, 15h50

Envoyé par RyuAutodidacte

A tout hasard puisque j'y pense ce ne serait pas ceci qui te manques : CreateBackup

Code :

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

 ActiveWorkbook.SaveAs chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:=52, CreateBackup:=True

C.F. ICI

non car le fichier de sauvegarde est bien là et les devis ou factures que je fais y vont bien, c'est ce problème d'extension qui fait que je reçois ces messages d'alertes

j'ai quand même testé mais non c'est pas bon dans le code ça reste en rouge

**RyuAutodidacte** · 06/05/2018, 17h18

Bon j'ai pas pu tester comme je voulais car je me suis retrouver au final toujours avec ce message :

Nom : Capture d’écran 2018-05-06 à 17.09.43.png
Affichages : 373
Taille : 25,3 Ko

Nom : Capture d’écran 2018-05-06 à 17.09.43.png
Affichages : 373
Taille : 25,3 Ko

C'est la 1ère fois que je rencontre ce type de message

Je suis avec la dernière mise à jour Excel Mac 2016 version 16.12

je vais essayer de trouver à quoi cela correspond (ou si quelqu'un peut nous éclairer sur ce type de message …)