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

Neileru4 · 4 Mars 2020

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 · 10 Mars 2020

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

GALOUGALOU · 10 Mars 2020

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 · 12 Mars 2020

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

GALOUGALOU · 12 Mars 2020

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 · 16 Mars 2020

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

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

Neileru4

XLDnaute Occasionnel

Pièces jointes

Neileru4

XLDnaute Occasionnel

GALOUGALOU

XLDnaute Accro

Pièces jointes

Neileru4

XLDnaute Occasionnel

GALOUGALOU

XLDnaute Accro

Neileru4

XLDnaute Occasionnel

Discussions similaires