excel + macro

Question

bonjour a tous!

voila mon probleme:je suis sous excel j'ai un fichier avec 15 colonnes dont une a pour entete "ville"
plusieurs lignes peuvent correspondre a la meme ville
je voudrais a partir de ce fichier générer un fichier pour chaque ville
voila le code que j'ai tapé :

Private Sub CommandButton1_Click()

Dim plag As Range
Dim cel As Range
Dim chem As String
chem = ThisWorkbook.Path & "\"
Set plag = Range("D2:A" & Range("D65536").End(xlUp).Row) 'à adapter à la colonne contenant les villes
For Each cel In plag
Application.Workbooks.Add
Set fs = Application.FileSearch
With fs
.LookIn = chem
.Filename = cel.Value & ".xls"
If .Execute > 0 Then GoTo suite
End With
ActiveWorkbook.SaveAs (chem & cel.Value & ".xls")
suite:
ActiveWorkbook.Close
Next cel

End Sub

mon soucis c que mes fichiers pôrtent bien comme nom le nom des villes mais ils sont vides...sauriez vous a quel niveau du code je dois indiquer de ne metrre que les lignes correspondant dans chaque fichier?

merci d'avance!

purrofixe · Answer

Bonjour loic,
Est-ce que cela fonctionne avec la solution sous ce lien:
http://www.commentcamarche.net/forum/affich-1042372-pb-avec-excel
http://www.commentcamarche.net/forum/affich-1044037-pb-avec-excel
Que faut-il choisir?
Bonne chance.

Salutations
Jean-Pierre

purrofixe · Answer

Bonjour loic,
Au fait, je n'y avais pas pensé; faite un débogage pas à pas sur votre code pour voir ou se situe le problème.

NB: pourquoi ne pas avoir un seul classeur avec feuille pour d'ensemble et les suivantes 1 par ville. Penser aussi aux futures mises à jour!i

Salutations
Jean-Pierre

purrofixe · Answer

Bonjour loic,
Attention, ceci correspond au message d'origine.
En marge : Il semble qu’il y a quelques problèmes d’accès sur le site, c’est très très long, vous pouvez me joindre directement pingou_ccm@bluewin.ch si vous le désirez.
Pour une fois j'ai fait un extra en testant votre code pas très simple pour s'y retrouver sans annotations.
La seule chose qu'il sait faire c'est de créer autant de nouveaux classeurs (3 par ligne pour chaque colonne B,C et D) qu'il y a de ligne dans votre classeur principale.
Votre instruction:
Set plag = Range("D2:A" & Range("D65536").End(xlUp).Row) >> n'a pas de valeur; renvoi des compléments d’expression
Nb : à vous lire, je pense que le code est un exemple que vous essayez d’adapter à votre cas. Dans se cas c’est toujours un peu plus complexe car nous ne réfléchissons pas comme la personne qui la créer.

Salutations
Jean-Pierre

purrofixe · Answer

