MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

T

thebenoit59

XLDnaute Accro

• 19 Mai 2016

• #16

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Peux-tu poster une prise d'image de l'erreur avec la ligne surlignée en jaune ?
As-tu modifié quelque chose dans le texte ?

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 19 Mai 2016

• #17

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Option Explicit

Sub Sauvegarde()
Dim c
Dim Repertoire As String, Sep As String, Fichier As String
Dim wBase As Workbook, fBase As Worksheet
Dim wDestination As Workbook, fDestination As Worksheet

If [b4] = "" Then MsgBox "Saisir un nom!": [b4].Select: Exit Sub
If [a12] = "" Then MsgBox "Choisir un produit!": [b12].Select: Exit Sub

Repertoire = ThisWorkbook.Path
Sep = Application.PathSeparator
Set wBase = ThisWorkbook
Set fBase = wBase.Sheets("Formulaire")

fBase.Copy

Set wDestination = ActiveWorkbook
Set fDestination = wDestination.Sheets("Formulaire")

With fDestination
For Each c In [a1:e21]: c.Value = c.Value: Next c
.Shapes("monbouton").Delete
.UsedRange.Validation.Delete
.[a1].Select
Fichier = .[a1] & " " & Format(.[b1], "0000") & " " & .[e1] & " " & .[f1] & " " & .[b4]
End With

With wDestination
.SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier ' ça plante ici
MsgBox Fichier & " sauvegardé(e)"
.Close
End With

With fBase
.[b1] = .[b1] + 1
.Range("B4,A12:A20,C12:C20").ClearContents
End With

wBase.Save
End Sub

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 19 Mai 2016

• #18

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Et en ajoutant l'extension de fichier :

Code:

 .SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx"

J'aurai préféré une prise d'image pour voir l'erreur en elle-même ..

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 19 Mai 2016

• #19

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Re

Toujours erreur sur cette ligne;

.SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx"

à+
Merci
Christian

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 19 Mai 2016

• #20

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Bonjour,

Je propose ".xlsm" au lieu de ".xlsx"


Je cherche

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 19 Mai 2016

• #21

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Re, le forum, thebenoit59, jecherche,

Merci pour ton aide, jecherche, mais erreur "nom d'extension fichier"...

à+

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 19 Mai 2016

• #22

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Et ton dossier s'appelle toujours bien Archives ?

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 19 Mai 2016

• #23

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Bonjour,

Voir si ça convient :

Code:

With wDestination
.SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx", _
       FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
MsgBox Fichier & " sauvegardé(e)"
.Close
End With

Jecherche

 

Dernière modification par un modérateur: 19 Mai 2016

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 19 Mai 2016

• #24

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Re, le forum, thebenoit59, jecherche,

Mes excuses, j'ai du vous quitter en urgences, j'avais un rdv que j'ai failli oublier....

thebenoit59, oui mon dossier s'appelle toujours Archives, sous le dossier Factures et Devis.

jecherche, ça fonctionne, mais ça enregistre un fichier Archives dans le dossier Factures et Devis ???

Merci pour votre aide.

Bien à vous.
Christian

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 19 Mai 2016

• #25

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Si ça fonctionne avec le code de JeCherche, modifie juste ainsi :

Code:

With wDestination
.SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx", _
       FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
MsgBox Fichier & " sauvegardé(e)"
.Close
End With

Il manquait juste un séparateur donc tu avais Archives suivi de ton nom de fichier.

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 19 Mai 2016

• #26

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

re,

thebenoit59, merci pour ton aide,

non ça plante sur ces lignes;

.SaveAs Filename:=Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

La méthode "SaveAS de l'objet" Workbook à échoué

à vous lire,
Christian

 

Dernière édition: 19 Mai 2016

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 19 Mai 2016

• #27

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Peux-tu ajouter cette partie, juste avant le SaveAs :

Code:

 Msgbox Repertoire & Sep & "Archives" & Sep & Fichier & ".xlsx"

Et transmettre une prise d'images du résultat ?

Ton dossier Archives ne comporte pas d'espace au moins ?

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 19 Mai 2016

• #28

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Re,

le chemin dans la MsgBox est le bon

Comment faire une prise d'image sous VBA ?
voir fichier

Christian

 

Pièces jointes

• Factures et Devis.zip

  20 KB · Affichages: 15
• Factures et Devis.zip

  20 KB · Affichages: 18

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Mai 2016

• #29

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Bonjour à tous,

Christian : il me semble que Fichier n'est pas défini

A+ à tous

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 19 Mai 2016

• #30

Re : MsgBox, dans macro, qui ne m'affiche pas le message souhaité...

Bonjour,

Je n'avais pas saisi qu'il y a le sous-dossier "Archives" dans lequel les fichiers se sauvegardent. 😱

Voir la version en pièce jointe ...

Espérant le tout conforme ...


Jecherche

 

Vote positif 0 Vote négatif