Discussion :

[liop49]

Bonjour,


Voici ma ligne de code :

Code :

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

    ActiveWorkbook.SaveAs Filename:=Dossier & fichier

Le problème est lorsque le fichier existe déjà : une fenêtre s'ouvre et dde à l'utilisateur si on veut remplacer le fichier existant.

En répondant "non" ou "annuler", il y a un message d'erreur en précisant que la méthode saveas a échoué

Moi j'aurai voulu qu'il arrête la macro simplement.

Est ce que qq1 peux m'aider

Merci d'avance


Liop à poil sur ce coup

[pgz]

Bonjour.

Si j'ai bien compris ton pb et ce que tu demandes

Code :

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

1
2
3
 On Error resume next
    ActiveWorkbook.SaveAs Filename:=Dossier & fichier
On Error goto 0

Cordialement,

PGZ

[liop49]

En plus de bien comprendre, tu es un Dieux

Merci pour ton aide


Liop habillé du code d'un chef

[liop49]

J'ai été trop vite car la solution entraine une petite erreur

voici le code

Code :

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

1
2
3
4
5
6
7
    On Error Resume Next
    ActiveWorkbook.SaveAs Filename:=Dossier & fichier
    On Error GoTo 0
    ActiveWorkbook.Close False
 
 
    MsgBox ("Le fichier " & fichier & ".xls a bien été enregistré dans le répertoire" & vbCrLf & Dossier)

Du coup, lorsque l'utilisateur annule ou dit non le code continue et mon msgBox s'affiche quand même alors qu'il faudrait un arrêt de la macro

Y a-t-il une solution ?

Merci

Liop

[Krovax]

essaye ca

Code :

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

1
2
3
4
5
6
7
8
9
10
 On Error GoTo fin
    ActiveWorkbook.SaveAs Filename:=Dossier & fichier
    On Error GoTo 0
    ActiveWorkbook.Close False
 
 
    MsgBox ("Le fichier " & fichier & ".xls a bien été enregistré dans le répertoire" & vbCrLf & Dossier)
 
fin:
end sub

Pour plus d'info fait des recherche sur la "Gestion d'erreure"
(perso j'utilise ce guide pour ce genre de chose un peu plus poussé)

[casefayere]

Bonjour,
ci-dessous un bout de code qui peut premettre de valider ton fichier sur n'importe quel ordinateur et vérifier l'existence du fichier, ça pourra te donner des idées :

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
racine = Workbooks(ActiveWorkbook.Name).Path
 
Dir Workbooks(ActiveWorkbook.Name).Path
ChDir racine 'se place sur le repertoire du programme
 
If (verif = Dir(racine & "\" & nomdossier & "\", vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire nomdossier
    repert = racine & "\" & nomdossier
    Else
    MkDir racine & "\" & nomdossier 'on le crée s'il n'existe pas
    repert = racine & "\" & nomdossier
End If
ChDir repert
if (verif=dir(racine & "\" & nomdossier\ActiveWorkbook.name)) = vbempty then
exit sub 'ou ce que tu veux
else
ActiveWorkbook.SaveAs Filename:=Dossier & fichier

[liop49]

Krovax
Après ton 1er "fin", j'ai une erreur dès l'écriture : il me dit qu'il attend un Next


casefayere
Tu me parles de quoi exactement ?

[casefayere]

re,

Simplement, c'est une partie de code à adapter, en cas de besoin, pour enregistrer ton fichier sur n'importe quel ordinateur, mais la fin de ce code doit pouvoir résoudre tes problèmes immédiats

Code :

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

1
2
3
4
5
if (verif=dir(nomdossier\ActiveWorkbook.name)) = vbempty then
exit sub 'ou ce que tu veux, msgbox ou autre
else
ActiveWorkbook.SaveAs Filename:=Dossier & fichier
end if

[liop49]

je suis un chef

enfin grâce à vos conseils et la bidouille

J'ai contourné le pb en vérifiant la présence du fichier (merci casefayere) et en annulant les messages d'alertes.
Voici le 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
18
19
20
21
22
23
24
25
26
27
28
nomEnregistrement = Dossier & fichier & ".xls"
   ' on vérifie que le fichier n'existe pas
    If Dir(nomEnregistrement) = "" Then 'cas où le fichier n'existe pas
        ActiveWorkbook.SaveAs Filename:=Dossier & fichier
        MsgBox ("Le fichier " & fichier & ".xls a bien été enregistré dans le répertoire" & vbCrLf & Dossier)
    Else
        Msg = ("Le fichier " & fichier & ".xls  existe déjà !" & vbCrLf & vbCrLf & "Voulez-vous le remplacer ?")
        Style = vbYesNo + vbInformation    ' Définit les boutons.
        Title = "Demande"    ' Définit le titre.
 
        Response = MsgBox(Msg, Style, Title) ' Affiche le message.
        If Response = vbYes Then
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Filename:=Dossier & fichier
            Application.DisplayAlerts = True
            MsgBox ("Le fichier " & fichier & ".xls a bien été enregistré dans le répertoire" & vbCrLf & Dossier)
            ActiveWorkbook.Close False
            Sheets("Fonctionnement").Select
            Range("A1").Select
        Else
            MsgBox ("Le fichier " & fichier & ".xls n'a pas été enregistré dans le répertoire" & vbCrLf & Dossier)
            ActiveWorkbook.Close False
            Sheets("Fonctionnement").Select
            Range("A1").Select
 
        End If
 
    End If