Macro via VBA

Bonjour à tous,

Quelqu'un pourrait-il m'aider à créer une macro via un code VBA svp?

En effet, je souhaite inserer (copier coller) les données contenues dans un classeur "mono onglet" (que je nomme "Stat Juin 09") dans une feuille d'un fichier (qui s'appelle "Stat P°par Matricule Juin 09").

Remarque le collage doit se faire à partir de la cellulle A1 !

Voilà quelques lignes de ce fichier après collage:

Le fichier source (Stat Juin 09) s'étend de la colonne A à R (feuille 2), et les formules du fichier final vont de la colonne S à Z, en fait je voudrais pouvoir conserver ces formules comme modèle de feuille en y effectuant la macro, les données viendront remplir l'espace vide et les formules s'effectueront sachant que le fichier source est un fichier mensuel.

J'espère avoir été assez clair

Merci de votre aide

Oups j'ai oublier le fichier, le voilà

https://www.excel-pratique.com/~files/doc2/DzH18Forum2.xls

Bonjour,

Pourquoi dupliquer le fil --> https://www.excel-pratique.com/forum/viewtopic.php?p=72938&

et ne pas rester sur celui-là plutôt que d'en créer un deuxième ??

De plus j'ai regardé ton fichier qui n'est pas évident à comprendre. Peux-tu réexpliquer ?

Amicalement

Dan

Bonjour Dan,

J'ai dubliqué le fil car en me relisant je me suis rendu compte que mes explications n'étaient pas très clair et ne savant pas comment l'effacer j'en en ai fait un second.

Mais apparement celui-ci également

Donc mon pb est que j'aimerais bien copier coller de manière automatique (macro) d'un fichier A ("Forum") à un fichier B (Forum2) se trouvant dans des répertoires différents de sorte que les colonnes A à R de "Forum2" soient remplies des champs de "Forum", pour avoir le fichier Résultat

Forum: https://www.excel-pratique.com/~files/doc2/7xIkUForum.xls

Forum2: https://www.excel-pratique.com/~files/doc2/xFG15Forum2.xls

Résultat: https://www.excel-pratique.com/~files/doc2/Resultat.xls

Pourrais-tu m'aider stp?

Merci

Bonjour,

C'est exactement le même genre de demande qu'ici --> https://www.excel-pratique.com/forum/viewtopic.php?t=12483

En modifiant une ligne du code cela donne celui-ci :

Sub copie()
'Macro dan pour madma le 25/07/09 - XL pratique
'http://www.excel-pratique.com/forum/viewtopic.php?t=12547
Dim monfichier As String
Dim wkfinal As Workbook
mavariable = Application.GetOpenFilename()
On Error GoTo fin
Workbooks.Open mavariable
Set wkfinal = ActiveWorkbook
ThisWorkbook.Sheets(1).UsedRange.Copy Destination:= _
wkfinal.Sheets(1).Range("A" & wkfinal.Sheets(1).Range("A65536").End(xlUp).Row + 1)
Exit Sub
fin:
MsgBox "vous avez effectué une mauvaise opération"
End Sub

Code à placer dans le fichier FORUM (fichier A) en VBA dans un module.

Amicalement

Dan

Merci Dan

J'essaye demain au boulot et je te dis ce qu'il en est

a+

Re,

Ok. Toutefois petite erreur dans mon code. remplace

Dim monfichier As String

par

Dim mavariable as string

A te relire

Dan

PS : Si ton pb est terminé, merci de mettre RESOLU sur le fil. Explications --> https://www.excel-pratique.com/forum/viewtopic.php?t=13

Salut DAN,

Merci ça marche bien effectivement

Encore Merci

a+