Saveas : retour "non" sur 2ème fichier KO

[Ovide]

Bonjour à tous,

Le problème : 2 saveas consécutifs sur 2 fichiers. Si au 1er on répond non à la question 'voulez-vous enregistrer...' tout se passe bien, par contre si l'on fait de même au 2ème fichier, plantage systématique : 'l014 : la méthode saveas a échoué' comme s'il n'y avait pas de 'on error go to'. Notez bien que si l'on répond oui au 1er saveas, le non est accepté au 2ème. La macro ci-après.

Merci d'avance pour vos idées.

Ovide



Sub macro11()
année_jour = Year(Date)
mois_jour = Month(Date)
jour_jour = Day(Date)
date_jour = année_jour & '-' & mois_jour & '-' & jour_jour
nom_nouveau_fichier = 'C:\\SAR\\Extraction composants SAR Endevor au ' & date_jour & '.xls'
On Error GoTo suite
With ActiveWorkbook
.SaveAs Filename:=nom_nouveau_fichier, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
End With

suite:

nom_fich_histo = 'Histo extract endevor CCID au 2005-12-14'
nom_feuil_histo = 'extract endevor ccid'
Workbooks(nom_fich_histo).Sheets(nom_feuil_histo).Activate

année_jour = Year(Date)
mois_jour = Month(Date)
jour_jour = Day(Date)
date_jour = année_jour & '-' & mois_jour & '-' & jour_jour
nom_nouveau_fichier = 'C:\\SAR\\Histo extract endevor CCID au ' & date_jour & '.xls'
On Error GoTo fin
With ActiveWorkbook
.SaveAs Filename:=nom_nouveau_fichier, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
End With

fin:

End Sub

 

[Zon]

Salut,

je poste pour la 3 eme fois :

A+++

 

[Zon]

re,

à priori le code VBA passe pas courielles moi...

A+++

 

[Ovide]

Excuse-moi, Zon, j'avais laissé tomber faute de réponse dimanche...

J'ai relancé la macro11 à l'instant et même punition !

Je réponds 'non' au 1er, idem au 2nd et ça plante !

Merci pour ton aide,
Ovide

Sub macro11()
année_jour = Year(Date)
mois_jour = Month(Date)
jour_jour = Day(Date)
date_jour = année_jour & '-' & mois_jour & '-' & jour_jour
nom_nouveau_fichier = 'C:\\SAR\\Extraction composants SAR Endevor au ' & date_jour & '.xls'
On Error GoTo suite
With ActiveWorkbook
.SaveAs Filename:=nom_nouveau_fichier, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
End With

suite:

nom_fich_histo = 'Histo extract endevor CCID au 2005-12-21'
nom_feuil_histo = 'extract endevor ccid'
Workbooks(nom_fich_histo).Sheets(nom_feuil_histo).Activate

année_jour = Year(Date)
mois_jour = Month(Date)
jour_jour = Day(Date)
date_jour = année_jour & '-' & mois_jour & '-' & jour_jour
nom_nouveau_fichier = 'C:\\SAR\\Histo extract endevor CCID au ' & date_jour & '.xls'
On Error GoTo fin
With ActiveWorkbook
.SaveAs Filename:=nom_nouveau_fichier, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
End With

fin:


End Sub

 

[Zon]

Salut,

l'astuce est de passer par un seul on error et tester 3 fois le numéro d'erreur . Je t'ai mis un fichier joint puisque sur ce fil impossible pour moi de faire avaler du code VBA au serveur (erreur 5000..., suis-je seul ? David est-il au courant ?)

A+++ [file name=Ovide.zip size=5123]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ovide.zip[/file]

 

[Ovide]

Bravo pur l'astuce, ça marche !

quand même un peu tordu ce langage,
on est loin du COBOL, faut s'y faire...
Je me fais les dents !

Merci encore,
Ovide