Recherche macro synchro données entre 2 mises a jour
Résolu
7808622H
Messages postés
292
Date d'inscription
Statut
Membre
Dernière intervention
-
Archer -
Archer -
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
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 a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mise a jour chromecast - Accueil - Guide TV et vidéo
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Mise a jour windows 7 vers 10 - Accueil - Mise à jour
4 réponses
Bonjour,
Y a un bleme
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???????????????????
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???????????????????
Bonjour
j'ais pas trouver la macro import CSV
a voir si ca te va
A+
Maurice
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
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 ?
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 ?
Bonjour
il faut revoir déjà le début
surtout la première macro
http://www.cjoint.com/c/GEbqUmjqi8e
A+
Maurice
il faut revoir déjà le début
surtout la première macro
http://www.cjoint.com/c/GEbqUmjqi8e
A+
Maurice
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
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
Bonsoir
Voila la première macro
A+
Maurice
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
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
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
de toute facon je suis dispo et chez moi donc si vous avez des questions, avec les notifs je devrais vous répondre rapidement
Ok, ca roule
Quelle est le but de decaler les colonnes apres l'import?