O
Ovide
Guest
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
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