Titre du sujet : Re: copier coller dans un même classeur par ocealimer le 16/04/2013 19:35:41
re MTH, encore je te sollicite :
Sub SauvFeuille()
'Chemin = celui du fichier, à adapter (dois-je mettre ici le dossier où seront sauvegarder mes feuilles ?
'Nom= "FicInterv_xxx" avec xxx= n° intervention, à adapter
Dim Chemin As String, NomFic As String
Chemin = ThisWorkbook.Path & ""
NomFic = Format(Sheets("DI").Range("B6"), "000000")
If NomFic <> "" Then
'crée une copie de la feuille active
ActiveSheet.Copy
'Source Silkyroad, permet de retirer le code VBA dans le classeur sauvegardé
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeN).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Bloque les fenêtre d'alerte de l'application
Application.DisplayAlerts = False
'Format de fichier 56= Excel 97-2003
ActiveWorkbook.SaveAs Chemin & NomFic, FileFormat:=56
'Rétablit les fenêtres d'alerte
Application.DisplayAlerts = True
'Ferme le fichier Actif (qui est le fichier de sauvegarde)
ActiveWorkbook.Close
End If
End Sub
par contre pour la fonction remise à blanc dans le précédent code , b6 à b13 ça ne fonctionne pas tout s'enregistre sur ma feuille rapport sans problème mais quand à ma feuille di le numéro s'incrémente parfaitement mais les données reste inscrite
merci encore j'en demande beaucoup
|