A voir également:
- [VB] [Excel 2007] compiler des données
- Liste déroulante excel - Guide
- Formule excel - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Vb cable - Télécharger - Audio & Musique
- Si et excel - Guide
2 réponses
Ben le vb c'est pas compliqué.
Il faut décomposer :
Initialiser une variable i à 2
i est en fait le numero de la colonne dans laquelle tu vas copier les données
Lister les fichiers xls du répertoire
Ouvrir le fichier
Copier les cellules de 1 à 526
Afficher la feuille de destination
Coller les cellules dans la colonne i
fermer le fichier
Fin de liste
Sauvergarder la feuille destination
Ca donne :
Dim i as integer
Dim File_Is As String
i=2
Direc = "'Q:\SOULA\NOUVEAU SOULA\CO - COMMERCIAL\02-BORDEREAU CHIFFRAGE\MCFS-2009\Dossier principal\version avec prix pylônes\2005\"
File_Is = Dir(Direc & "*.xls")
Do Until File_Is = ""
file_xml = Direc & File_Is
'ici copier le contenu
Loop
Il faut décomposer :
Initialiser une variable i à 2
i est en fait le numero de la colonne dans laquelle tu vas copier les données
Lister les fichiers xls du répertoire
Ouvrir le fichier
Copier les cellules de 1 à 526
Afficher la feuille de destination
Coller les cellules dans la colonne i
fermer le fichier
Fin de liste
Sauvergarder la feuille destination
Ca donne :
Dim i as integer
Dim File_Is As String
i=2
Direc = "'Q:\SOULA\NOUVEAU SOULA\CO - COMMERCIAL\02-BORDEREAU CHIFFRAGE\MCFS-2009\Dossier principal\version avec prix pylônes\2005\"
File_Is = Dir(Direc & "*.xls")
Do Until File_Is = ""
file_xml = Direc & File_Is
'ici copier le contenu
Loop
Bonjour Deeper,
bon déjà j'ai compris qu'il fallait que je modifie une macro vide pour y inserer le code fournis,
j'ai donc ça :
Sub Macro3()
Dim i As Integer
Dim File_Is As String
i = 2
Direc = "'Q:\SOULA\NOUVEAU SOULA\CO - COMMERCIAL\02-BORDEREAU CHIFFRAGE\MCFS-2009\Dossier principal\version avec prix pylônes\2005\"
File_Is = Dir(Direc & "*.xls")
Do Until File_Is = ""
file_xml = Direc & File_Is
'ici copier le contenu
Loop
'
'
'
End Sub
je me met dans un nouveau fichier (qui n'est pas dans le même repertoire que mes fichiers cibles)
et je fait macro : executer macro 3
et cette erreur apparait :
erreur 52 :
nom ou numero de fichier incorrect
bon, j'avoue que si en VB ça fonctionne cela va etre bien plus rapide que le concatener tout simple.
et puis sur les 526 ligne j'aurais juste à supprimer celles dont je n'ai pas besoin une fois que tout est fini (plus simple que de trier avant)
vois tu ou est mon erreur ?
Cordialement Guillaume
bon déjà j'ai compris qu'il fallait que je modifie une macro vide pour y inserer le code fournis,
j'ai donc ça :
Sub Macro3()
Dim i As Integer
Dim File_Is As String
i = 2
Direc = "'Q:\SOULA\NOUVEAU SOULA\CO - COMMERCIAL\02-BORDEREAU CHIFFRAGE\MCFS-2009\Dossier principal\version avec prix pylônes\2005\"
File_Is = Dir(Direc & "*.xls")
Do Until File_Is = ""
file_xml = Direc & File_Is
'ici copier le contenu
Loop
'
'
'
End Sub
je me met dans un nouveau fichier (qui n'est pas dans le même repertoire que mes fichiers cibles)
et je fait macro : executer macro 3
et cette erreur apparait :
erreur 52 :
nom ou numero de fichier incorrect
bon, j'avoue que si en VB ça fonctionne cela va etre bien plus rapide que le concatener tout simple.
et puis sur les 526 ligne j'aurais juste à supprimer celles dont je n'ai pas besoin une fois que tout est fini (plus simple que de trier avant)
vois tu ou est mon erreur ?
Cordialement Guillaume
quelqu'un pour mon problème ?
ce n'est pas que je suis impatient, mais vu l'a renomée des membres présents il y a plein de messages qui sont apparus et le mien est tout en bas :-)
j'ai besoin de réussir à faire cette fusion/concatenation,
c'est dure de faire semblant de travailler et encore plus dure de ne pas reussir à faire ce que l'on veut
Guillaume
ce n'est pas que je suis impatient, mais vu l'a renomée des membres présents il y a plein de messages qui sont apparus et le mien est tout en bas :-)
j'ai besoin de réussir à faire cette fusion/concatenation,
c'est dure de faire semblant de travailler et encore plus dure de ne pas reussir à faire ce que l'on veut
Guillaume