format de fichier pour sauvegarde

justine62000

XLDnaute Occasionnel
bonjour
je dois faire une sauvegarde d'une feuille de classeur comportant 5 feuilles au format xls
par contre j'ai ce code pour interdire les doublon sur une plage donnée qui me produit un message d'erreur

code pour interdire doublon
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("J20:J30"), Target) Is Nothing Then Exit Sub
If Application.WorksheetFunction.CountIf(Range("J20:J30"), Target) > 1 Then
MsgBox "cette personne figure deja dans le planning"
Target.ClearContents
End If
End Sub
comment faire pour enregistrer ma feuille en xls mais sans ce code dans le nouveau classeur

code pour sauvegarde classeur


Sheets(Array("PLANNING IMPRESSION", "mise a jour planning", "liste du personel")) _
.Copy
ChDir "C:\archive planning"
ActiveWorkbook.SaveAs chemin & [b2] & " " & [d2] & " " & "du" & " " & Format([u2], "ddd dd-mm-yyyy") & "xls"


ActiveWorkbook.Close
Call Macro100

Call Macro8
Call Macro1
ActiveWorkbook.Save

je voudrais eviter d'enregistrer le classeur en xmls'avec macro)

y a t il une solution

merci
 

Discussions similaires

Réponses
2
Affichages
252

Statistiques des forums

Discussions
311 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT