Microsoft 365 Récupération d'un fichier obselète

Michest94 · 3 Juillet 2021

Bonjour,

Je travail dans un service de maintenance et j'ai récupéré un fichier se présentant comme un cahier de maintenance qui renvoie diverses infos technique de sites d'interventions. Celui-ci est très intéressant pour le service et peut se partager facilement mais ...

La personne qui travaillait sur ce fichier n'est plus la , elle a laissé le code admin pour accès fichier et vba (ADMIN1967) est il possible à partir de ce fichier d'apporter des améliorations éventuellement pour la feuille base créer un formulaire de saisie avec les intitulés des titres de colonnes actuels pour les enregistrements des différents sites...

N'ayant les connaissances pour remettre à niveau je le propose sur sur le forum en demandant votre aide.

Page de téléchargement du fichier partagé

mon-partage.fr

Merci à vous pour votre aide

Michest94 · 6 Juillet 2021

C 'est pas grave c'est juste dommage

Etoto · 6 Juillet 2021

Michest94 à dit:
C 'est pas grave c'est juste dommage

Re,

J'avoue et je suis juste désolé de ne pas pouvoir faire plus.

Michest94 · 6 Juillet 2021

j ai reposte sous une autre forme en titre fichier fantôme

Etoto · 6 Juillet 2021

Michest94 à dit:
j ai reposte sous une autre forme en titre fichier fantôme

Re,

J'ai vu et je suis ce fil pour connaître la solution.

Michest94 · 6 Juillet 2021

ok si y en une !

Etoto · 6 Juillet 2021

Michest94 à dit:
ok si y en une !

Re,

Tu désespères assez rapidement je trouve, tu as déjà trois membres qui t'aident sur l'autre fil et à moins que tu les traites mal, ils vont t'aider jusqu'au bou (enfin la plupart ).

Michest94 · 7 Juillet 2021

Encore moi, bon j'ai travaillé un peu sur le fichier "nouveau challenge" en fait mon fichier est nickel par contre est il possible que le bouton macro 'tri base' de la feuille base rafraichisse en même temps la feuille capteur vu que la liste des sites est identique .
je pense que le parallèle entre la feuille 'base' est la feuille 'capteur' je doit le faire à la mano.
exemple site AMPERE

AMPERE

0004_S_AMP_P1-AMPERE PASSY AMP/PY

N°9

0-5

33,85

0004_S_AMP_P2-AMPERE RESEAU HAUT AMP/RH

N°11

0-10

33,85

donc 2 capteurs de pressions.

et dans ma feuille 'bilans' je récupère l'info

Challenge pas simple et peut pas réalisable!
A tout hasard ci joint le fichier le plus à jour

Page de téléchargement du fichier partagé

mon-partage.fr

Merci

ChTi160 · 7 Juillet 2021

Bonsoir Michest94
pas sur d'avoir compris :
ce que j'ai fait pour trier les deux Feuilles "Base" et "Capteurs"
d'après

que le bouton macro 'tri base' de la feuille base rafraichisse en même temps la feuille capteur vu que la liste des sites est identique .

VB:

Sub TRI_Base()
'
Application.EnableEvents = False
' Tri base de données
With Worksheets("Base")
    Fin = .Range("DataBase").Rows.Count + 3
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("A5:A" & Fin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange ActiveSheet.Range("DataBase")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
With Worksheets("Capteurs")
    Fin = .Range("DataCapteurs").Rows.Count + 3
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("A5:A" & Fin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange ActiveSheet.Range("DataBase")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
Application.EnableEvents = True
End Sub

jean marie

Michest94 · 7 Juillet 2021

ChTi160 à dit:

Bonsoir Michest94
pas sur d'avoir compris :
ce que j'ai fait pour trier les deux Feuilles "Base" et "Capteurs"
d'après

VB:

Sub TRI_Base()
'
Application.EnableEvents = False
' Tri base de données
With Worksheets("Base")
    Fin = .Range("DataBase").Rows.Count + 3
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("A5:A" & Fin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange ActiveSheet.Range("DataBase")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
With Worksheets("Capteurs")
    Fin = .Range("DataCapteurs").Rows.Count + 3
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("A5:A" & Fin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange ActiveSheet.Range("DataBase")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
Application.EnableEvents = True
End Sub

jean marie

oui c ca

Michest94 · 7 Juillet 2021

Michest94 à dit:
oui c ca

une macro pour rafraichir les 2 bases

ChTi160 · 7 Juillet 2021

Re
Donc c'est bon ?
Jean marie

Michest94 · 7 Juillet 2021

Le parallèle entre la feuille 'base' est la feuille 'capteur' est il réalisable en vba ou doit-il se faire à la main.
exemple: pour le site AMPERE premier de la liste
dans la feuille "capteur' j'ai ces infos en colonne B et F

AMPERE

0004_S_AMP_P1-AMPERE PASSY AMP/PY

N°9

0-5

33,85

0004_S_AMP_P2-AMPERE RESEAU HAUT AMP/RH

N°11

0-10

33,85

donc 2 capteurs de pressions. pour la feuille ' bilan ' en col AI lig5

et dans ma feuille 'bilans' je récupère l'info (colonne O ligne 52)

Challenge pas simple et peut être pas réalisable!
A tout hasard ci joint le fichier le plus à jour

Michest94 · 7 Juillet 2021

ChTi160 à dit:
Re
Donc c'est bon ?
Jean marie

oui pour la macro des 2 bases Merci beaucoup JM

ChTi160 · 7 Juillet 2021

Re pour ta nouvelle demande ,Je n'ai rien compris malgré tes explications Lol
Jean marie

Michest94 · 7 Juillet 2021

bon c pas grave j 'essayerai de mieux formuler par contre sur le code vba que tu m' as donné pour la feuille capteur le départ tu l'as mis en ligne 5 et c est en ligne 3 j ai rectifié

Microsoft 365 Récupération d'un fichier obselète

Michest94

XLDnaute Occasionnel

Page de téléchargement du fichier partagé

Michest94

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Page de téléchargement du fichier partagé

ChTi160

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Michest94

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Michest94

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Discussions similaires