Re : Enregistrer sous et consolider une seule feuille
Merci de vos réponses
j'ais fait travailler mon neurone fatigué par une semaine de labeur (dur)
et j'avais trouvé que la macro de pierre jean enregistrait sous le dossier Excel par défaut (celui qui est paramétrè dans outil option)
j'ai réussi à l'adapter car mon dossier mère est protégé
comme ceci
Sub SauvegardeFeuille3()
Dim NOM As String
NOM = ThisWorkbook.Sheets(3).Range("g2")
ActiveSheet.Unprotect
ThisWorkbook.Sheets(3).Copy
For Each cel In ActiveWorkbook.ActiveSheet.UsedRange
cel.Formula = cel.Value
Next cel
ActiveWorkbook.SaveAs Filename:=NOM & ".xls"
ActiveWorkbook.Close
End Sub
pour reprotéger le classeur mère j'ai une deuxieme macro dans le module
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
j'appelle les deux avec un bouton
c'est du bidouillage
mais j'en suis content
je vous remercie tous et je vais essayer de mettre tout cela dans la même macro
le fichier en question est sur un serveur et chaque intervenant à un pc perso
et pourra donc créer un dossier "extraction" sur son D