B
Ben&Bee
Guest
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´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´un 'Non' ou 'Annuler'. faudrait que je mette un exit sub ds ces cas ou qqch comme ca
Mais je sais pas l´écrire ca en VBA.
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´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´un 'Non' ou 'Annuler'. faudrait que je mette un exit sub ds ces cas ou qqch comme ca
Mais je sais pas l´écrire ca en VBA.