Macro d´enregistrement "Error 1004"

[Ben&Bee]

Bonjour Forum

UNe macro d´enregistrementme pose problème.

Lorsque j´ouvre un nouveau fichier et que je l´enregistre à travers cette macro, tout se passe bien. LEs problèmens survienent lorsque j´essaie d´enregistrer une seconde fois ce meem fichier à travers ma macro. La fenêtre 'Voulez-vous remplacer le fichier existant?' apparaît:

- SI je clique 'Oui' Aucun Pb
- SI je clique 'Non' ou 'Annuler', le programme VBA s´ouvre en précisant 'Erreur 1004
Erreur ds la methode de SaveAs de l´objet _Workbook '

Quelqu´un a une idée....

Voici la macro en question

Private Sub DatosComerciales_Click()

Dim Essai As Range
Dim Liste1 As String
Dim Temp As String

For Each Essai In Range('Liste1')
If Essai.Value = '' Then
texte = texte & vbNewLine & Prueba.Offset(0, -1).Value
End If
Next Essai

If texte <> '' Then
MsgBox texte, vbCritical, 'Cellule à remplir :'
Else

Temp = 'X:/Fichier/' & Range('F30').Value & '/' & Range('F32').Value
ActiveWorkbook.SaveAs Filename:=Temp, FileFormat:=xlNormal, Password:='', WriteResPassword:='',
ReadOnlyRecommended:=False, CreateBackup:=False

End If

End Sub

Ben&BEe

P.S:
En fait je crois qu&acute;il faut que je programme chacune des actions
Il doit être seulement programmé ds le cas d une réponse 'OUi' ' à 'voulez vous rempacer le fichier existant'.. Il ne sait pas quoi faire ds les cas d&acute;un 'Non' ou 'Annuler'. faudrait que je mette un exit sub ds ces cas ou qqch comme ca
Mais je sais pas l&acute;écrire ca en VBA.

 

[PascalXLD]

Bonjour

essaies simplement

Private Sub DatosComerciales_Click()

Dim Essai As Range
Dim Liste1 As String
Dim Temp As String

For Each Essai In Range('Liste1')
If Essai.Value = '' Then
texte = texte & vbNewLine & Prueba.Offset(0, -1).Value
End If
Next Essai

on error goto fin
If texte <> '' Then
MsgBox texte, vbCritical, 'Cellule à remplir :'
Else

Temp = 'X:/Fichier/' & Range('F30').Value & '/' & Range('F32').Value
ActiveWorkbook.SaveAs Filename:=Temp, FileFormat:=xlNormal, Password:='', WriteResPassword:='',
ReadOnlyRecommended:=False, CreateBackup:=False

End If

fin:
End Sub

je ne sais pas si cela te suffira

 

[Ben&Bee]

Tout Simplement..
Ca marche très Bien


Merci PAscal