Bonjour loic,
A la suite de vos 2 messages (06/10/2004 à 14:32 GMT+1) et (06/10/2004 à 14:20 GMT+1) je commence à vous comprendre.
En résumé :
1 classeur, feuille1( les données sur X colonnes, dont une pour nom de la ville.
Vous voulez :
Soit 1 classeur ou 1 nouvelle feuille (à vous de décider) avec toutes les données concernant une ville.
Une mise à jour tous les X jours. Je vous propose la MàJ sur commande après modification, ajout ou suppression ; ceci au plus tard juste avant de fermer le classeur original.
Est-ce bien comme cela ?
Bonne continuation.

Salutations
Jean-Pierre

purrofixe · Answer

Bonjour loic,
Donc vous choisissez de mettre le tout sur le même classeur (Worksheets >>> pour feuille).

Oui on peut utiliser ce code et faire une boucle sur les noms de ville et mettre les enregistrements correspondants dans la feuille adéquate. Ce code proposé ne me plait pas car il copie les enregistrements d’une feuille.

Autre solution, écrire un nouveau code en se basant sur la colonne ville (sans boulon) et le nombre d’enregistrement (celui varie avec le temps)

Une autre solution est d’exécuter un filtre élaboré et de transférer le résultat dans la feuille adéquate.

Je vous fais un petit exemple que vous pourrez adapter sans problème. SVP environ combien de nom de ville? Merci.

Salutations
Jean-Pierre

purrofixe · Answer

Bonsoir loic,
Juste pour vous faire patienter, avec Excel vous avez la possibilité d’enregistrer, dans une macro, les opérations que vous faites sur un classeur et ensuite vous lancez cette macro qui refait les opérations enregistrées. Bien sur la prochaine étape est de généralisé les ordres à l’intérieure de sorte qu’elle trouve elle même les variables.
Essayer donc cette possibilité, cela vous aidera certainement à comprendre.
Marche à suivre : (à faire sur une copie, pour éviter tout problème)
Dans le classeur ouvert :
sur Outils\Macro\Nouvelle macro..
Dans la fenêtre suivante vous faites OK
A partir de maintenant, tout ce que vous faites sur le classeur et enregistrer.
Exécuter ce que vous désirez et pour terminer : sur Outils\Macro\Arrêter l’enregistrement
Pour voir le travail : sur Outils\Macro\Macros ,ensuite sélectionner Macro…. Ensuite essayer les diverses possibilité(Exécuter, modifier, Pas à pas etc.)
La suite arrive.
Bonne soirée.

Salutations
Jean-Pierre

purrofixe · Answer

Bonsoir loic,S'il vous plait, environ combien de nom de ville? Merci. SalutationsJean-Pierre

purrofixe · Answer

Bonjour loic,

S'il vous plait, environ combien de nom de ville?
Merci.
Proposition :
Feuille principale= Globale, Nb Col indifférent, Col E = nom ville
Feuille ville = NomVille, même Nb de Col que Globale
Marche à suivre :
Par macro en VBA, en italique le code connu et normale pour explication et code à faire

Private Sub ExtraitVille_Click()
Déclaration des variables
Dim vaVille , vaPlage As Range
Activer la feuille globale
Worksheets(“Globale”).Select
Initialiser la plage avec nom de ville, aussi utiliser comme compteur
Set vaPlage = Range("E2:E" & Range("E2").End(xlDown).Row)
Réaliser la boucle, et prendre le premier nom de ville
For Each vaVille In vaPlage
Contrôle de l’existence d’un feuille pour le nom de ville en cours
IF condition non existant Worksheets(“vaVille”)
Créer nouvelle feuille
Renommer selon nom de ville
End If
Activer la nouvelle feuille
Ecrire l’enregistrement
Activer la feuille Global
Nom de ville suivant >> si Nothing >> fin de boucle
Next vaVille
End Sub

J’ai besoin d’un peu de temps pour écrire et tester cette macro.
Pour patienter, essayer donc de trouver les instructions correspondantes.
Bonne continuation.

Salutations
Jean-Pierre

purrofixe · Answer

Bonsoir loic,
Voici la macro pour réaliser votre désir.
Si nécessaire vous pouvez me joindre pingou_ccm@bluewin.ch , se sera peut être mieux..
Macro pour feuille :

'Déclaration des variables
Dim vaVille, vaPlage As Range
Dim vaNomFe As Variant

Private Sub ExtraitVille_Click()
Sheets("Globale").Select
Cells.Select
    Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Application.Run "FeuilleNomVille"
Let vaNoLi = 1
Set vaPlage = Range("E2:E" & Range("E2").End(xlDown).Row)
    For Each vaVille In vaPlage
        Let vaNoLi = vaNoLi + 1
Let vaNomFe = vaVille
Let vaNoFe = Sheets(vaNomFe).Index
Worksheets("Globale").Rows(vaNoLi).Copy
Worksheets(vaNoFe).Select
Let vaAct = ActiveCell.Row
Cells(1 + vaAct, 1).Select
ActiveSheet.Paste Destination:=Sheets(vaNoFe).Rows(1 + vaAct)
'Nom de ville suivant >> si Nothing >> fin de boucle
Next vaVille
End Sub

Private Sub FeuilleNomVille()
Let vaNoFe = 1
Let vaFe = 1
Set vaPlage = Range("E2:E" & Range("E2").End(xlDown).Row)
For Each vaVille In vaPlage
  If vaVilleAv <> vaVille Then
    Let vaNomFe = Worksheets(vaNoFe).Name
        If vaNomFe <> "Gobale" Then
            If vaNomFe = vaVille Then
' Effacer les enregistrements de Résultats pour nouvelle mise à jour
‘Doit encore être réaliser, à voir avec M. Loic
            Else
   Let vaNoFe = vaNoFe + 1
            Set NewSheet = Sheets.Add(after:=Sheets(vaNoFe - 1))
            ActiveSheet.Name = vaVille
Worksheets("Globale").Rows("1:1").Copy
ActiveSheet.Paste Destination:=Sheets(vaNoFe).Rows("1:1")
            End If
        End If
      Let vaVilleAv = vaVille
   End If
   Let vaFe = vaFe + 1
'Nom de ville suivant >> si Nothing >> fin de boucle
Next vaVille
End Sub

En principe cela fonctionne parfaitement, j'ai testé.
Bon courage et n'oubliez pas ma proposition, à vous de voir.

Salutations
Jean-Pierre

zenon · Answer

Que c'est compliqué...pourquoi pas passer à access?

purrofixe · Answer

Bonjour zenon,
Vous avez entiérement raison, par access se serait mieux adapté.
Par contre si on reste sur excel il y à plusieur possibilité et l'une d'elle est de passé par le filtre élaboré avec copie du résultat sur une autre feuille, ce qui est très simple.
En passant par VBA c'est plus compliqué, mais quel plaisir pour l'esprit, n'est-ce pas.
Bonne fin de semaine.

Salutations
Jean-Pierre

Excel + macro

11 réponses

Discussions similaires

Newsletters