Demande d'aide en VBA

Mana81 · 18 Décembre 2018

Bonjour,
J'ai besoin de votre aide en VBA.
J'ai deux fichiers Excel : "Dossiers Logo Paramédicaux" et "Récapitulatif".
J'encode des informations dans le 1er fichier et je souhaiterai que ces données soient ajoutées dans le 2ème fichier. Il ne s'agit pas ici simplement d'un copier-coller.
Je souhaiterai que ces données soient ajoutées à la suite de tout ce qui existe déjà dans le fichier "Récapitulatif"; donc il faut en fait lui dire de rechercher la dernière cellule vide de la colonne A dans le fichier "Récapitulatif" et coller les données à partir de cette cellule +1.
Pourquoi +1 : car je souhaiterai en effet qu'entre chaque nouvelle donnée, je puisse insérer une ligne à travers tout le tableau en gris foncé.
Je vous joins les deux fichiers.
Merci d'avance pour votre aide.
Bien à vous,

Mana81 · 29 Janvier 2019

Bonjour,

auriez-vous la gentillesse de m'aider en VBA svp :

dans un fichier excel, j'ai plusieurs feuilles.
je souhaiterais sur une feuille obtenir la date et l'heure de l'enregistrement.
attention, si par ex. 20 modifications ont été faites le même jour dans une feuille, je souhaiterai qu'il écrase les autres enregistrements et qu'il ne garde que le dernier.
et par contre, insérer à la suite l'enregistrement du jour suivant.
le but étant d'avoir un historique journalier

pourriez-vous m'aider?

d'avance, je vous en remercie.
Bien à vous

J'ai utilisé ceci :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("Feuil1")
.Range("F1") = Now()
End With
End Sub

mais cela ne correspond pas à un historique 🙁

JM27 · 29 Janvier 2019

bonsoir
peut être comme cela

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets("Feuil1").Range("A2") <> "" Then
        DatePrécedente = Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
        If Date > DatePrécedente Then
            Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1) = Now
        Else
            Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row) = Now
        End If
    Else
        Sheets("Feuil1").Range("A2") = Now
    End If
End Sub

Mana81 · 30 Janvier 2019

JM27 à dit:

bonsoir
peut être comme cela

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets("Feuil1").Range("A2") <> "" Then
        DatePrécedente = Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
        If Date > DatePrécedente Then
            Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1) = Now
        Else
            Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row) = Now
        End If
    Else
        Sheets("Feuil1").Range("A2") = Now
    End If
End Sub

bonjour,
Merci pour votre rapidité 🙂
Pouvez-vous m'expliquer que je comprenne le language que vous utilisez?
Merci et bien à vous.

JM27 · 30 Janvier 2019

