Recherche macro synchro données entre 2 mises a jour Résolu

Question

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

f894009 · Answer

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???????????????????

Archer · Answer

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

Archer · Answer

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

Archer · Answer

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

Recherche macro synchro données entre 2 mises a jour

4 réponses

Discussions similaires

Newsletters