Recherche macro synchro données entre 2 mises a jour

Résolu/Fermé

7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 - 30 avril 2017 à 15:22
Archer - 1 mai 2017 à 21:46

Bonjour,

Bonjour

je viens de changer de taf et j'ai desormais un role de gestionnaire de parc

Une des corvees penibles est de verifier la compta et de suivre la fiabilité de la facturations

J'ai commencé un fichier pour tenter de recuperer les infos donc j'ai besoin pour le suivi

Je M'explique :
J'ai une extraction (SFP) que je peux faire depuis nos bases comptables mais qui reprends tout les fournisseurs, le souci est que je n'en gere que quelques uns

Je souhaiterai a chaque mise a jour de l'extraction que les pieces se mettent a jour (ajout des nouvelles) pour chacun des fournisseurs ( selon les onglets )
A Noter que des champs s'actualisent aussi a la mise a jour ( dans les onglets verts se sont les colonnes I; K et L)

Le truc que je ne sais pas faire c'est le coté mise a jour et actualisation, là j'ai fait la mise a jour des tableaux, il me colle les données par fournisseur ( et encore si la liste evolue, il faudra que je modifie la macro, idealement si quelqu'un a une idee pour prendre en compte le tableau de l'onglet T_four ca serai top, au cas ou j'ajoute un fournisseur dans la colonne concernée, ca le prendrait en compte)

a Noter :
Les colonnes a partir de M dans les onglets verts; reprendront des infos que j'ajouterai a la main pour identifier les facturations, ( la liste des colonnes est pas encore fiabilisée mais au pire ca ne depassera pas la colonne AD ( au cas ou ca soit important)
Ces données entrée manuellement doivent rester persistantes sur la ligne de la piece concernée

Petit bonus j'ai prevu de colorer les colonnes B des onglets vert au vu de l'onglet litige ( si le numéro de piece est dans le tableau de l'onglet litige, la cellule en B de l'onglet vert correspondant se met en rouge) si y'a moyen d'intégrer ca ( pour tout les onglet vert, avec a la base de recherche l'onglet Litige, sachant qu'il ne peut y avoir de doublons de numéro de piece)

Voila si un méga pro doué dans le domaine pouvait me trouver une solution, ca serait méga top et ca me faciliterai grandement la vie

Merci d'avance a ceux qui tenteront de m'aider

en PJ : le fichier de suivi facturation ( le but est de coller la SFP) et cliquer sur le bouton de mise a jour)
et egalement le fichier SFP brut
http://www.cjoint.com/c/GDEmLDnxzx2

A voir également:

Recherche macro synchro données entre 2 mises a jour
Mise à jour pilote - Guide
Mise a jour airpods - Guide
Mise a jour windows 10 - Guide
Mise a jour xiaomi - Guide
Mise a jour chrome - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
1 mai 2017 à 08:58

Bonjour,

Y a un bleme

ActiveSheet.Range("$A$1:$L$150000").AutoFilter Field:=6, Criteria1:="RICOH-002"

le champ 6 ne contient pas les infos que vous designez dans les filtres, que faites vous a votre recup SFP pour que cela marche???????????????????

7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 4
1 mai 2017 à 09:38

bonjour

j'ai recupéré des bout de codes d'autres fichiers que j'ai en tentant de les adapter , le code est peut etre pas tres propre

Lorsque vous ouvrez SFP que vous le collez dans l'onglet ImportSFR , la premier chose qui est faite est une mise en forme de SFP pour qu'elle se mette au format des onglets verts, de là le code fournisseur apparait bien en colonne 6 pour etre copié, et coller dans les onglets vers correspondant

Le bouton vert de l'onglet impots lance les procédures qui demarre par MeF_SFP (action de classer les colonnes dans le bon ordre et supprimer les inutles) ce qui met le code fournisseur en colonne 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > 7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018
Modifié le 1 mai 2017 à 10:00

Re,
Ok, autant pour moi ai zapper cette procedure. Cette operation de suppression lignes et colonnes peut se faire dans le code de recuperation SFP. Je regarde la chose, ensuite nous aviserons de la suite

7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 4 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
1 mai 2017 à 10:19

aucun souci :-) merci de votre aide

de toute facon je suis dispo et chez moi donc si vous avez des questions, avec les notifs je devrais vous répondre rapidement

Re,

Ok, ca roule

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
Modifié le 1 mai 2017 à 11:56

Re,

Quelle est le but de decaler les colonnes apres l'import?

Réponse 2 / 4

Archer
1 mai 2017 à 13:04

Bonjour
j'ais pas trouver la macro import CSV
a voir si ca te va

Sub ChoixFicCsv()
Dim Dossier As FileDialog
ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator
   Set Dossier = Application.FileDialog(msoFileDialogFilePicker)
      With Dossier
         .AllowMultiSelect = False
         .InitialFileName = ChoixChemin
         .Title = "Choix d'un fichier CSV"
         .Filters.Clear
         .Filters.Add "Fichier Csv ", "*.csv", 1
            If .Show = -1 Then
               Chemin = .SelectedItems(1)
               NomFiche = Replace(Dir(Chemin), ".csv", "")
               LireCsvTxt Chemin
            End If
      End With
   Set Dossier = Nothing