bonjour
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' je viens tester la première ligne de destination , si celle ci est vide , le fichier est "neuf" j'inscris la date du jour
If Sheets("Feuil1").Range("A2") <> "" Then
' je viens chercher la dernière date d'enregistrement du fichier
DatePrécedente = Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
' Si la date du jour est supérieure à la date d'enregistrement ( nous sommes au moins un jour plus tard)
If Date > DatePrécedente Then
' Je viens inscrire dans la cellule suivant la date d'enregistrement
Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1) = Now
Else
' Je viens écraser la dernière date du jour ( mise à l'heure de l'enregistement)
Sheets("Feuil1").Range("A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row) = Now
End If
Else
' si le fichier est" neuf" je viens inscrire la date du jour dans la première cellule
Sheets("Feuil1").Range("A2") = Now
End If
End Sub

Mana81 · 30 Janvier 2019

re-bonjour,
je vais tester votre module. un peu débordée en ce moment.

je rencontre un probème par rapport à ma première demande de décembre.
je n'arrive plus à ouvrir mon module.
voici le message : il me met : le projet ne peut être affiché.

je suis bien dans l'embarras.
pouvez-vous m'aider svp?

JM27 · 30 Janvier 2019

Bonjour
Bizarre
postes ton fichier sans données confidentielles.

Mana81 · 30 Janvier 2019

JM27 à dit:
Bonjour
Bizarre
postes ton fichier sans données confidentielles.

Mana81 · 30 Janvier 2019

J'ai testé l'historique des dates
cela me semble bon 🙂
je ferai un test demain matin pour voir et l'adapterai à mon fichier excel.
vous êtes vraiment doué !!
merci bcp !

JM27 · 30 Janvier 2019

Bonjour
Pour afficher les macros , il ne faut pas que le classeur soit partagé ( c'est le cas du tien)

Mana81 · 30 Janvier 2019

JM27 à dit:
Bonjour
Pour afficher les macros , il ne faut pas que le classeur soit partagé ( c'est le cas du tien)

depuis le début, je l'ai partagé vu que plusieurs collègues travaillent dedans en meme temps.. et cela n'a pas planté.
c'est ça que je trouve étonnant.
mais OK, je vais bouger le fichier partagé et retesté.
Merci pour ce tuyau

JM27 · 30 Janvier 2019

A priori uniquement les macros ne sont pas affichées, ce qui n’empêchent pas qu'elles fonctionnent.
je n'en suis pas sur , car je n'utilise jamais de classeur partagé.
Si tu as besoin de les modifier , tu supprimes le partage et tu le remets ensuite

Mana81 · 30 Janvier 2019

JM27 à dit:
A priori uniquement les macros ne sont pas affichées, ce qui n’empêchent pas qu'elles fonctionnent.
je n'en suis pas sur , car je n'utilise jamais de classeur partagé.
Si tu as besoin de les modifier , tu supprimes le partage et tu le remets ensuite

plus rien ne fonctionnait 🙁
je vais donc leur dire de ne pas travailler dedans en même temps...
ou alors visible en lecture seule si elles souhaitent voir un dossier en particulier....
🙂

Mana81 · 30 Janvier 2019

bête question :
pour le fichier avec l'historique des dates, je ne peux pas non plus en faire un fichier partagé?

JM27 · 30 Janvier 2019

On peut sans partager le classeur
si celui-ci est en lecture seule , le refermer automatiquement. (de manière que les gens ne travaillent pas sur un classeur en lecture seule sans faire attention et ne peuvent pas par la suite l’enregistrer) ( c'est comme cela que je procédais quand j'étais en activité)
on peut en plus indiquer qui a effectué le dernier enregistrement

issu de internet
un fichier partagé accepte les macros, il n'accepte pas leur modification tant que le partage est actif.
Il y a seulement quelques fonctionnalités interdites surtout dues à leur indisponibilité sur un classeur partagé.

Mana81 · 30 Janvier 2019

JM27 à dit:
On peut sans partager le classeur
si celui-ci est en lecture seule , le refermer automatiquement. (de manière que les gens ne travaillent pas sur un classeur en lecture seule sans faire attention et ne peuvent pas par la suite l’enregistrer) ( c'est comme cela que je procédais quand j'étais en activité)
on peut en plus indiquer qui a effectué le dernier enregistrement

issu de internet
un fichier partagé accepte les macros, il n'accepte pas leur modification tant que le partage est actif.
Il y a seulement quelques fonctionnalités interdites surtout dues à leur indisponibilité sur un classeur partagé.

SUPER !! je vais tester tout cela !
un grand merci pour votre aide si précieuse 🙂

Demande d'aide en VBA

Mana81

Guest

Pièces jointes

Mana81

Guest

JM27

XLDnaute Barbatruc

Mana81

Guest

JM27

XLDnaute Barbatruc

Pièces jointes

Mana81

Guest

JM27

XLDnaute Barbatruc

Mana81

Guest

Pièces jointes

Mana81

Guest

JM27

XLDnaute Barbatruc

Mana81

Guest

JM27

XLDnaute Barbatruc

Mana81

Guest

Mana81

Guest

JM27

XLDnaute Barbatruc

Pièces jointes

Mana81

Guest

Discussions similaires

Demande d'aide en VBA

Mana81

Guest

Pièces jointes

Mana81

Guest

JM27

XLDnaute Barbatruc

Mana81

Guest

JM27

XLDnaute Barbatruc

Pièces jointes

Mana81

Guest

JM27

XLDnaute Barbatruc

Mana81

Guest

Pièces jointes

Mana81

Guest

JM27

XLDnaute Barbatruc

Mana81

Guest

JM27

XLDnaute Barbatruc

Mana81

Guest

Mana81

Guest

JM27

XLDnaute Barbatruc

Pièces jointes

Mana81

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency