Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Question codes VBA existant.

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Soleil11

XLDnaute Occasionnel
Bonjour,

Est-il possible de modifier le code ci-dessous ? Lorsque mon fichier "Consolider fichiers.xls" a été consolider automatiquement je sais pas de quel fichiers il provient. J'aimerais ajouté le "nom du fichier" en colomne "A1" pour chaque ligne ajoutée provenant des fichiers.xls qui on été copier depuis "H:\David Jones\New Folder" dans le fichier de consolidation. Je ne sais pas si cela est réalisable.

Merci d'avance pour votre aide.


Sub Consolidation()
Dim Temp As String
Dim Ligne As Long
Temp = Dir("H:\David Jones\New Folder" & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Consolider fichiers.xls" Then
Workbooks.Open "H:\David Jones\New Folder" & "\" & Temp
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
Workbooks("Consolider fichiers.xls").Sheets(1).Activate
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select
ActiveSheet.Paste
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub

Bonne journée.🙂
 
Trier par date Trier par votes
Re : Question codes VBA existant.

Bonjour Soleil1,

peut-être comme ca :

Code: 
Sub Consolidation()
Dim Temp As String
Dim Ligne As Long
Temp = Dir("H:\David Jones\New Folder" & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Consolider fichiers.xls" Then
Workbooks.Open "H:\David Jones\New Folder" & "\" & Temp
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
Workbooks("Consolider fichiers.xls").Sheets(1).Activate
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne+1)).Select
ActiveSheet.Paste
Range("A" & CStr(Ligne)).value = Temp
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub
 
Vote positif 0 Vote négatif
Re : Question codes VBA existant.

C'est presque parfait, au fait j'aimerais insérer une nouvelle colomne avant la colomne A et ajouter le nom des différents fichiers ajoutés par ligne.




Merci d'avance.

Soleil11
 
Vote positif 0 Vote négatif
Re : Question codes VBA existant.

Re,

alors peut-être comme ça :

Code: 
Sub Consolidation()
Dim Temp As String
Dim Ligne As Long, Ligne2 as Long
Temp = Dir("H:\David Jones\New Folder" & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Consolider fichiers.xls" Then
Workbooks.Open "H:\David Jones\New Folder" & "\" & Temp
Ligne2 = Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Rows.Count
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
Workbooks("Consolider fichiers.xls").Sheets(1).Activate
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("B" & CStr(Ligne)).Select
ActiveSheet.Paste
Range("A" & CStr(Ligne), "A" & Ligne + Ligne2 - 1).value = Temp
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub
 
Vote positif 0 Vote négatif
Re : Question codes VBA existant.

Soleil11 à dit:
Un grand merci a tototiti2008. et toute l'équipe.

Cela marche parfaitement.

Merci d'avance..

Soleil11
Cliquez pour agrandir...

Bonjour,

Je reviens sur ce code car j'aimerais encore le modifier et ajouter une condition ci-dessous la ligne en rouge que j'essaie de modifié et cela ne marche pas. Il faudrait ajouter tous les fichiers.xls qui commencent par FS10n* ou appliqué le filtre *FS10n*.

Exemple : like FS10n* or like *FS10n*.

Il ya ce code ci-dessous qui existe mais ce n'est pas ce que je veux.

If temp <> "Consolider fichiers.xls" And Left(temp, 4) <> "FS10n" Then

Sub Consolidation()
Dim Temp As String
Dim Ligne As Long, Ligne2 As Long
Temp = Dir("H:\David Jones\New Folder" & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Consolider fichiers.xls" Like "FS10N" Then
Workbooks.Open "H:\David Jones\New Folder" & "\" & Temp
Ligne2 = Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Rows.Count
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
Workbooks("Consolider fichiers.xls").Sheets(1).Activate
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("B" & CStr(Ligne)).Select
ActiveSheet.Paste
Range("A" & CStr(Ligne), "A" & Ligne + Ligne2 - 1).Value = Temp
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub

Merci de votre aide.

Soleil11:🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
254
cathodique
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
325
dysorthographie
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
792
ph.vanne
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
647
safranien
S
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
512
job75
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
756
Oneida
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
741
Piment
P
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
1 K
jebibo
J
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
615
Maxou69
M
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
766
patricktoulon
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
521
Latias
L
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
440
vgendron
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
772
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…