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

[Neileru4]

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

 

[Neileru4]

bonjour a tous
oui galougalou j'ai bien récupérer les info grace a la v4 du #13

 

[GALOUGALOU]

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

 

[Neileru4]

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

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

 

[GALOUGALOU]

bonjour neileru bonjour le forum
personnellement, je ne ne sais pas.
on va laisser les membres du forum vous trouver une solution.
cordialement
galougalou

 

[Neileru4]

merci galou galou pour la réponse
j'ai déjà ouvert sur un nouveau post comme cela traite un peu sur un autre sujet