Suivi reception commande en automatique

[gnina1973]

Bonjour

Tous les 15 jours je dois réaliser une extraction qui me donne un état des commandes passées . Je copie colle cette extraction sur un fichier Excel . Sur ce fichier je voudrais insérer systématiquement une colonne date du jour et qui me donne la date d'aujourd'hui .
Une fois cela fait je voudrais faire un tcd qui je serais amener à faire à chaque fois qui m'extrait à partir de mon extraction brute tous les commandes encore à livrer pour lesquelles la date du jour est > date de livraison prévisionnelle de 15 jours .
J'envoie en pj mon fichier de base

Merci pour idées

 

[camarchepas]

Re : Suivi reception commande en automatique

Bonjour ,

pour l'insertion comme ceci

 

[WDAndCo]

Re : Suivi reception commande en automatique

Bonjour le Forum

Sub insert()
    If Range("G1") = "DATE DU JOUR" Then Exit Sub
    Sheets("ETAT DE RECEPTION-COMMANDES").Columns("G:G").insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("G1").FormulaR1C1 = "DATE DU JOUR"
    Range("G2").FormulaR1C1 = CDate(Date)
    Range("G2").AutoFill Destination:=Range("G2:G4"), Type:=xlFillCopy
End Sub

Juste pour éviter d'avoir plusieures colonnes identiques.