XL 2016 faire une copie conditionnelle de lignes dans un classeur différent

Neileru4

XLDnaute Occasionnel
Bonjour a tous

je tiens a jour un fichier excel que me permet de visualiser des patients sur des ehpad
sauf que quand ceux ci s'en vont je voudrais les mettre automatiquement sur une autre feuille (archive) mais les garder masquer sur ma 1er feuille

est il possible

j'ai trouver cette formule vba mais je n'arrive pas a l'executer


Sub copyRowTo(rng As Range, ws As Worksheet)
Dim newRange As Range
Set newRange = ws.Range(A1)
If newRange.Offset(1).Value <> Then
Set newRange = newRange.End(xlDown).Offset(1)
Else
Set newRange = newRange.Offset(1)
End If
rng.Copy
newRange.PasteSpecial (xlPasteAll)
End Sub




ci joint mon fichier
 

Pièces jointes

  • File Active-ok - Copie.xlsm
    60 KB · Affichages: 6

GALOUGALOU

XLDnaute Accro
bonjour neileru4 bonjour le forum
j'ai imaginé que la solution ci-dessous était plus fonctionnelle.

dans cette version 5, les résidents qui ont réintégrés un ehpad sont automatiquement supprimés de la feuille EHPAD ("archive")

dans le module modulestable
modification de la macro ventilFORMULE
ajout d'une formule (SUP)
suppression de la mfc couleur rouge dans la feuille EHPAD ("archive")

cordialement
galougalou
 

Pièces jointes

  • Copie de Copie de File Active-ok - V5.xlsm
    178 KB · Affichages: 3

Neileru4

XLDnaute Occasionnel
Bonjour a tous
Bonjour galou galou

J'ai effectuer une macro qui me permet une fois un fichier excel terminer d'enregistrer et faire un envoie par mail pour partager celui ci



VB:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = CreateObject("outlook.application")

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr

monmail.Subject = "Modification du Dossier Partagé "

monmail.Body = "Alerte: Modifications sur le fichier "

monmail.Send

Set ol = Nothing

End Sub


Mon souci est que j'ai des utilisateurs qui utilise outlook version microsoft ( donc l'envoie se fait correctement)
et que j'en ai d'autre qui ont outlook version mail par internet sans microsoft (donc l'envoie ne se fait pas)
savez vous pourquoi ma macro ne fonctionne pas?
avait vous une solution?

merci a tous
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla