macro enregistrement feuille excel

[chinel]

Salut tout le monde !

j'ai un code que voici :

Public Sub Saveascopy1()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls"
End Sub

pas de souci ! mais ceci fait une copie du classeur mais moi je voudrais faire une copie que d'une seule feuille (sheets"(calendrier")) du classeur avec comme nom de sauvegarde la valeur des cellules (C1/E2/J2)
et puis si je recommence écraser la copie

merci !

 

[JHA]

Re : macro enregistrement feuille excel

Bonjour Chinel,

Je n'y connais pas grand chose en macro mais je pense que la feuille s'appelle sheet.

Au lieu de workbook essaies ActiveSheet.

JHA

 

[Cousinhub]

Re : macro enregistrement feuille excel

Bonjour chinel,
essaie : (non testé)

Public Sub Saveascopy1()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
Sheets("calendrier").Copy
ActiveWorkBook.SaveAs Filename:=Name & strDate & ".xls"
End Sub

 

[Coriolan]

Re : macro enregistrement feuille excel

Bonjour Chinel

Avec l'enregistreur de macros, fais la manip suivante:

clic droit sur l'onglet "calendrier", déplacer ou copier ..., choisir dans le classeur :nouveau classeur et cocher la case créer une copie.

cela devrait donner:
Sheets("calendrier").select
Sheets("calendrier").copy


Puis Activeworkbook.save filename:= range("C1").value & Range("E2").value & Range("J2").value & ".xls"

 

[chinel]

Re : macro enregistrement feuille excel

Corolian ton code me donne comme erreur:"nombres d'arguments incorrect"
merci quand même !
mais pour les autres façons pas d'évènements !!!
merci quand même !

 

[Coriolan]

Re : macro enregistrement feuille excel

Mille excuses!

Il fallait lire :

Puis Activeworkbook.saveAS filename:= range("C1").value & Range("E2").value & Range("J2").value & ".xls"

cela devrait marcher maintenant ...

 

[Cousinhub]

Re : macro enregistrement feuille excel

Re,
et avec ce code?

Public Sub Saveascopy1()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
Sheets("calendrier").Copy
ActiveWorkBook.SaveAs (ThisWorkbook.Path & "\" & Name & strDate & ".xls")

 

[chinel]

Re : macro enregistrement feuille excel

Merci Coriolan cela fonctionne !

mais y a t'il une possibilité de fermer cette copie automatiquement ?
pour ne pas la voir chaque fois et revenir à mon fichier


merci de ton aide !!!

 

[Coriolan]

Re : macro enregistrement feuille excel

Content d'avoir pu t'aider ...

Pour fermer automatiquement, rajouter:

ActiveWorkbook.close savechanges:=false

 

[chinel]

Re : macro enregistrement feuille excel

bhbh cela fonctionne aussi mais cela donne le titre de fichier source + la date
mais j'ai trouvé
merci quand même !!!

 

[chinel]

Re : macro enregistrement feuille excel

Coriolan merci cela fonctionne mais si j'oublie une donne dans les cellules concernées il y a un débogage car la sauvegarde ne prend en charge que las cellules non vide et aussi si elles ne comportent pas des signes comme "?"

merci !

 

[Coriolan]

Re : macro enregistrement feuille excel

Il faut dans ce cas écrire une routine de traitement d'erreurs au niveau de la sauvegarde, par exemple l'affichage d'une boîte de dialogue demandant de saisir manuellement le nom du fichier à sauvegarder, etc ...