End Sub

Sub LireCsvTxt(Fichier)
Application.ScreenUpdating = False
Cells.Clear
   With ActiveSheet.QueryTables.Add(Connection:= _
       "TEXT;" & Fichier, Destination:=Range("A1"))
       .TextFileSemicolonDelimiter = True
       .Refresh BackgroundQuery:=True
   End With
End Sub

A+
Maurice

7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 4
1 mai 2017 à 13:09

bonjour maurice

mais ca n'est pas l'import que je cherche, pour cela je fais un bete copié/collé,

C'est plus le coté synchro des données qui me pose probleme

mais merci ;-)

Re,

fichier modifie pour tri et distribution. Prevoir une raz des zones onglets avant distribution. Je ne l'ai pas fait car je ne sais pas si vous empilez x fichiers SFP ou seulement un .....

https://mon-partage.fr/f/50wxXWa4/

Pas de procedure import fichier puisque vous n'etes pas interesse

7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 4
1 mai 2017 à 16:59

Re

MErci beaucoup je viens de tester et nickel

j'avais anticipé pour les test de faire une version avec + de pieces et ca marche sans probleme pour la synchro c'est pile poile ce que j'avais besoin

Je confirme il n'y a qu'une seule SFP a chaque fois pour la mise a jour totale, donc c'est top

Par contre si je peux abuser vous pensez pouvoir m'aider sur la partie identification des litiges ?

Re,

identification des litiges
Ok, je regarde la chose

7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 4
1 mai 2017 à 17:47

c 'est sympa merci

Réponse 3 / 4

Archer
1 mai 2017 à 18:49

Bonjour
il faut revoir déjà le début
surtout la première macro
http://www.cjoint.com/c/GEbqUmjqi8e
A+
Maurice

7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 4
1 mai 2017 à 19:02

oups le fichier a planté au telechargement

Ce classeur a perdu son projet VBA, ses contrôles ActiveX et d'autres fonctionnalités liées à la programmabilité.

Re,

Fichier pour litiges, j'ai fait une programmation au mini pour eviter temps trop long pour majour sur raz d'un litige. A vous de tester, si ca coince je ferai la programmation pour

https://mon-partage.fr/f/xyw1UwQC/

Par contre toujours pas de raz donnees onglets au lancement import SFP

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
1 mai 2017 à 19:14

Bonjour Archer,
Pour vous la premiere macro c'est laquelle ?

Parce que chez moi ca marche tres bien surtout si vous ne mettez pas MeF_SFP en commentaire.
Pourquoi prendre un fichier XLSM et le restituer en XLS

avec la V3 je n'ai pas de résultat en testant litige

et il me met un bug egalement dû a la ligne

Private Sub Worksheet_Activate()
Worksheets("Litiges").Cells(Target.Row, 1).Select
End Sub

De mon coté j'ai retrouvé une macro pour faire ce que je cherche mais ca plante a vu de nez
ci joint mon fichier (voir module 3) l 'idée est que je transposerait pour chaque onglet vert ( ici ca n'est que pour copieur)

désole pour le zip mais impossible de charger sur cjoitn ou monpartage sinon
http://www.cjoint.com/c/GEbrUU8fgZ2

Re,

Autant pour moi, un copier/coller sans modifier

Fichier modifie pour ce bug et aussi pour les litiges (deja present post 21)
https://mon-partage.fr/f/Efw85rdo/

Votre fichier post 23 fait 35MB alors que "ma" version fait 1.5MB, y a un bleme

Réponse 4 / 4

Archer
1 mai 2017 à 21:46

Bonsoir
Voila la première macro

Sub MeF_SFP()
' MeF_SFP Macro
' Mise en forme de la SFP pour caler au cellules de destinations
Sheets("ImportSFP").Select
Application.ScreenUpdating = False
Rows("1:6").Delete Shift:=xlUp
   Range("A:A,E:F,H:H,K:K,N:S,U:W,Y:AC,AF:AV").Delete
       Columns("E:E").Cut
         Columns("A:A").Insert Shift:=xlToRight
       Columns("D:D").Cut
         Columns("B:B").Insert Shift:=xlToRight
       Columns("I:I").Cut
         Columns("F:F").Insert Shift:=xlToRight
       Columns("I:I").Cut
         Columns("H:H").Insert Shift:=xlToRight
       Columns("L:L").Cut
         Columns("J:J").Insert Shift:=xlToRight
   Application.Goto Range("A1"), True
End Sub

A+
Maurice

Discussions similaires

Table des matières dont les titres n'apparaissent pas..

Freebox:Erreur impossible de récupérer la liste des mises à jour

Discussions similaires

Newsletters