> 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...

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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
276,24 €Scie à onglet radiale Bosch GCM 8 SJL (1600W, 216 mm) à 276,24 €
Valable jusqu'au 27 Octobre

Amazon fait une promotion sur la scie à onglet radiale Bosch GCM 8 SJL (1600W, lame 216 mm) qui passe à 276,24 € livrée gratuitement. On a la trouve ailleurs à partir de 370 €. 


> Voir l'offre
399,99 €Tablette 11 pouces Xiaomi Mi Pad 5 (120 Hz, Snapdragon 860, 6Go/128 Go, Android 11) à 399,99 €
Valable jusqu'au 27 Octobre

Fnac propose actuellement la nouvelle tablette 11 pouces Xiaomi Mi Pad 5 à 399,99 €. Cette superbe tablette possède un écran 11 pouces IPS WQHD+ (2560x1600 pixels) 120 Hz, un processeur Snapdragon 860 à 8 coeurs, 6 Go de RAM, 128 Go de stockage et tourne sous Android 11. Elle est compatible avec les stylets Xiaomi Smart Pen. 

Notez que jusqu'à 13h ce lundi, vous pourrez obtenir 20 € de remise supplémentaires avec le code REM20.


> Voir l'offre
18,99 €Clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C à 18,99 €
Valable jusqu'au 28 Octobre

Amazon fait une promotion sur la clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C qui passe à 18,99 €. Cette clé USB  dispose d'un connecteur réversible USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 40 €.


> 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