XL 2016 Macro filtre date (les derniers 48 h)

sousou

XLDnaute Barbatruc

• 24 Octobre 2016

• #16

Et pourquoi pas?

 

Vote positif 0 Vote négatif

U

USER2112

XLDnaute Nouveau

• 24 Octobre 2016

• #17

Bonjour,
pour plus de précision j'ai 5 classeurs (BL'S01....BL'S05), je voudrais avec une macro fusionner c'est 5 classeurs en un seul nommé BL'S (ce classeur doit contenir les feuils des 5 classeur).
si tu peut m'aider voici les 5 classeurs en pièce jointe.

 

Pièces jointes

• BL'S 01.xlsx

  784.4 KB · Affichages: 103
• BL'S 02.xlsx

  784.8 KB · Affichages: 100
• BL'S 03.xlsx

  784.8 KB · Affichages: 98
• BL'S 04.xlsx

  784.7 KB · Affichages: 101
• BL'S 05.xlsx

  784.6 KB · Affichages: 101

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 24 Octobre 2016

• #18

Bonsoir
regarde si ce fichier va bien
Lance la macro deb()
A supposer ici que tes fichiers sont situés sous le même répertoire que celui-ci

 

Pièces jointes

• BLs.xlsm

  13.5 KB · Affichages: 96

Vote positif 0 Vote négatif

U

USER2112

XLDnaute Nouveau

• 25 Octobre 2016

• #19

bonjour,
oui c'est ce que je cherche merci ça marche bien.
mais comment peut on mettre à jours le contenu du fichier BLS.XLSM en fonction des autres fichiers?

 

Vote positif 0 Vote négatif

U

USER2112

XLDnaute Nouveau

• 25 Octobre 2016

• #20

USER2112 à dit:

bonjour,
oui c'est ce que je cherche merci ça marche bien.
mais comment peut on mettre à jours le contenu du fichier BLS.XLSM en fonction des autres fichiers?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 25 Octobre 2016

• #21

Bonjour
Pas compris la remarque

 

Vote positif 0 Vote négatif

U

USER2112

XLDnaute Nouveau

• 25 Octobre 2016

• #22

bonjour,
si les informations sur les 5 classeurs seront modifier comment mettre à jour ceux sur le fichier BLS

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Octobre 2016

• #23

Bonjour.
Le plus simple serait de supprimer les quatre feuilles et de les rechargées.
A tester! ce que je n'ai pas fait!
Sub misajour()
chemin = ThisWorkbook.Path & "\"
nf = "BL'S 0"
For n = 1 To 5
'pas de message d'alerte sur suppression de la feuille et suppression de la feuille
Application.DisplayAlerts = False
Sheets(nf & n & ".xlsx").Delete
Application.DisplayAlerts = True
'--------------------------------------------------------------
Set fichier = Workbooks.Open(chemin & nf & n & ".xlsx")
fichier.Sheets("report").Copy ThisWorkbook.Sheets(n)
ThisWorkbook.Sheets(n).Name = nf & n
fichier.Close
Next
End Sub

 

Vote positif 0 Vote négatif

U

USER2112

XLDnaute Nouveau

• 28 Octobre 2016

• #24

Bonjour,
j'ai essayé ce code malheureusement il m'affiche l'erreur suivant:

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Octobre 2016

• #25

Les feuilles bs.. n'existe pas ou ne sont pas bien nommée!
ce code ne fonctionne que si les 5 feuilles BL'S 01BL'S 02 BL'S 03 BL'S 04 BL'S 05 existe déjà nous somme là dans le cas de la mise à jour

 

Vote positif 0 Vote négatif

U

USER2112

XLDnaute Nouveau

• 3 Novembre 2016

• #26

Bonjour,
s'il vous plait comment avec une macro je peut regrouper mes données comme par exemple dans mon cas je veut regrouper les BLS par N° facture (une facture peut contenir plusieurs lignes, chaque ligne correspond a une BL) ainsi calculer le total des montants des lignes des factures et l’insérer dans une nouvelle colonne nommé total revenue.
merci d'avance

 

Pièces jointes

• Classeur2.xlsx

  699.6 KB · Affichages: 71

Vote positif 0 Vote négatif