× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Macro Copier ligne vers un autre fichierSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
TheCrow
  Posté le 23/04/2014 @ 17:50 
Aller en bas de la page 
Petit astucien

Bonsoir,

Je suis en train de bâtir un formulaire que je dois envoyer a des gens. Aucun problème pour construire le formulaire mais j'aimerais y apporter un ajout. Lorsque les gens auront remplis le formulaire ils devront me le retourner et j'aimerais que toutes les informations de la ligne 250 aillent ce coller avec un collage spécial/valeur dans un fichier sur mon C:/ (nommé: Recap pour le bien de l'excerice) a la suite des informations déja dans le fichier.

L'entete du fichier Recap serait a la ligne 10 donc lorsque je recevrais le 1er fichier et que je cliquerais sur la macro, les informations de la ligne 250 du fichier recu irait se coller a la ligne 11 du fichier Recap. Au deuxieme fichier ca irait a la ligne 12 et ainsi de suite.

Mais lors du copier/coller des information du fichier recu vers le fichier Recap la macro découvre que l'information se trouvrant dans la colonne A se retrouve deja dans une des colonnes A du fichier Recap alors au lieu de la rajouter a la suite des autres lignes, elle remplace la ligne ou l'information est identique. Normalement la cellule A serait la cellule ou on retrouverait les # de magasins.

Hmmmm...suis-je assez clair?

Merci de votre aide

Publicité
ferrand
 Posté le 23/04/2014 à 23:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

On fait avec tes indications .

Classeur nommé Recap - Classeur formulaire, on ignore le nom, on ne sait d'ailleurs pas si le nom sera le même...

On ne sait si plusieurs feuilles ou non : comme il en faut une et une seule, ce sera la première dans tous les classeurs.

Dans le classeur Recap, mettre la macro ci-dessous dans un module standard :

Sub Récap(frec As String)
Dim n%, i%, lig250 As Range
With ThisWorkbook.Worksheets(1)
n = .Cells(.Rows.Count, 1).End(xlUp).Row
If n < 10 Then n = 10
Set lig250 = Workbooks(frec).Worksheets(1).Rows(250)
For i = 11 To n
If .Cells(i, 1).Value = lig250.Cells(1, 1).Value Then
.Rows(i).Value = lig250.Value
Exit Sub
End If
Next i
.Rows(n + 1).Value = lig250.Value
End With
End Sub

Dans le classeur formulaire (le modèle qui sera dupliqué), mettre la macro suivante dans le module ThisWorkbook :

Private Sub Workbook_Open()
On Error Resume Next
Application.Run "Recap.xls!Récap", ThisWorkbook.Name
End Sub

A la réception d'un classeur formulaire en retour, l'ouvrir alors que le classeur Recap est ouvert. L'opération se fera automatiquement à l'ouverture.

Si les classeurs sont au format 2007 et ultérieurs, remplacer Recap.xls par Recap.xlsm dans la macro formulaire.

Il ne sera pas inutile de prévenir les destinataires que le formulaire contient une macro pour le retour et qu'il ne se passera rien pour eux, qu'ils l'activent ou non.

TheCrow
 Posté le 24/04/2014 à 17:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bon...je vais tenter d'être plus clair...car c'est pas facile a expliquer et j'avoue que moi-meme j'ai d'la misere a me comprendre pour cette demande.

-Je recois un formulaire que je vais faire

1-Nom du fichier recu: Formulaire

2-Nom du fichier qui doit recevoir les données: Recap

3-Fonction de la macro: Prendre l'information de la ligne 250 du fichier Formulaire du premier onglet et allez le coller dans le fichier Recap à partir de la ligne 11. Par contre si la macro s'appercoit que l'information contenue dans la cellule "A" du fichier Formulaire se retrouve déja dans le fichier Recap alors au lieu de copier les informations a la suite des autres il remplace l'information déja existante

Est-ce que ca plus d'allure comme ca?

ferrand
 Posté le 24/04/2014 à 17:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Là tu te répètes ! A part le nom du fichier formulaire.

As-tu essayé ? Ou est-à dire que ce n'est pas toi qui émet le fichier formulaire que tu reçois ?

Je conçois que si tu ne l'émets pas, tu ne peux y incorporer une macro !

Dans ce cas tu adaptes la macro : tu supprimes l'argument frec dans la première ligne, et dans la suite du code tu remplaces frec par "Formulaire" (avec les guillemets, si c'est bien le nom du fichier).

Il te faudra la lancer, elle ne se lancera plus toute seule.

TheCrow
 Posté le 24/04/2014 à 18:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Oui je me repete ca doit etre l'age!

Ca ne fonctionne pas, j'ai tenté des deux facons meme si pour moi le mieux serait que je lance la macro moi-même.

Voici ce que j'ai fait mais ca bloque au niveau du With ThisWorkbook.Worksheets(1)

Dim n%, i%, lig250 As Range
With ThisWorkbook.Worksheets(1)
n = .Cells(.Rows.Count, 1).End(xlUp).Row
If n < 10 Then n = 10
Set lig250 = Workbooks(Formulaire).Worksheets(1).Rows(250)
For i = 11 To n
If .Cells(i, 1).Value = lig250.Cells(1, 1).Value Then
.Rows(i).Value = lig250.Value
Exit Sub
End If
Next i
.Rows(n + 1).Value = lig250.Value
End With
End Sub


Sub Macro1()

End Sub

ferrand
 Posté le 24/04/2014 à 20:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Set lig250 = Workbooks(Formulaire).Worksheets(1).Rows(250)

Le nom du fichier est une chaîne, donc guillemets... Et autant pour moi ! l'extension fait partie du nom de fichier.

Set lig250 = Workbooks("Formulaire.xls").Worksheets(1).Rows(250)

TheCrow
 Posté le 25/04/2014 à 13:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Ben oui toi...une belle erreur de débutant!

J'ai modifié le tout et ca fonctionne très bien sur mon formulaire test, je vais faire mon vrai formulaire et si tout fonctionne aussi bien je viendrai fermer le sujet!

Merci de ton aide!

TheCrow
 Posté le 29/04/2014 à 16:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Alors tout fonctionne a la perfection..mais comme ca arrive souvent mes collegues ont demandés de changer un truc

Si le nom du fichier formulaire change a chaque envoi mais que dans le nom du fichier le mot formulaire est toujours inscrit

Exemple:

formulaire 101

12 juin formulaire 253

572 formulaire

J'aimerais que la macro fasse les memes étapes pour ces 3 exemples vu que les 3 ont le mots formulaire dans leur nom...est-ce possible?

C'est tout ce qui me manque pour avoir fini mon document, enfin!

ferrand
 Posté le 29/04/2014 à 22:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Reprenons !

Option Compare Text

Sub Récap()
Dim n%, i%, frec$, lig250 As Range, wkb As Workbook
For Each wkb In Application.Workbooks
If wkb.Name Like "*form*" Then
frec = wkb.Name
End If
Next wkb
If frec = "" Then Exit Sub
With ThisWorkbook.Worksheets(1)
n = .Cells(.Rows.Count, 1).End(xlUp).Row
If n < 10 Then n = 10
Set lig250 = Workbooks(frec).Worksheets(1).Rows(250)
For i = 11 To n
If .Cells(i, 1).Value = lig250.Cells(1, 1).Value Then
.Rows(i).Value = lig250.Value
Workbooks(frec).Close False
Exit Sub
End If
Next i
.Rows(n + 1).Value = lig250.Value
End With
Workbooks(frec).Close False
End Sub

en rouge les changements.

Ne pas omettre l'option en tête de module pour que "Form" et "form" soit assimilés comme étant pareils.

Les deux lignes contenant "Close", qui ferment le classeur formulaire après usage sont optionnelles : s'il y a plusieurs classeurs à traiter ouverts en même temps, la macro n'en traitera qu'un, si elle le ferme, il suffira de la relancer pour qu'elle traite le suivant, et ainsi de suite.

On pourrait faire traiter plusieurs classeurs en ne lançant qu'une fois la macro mais il faut alors réorganiser les boucles et faire une petite adaptation...

Publicité
TheCrow
 Posté le 06/05/2014 à 16:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Ca fonctionne a merveilles!!!! Merci beaucoup

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
779,99 €PC Portable 15,6 pouces Lenovo Legion Y540 (Core i8, 8 Go, SSD 256 Go, GTX 1660 Ti 6 Go) à 779,99€
Valable jusqu'au 26 Octobre

Cdiscount fait une promotion sur le PC portable Lenovo Legion Y540 (15IRH) dédié aux joueurs qui passe à 779,99 € au lieu de 1200 €. Ce PC portable très bien équipé  possède un écran 15,6 pouces IPS LED Full HD, un processeur Intel Core i5-9300H, 8 Go de RAM, un SSD NVME de 256 Go et une carte graphique GeForce GTX 1660 Ti 6 Go dédiée qui avalera tous vos jeux sans broncher. Le tout tourne sous Windows 10.


> Voir l'offre
169,95 €Ecran 24 pouces ViewSonic XG2405 (FullHD, 144Hz, IPS, 1ms, FreeSync/G-Sync) à 169,95 €
Valable jusqu'au 26 Octobre

Materiel.net fait une promotion l'écran 24 pouces ViewSonic XG2405 qui passe à 169,95 €On le trouve ailleurs autour de 200 €. Le ViewSonic XG2405 est un écran gamer 24 pouces conçu sur la base d'une dalle IPS. Idéal pour les joueurs à la recherche d'un écran efficace, il propose des caractéristiques techniques équilibrées : résolution Full HD, taux de rafraîchissement de 144 Hz, temps de réponse de 1 ms et compatibilité FreeSync / G-Sync. Précision, rapidité et fluidité sont réunis dans cet écran !


> Voir l'offre
29,99 €SSD Kingston A400 240 Go à 29,99 €
Valable jusqu'au 25 Octobre

Amazon fait une promotion sur le SSD Kingston A400 240 Go qui passe à 29,99 € livré gratuitement alors qu'on le trouve autour de 35 € ailleurs. Il offre des débits de 450 Mo/s en écriture et 500Mo/s en lecture.


> Voir l'offre

Sujets relatifs
(Macro) Copier onglet sur autre fichier Excel (2007)
Copier plage de celules vers autre feuille sous condition
Copier tableaux vers autre feuille sous condition
EXCEL RECHERCHEV pour autre fichier. Macro?
copier un dd externe vers un autre dd externe
macro excel copier collage special vers word
Transférer donnée excel vers un autre fichier exce
Copier-Coller Cellule vers fichier Txt
Ouvrir avec macro un fichier dans autre classeur
Lien hypertexte vers autre fichier ppt et retour
Plus de sujets relatifs à Macro Copier ligne vers un autre fichier
 > Tous les forums > Forum Bureautique