Bonjour le Fil,
j'enregistre une feuille dans un autre classeur.
Pour ce faire j'utilise la syntaxe suivante.
Dim nomsauvegarde As String
nomsauvegarde = (Feuil4.Range("D7").Value & Date$ & " .xls")
Sheets("dotation").Copy
ChDir "C:\ ' indique le répertoire
ActiveWorkbook.SaveAs Filename:=nomsauvegarde
jusque là tout va bien, mon problème c'est que j'aurai besoin de revenir dans mon autre classeur
pour supprimer les données de la feuille puisqu'elle est sauvegardée.
j'ai donc essayé :
sheet ("dotation").Select
Range("A14:G43").Select
Selection.Clearcontents
Mais seule s'effacent les données sur la sauvegarde alors que c'est l'inverse que je souhaite obtenir.
Si quelqu'un a une idée, elle sera la bienvenue, Merci
j'enregistre une feuille dans un autre classeur.
Pour ce faire j'utilise la syntaxe suivante.
Dim nomsauvegarde As String
nomsauvegarde = (Feuil4.Range("D7").Value & Date$ & " .xls")
Sheets("dotation").Copy
ChDir "C:\ ' indique le répertoire
ActiveWorkbook.SaveAs Filename:=nomsauvegarde
jusque là tout va bien, mon problème c'est que j'aurai besoin de revenir dans mon autre classeur
pour supprimer les données de la feuille puisqu'elle est sauvegardée.
j'ai donc essayé :
sheet ("dotation").Select
Range("A14:G43").Select
Selection.Clearcontents
Mais seule s'effacent les données sur la sauvegarde alors que c'est l'inverse que je souhaite obtenir.
Si quelqu'un a une idée, elle sera la bienvenue, Merci
Dernière édition: