VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA

ludo1638

Bonjour à tous,

J'ai besoin d'aiiiiide svp :sweat:

Je n'arrive pas a faire une macro.

J’ai 6 fichiers :
• 5 qui sont mes sources : B1, B2, B3, B4, B5
‐ L’emplacement de mes données sont toujours au même endroit dans chaque fichier :
‐ Feuil1/ (F6:F46)
• 1 qui est ma cible (ou je veux coller mes données)
‐ Les emplacements sont différent : TdB B1/(F6 :F46) ; TdB B2/(F6 :F46) ;(…) ; TdB B5/(F6 :F46)

Mon objectif en activant ma macro :
Faire s’ouvrir les 5 fichiers sources et copier/coller aux emplacements ci-dessus puis fermer les fichiers sources.

Un grand merci pour votre aide et votre soutien pour mes début en VBA

Ludo

Publicité

charognard37

Vivement la retraite !

Bonjour

Tu copie/colle ça dans un nouveau Module sur le fichier de synthèse
Avec quelques commentaires fournis en explication
A noter : il faut que Les onglets 'TdB B1', 'TdB B2' …. existent

Const Chemin = "C:\Users\XXX\Documents\" 'A changer par ton répertoire
Sub HARDWARE() 'Il fallait bien un nom !
CopiePlage "B1.xlsx", "Feuil1!F6:F46", "'TdB B1'!F6" 'Copie des données de B1
CopiePlage "B2.xlsx", "Feuil1!F6:F46", "'TdB B2'!F6" 'Copie des données de B2
CopiePlage "B3.xlsx", "Feuil1!F6:F46", "'TdB B3'!F6" 'Copie des données de B3
CopiePlage "B4.xlsx", "Feuil1!F6:F46", "'TdB B4'!F6" 'Copie des données de B4
CopiePlage "B5.xlsx", "Feuil1!F6:F46", "'TdB B5'!F6" 'Copie des données de B5
End Sub

'Definition de la procédure de copie
Private Sub CopiePlage(Fichier, Plage, Destination)
Workbooks.Open Filename:=Chemin & Fichier 'Ouvre un fichier
Range(Plage).Copy 'Sélection et copie de la plage
ActiveWindow.Close (False) 'Fermeture du fichier
Range(Destination).PasteSpecial 'Sélection de la destination et copie des cellules
End Sub

Conseils :
- Ajoute l'onglet développeur en allant dans le menu Fichier/Options/Personnaliser le ruban
- N'oublie pas que même si tu ne sais pas trop programmer tu peux faire 'Enregistrer une macro', faire ta séquence à la mano, Arréter l'enregistrement et tu aura ton code quasi fait.

Message édité par charognard37 le 04-09-2018 à 07:12:46

charognard37

Vivement la retraite !

Voici une autre version qui n'ouvre pas les fichiers

Const Chemin = "C:\Users\XXX\Documents\" 'A changer par ton répertoire
Sub HARDWARE() 'Il fallait bien un nom !
CopiePlage "B1.xlsx", "Feuil1", "TdB B1" 'Copie des données de B1
CopiePlage "B2.xlsx", "Feuil1", "TdB B2" 'Copie des données de B2
CopiePlage "B3.xlsx", "Feuil1", "TdB B3" 'Copie des données de B3
CopiePlage "B4.xlsx", "Feuil1", "TdB B4" 'Copie des données de B4
CopiePlage "B5.xlsx", "Feuil1", "TdB B5" 'Copie des données de B5
End Sub

'Definition de la procédure de copie
Private Sub CopiePlage(Fichier, Origine, Destination)
ThisWorkbook.Names.Add Name:="plage", RefersTo:="='" & Chemin & "[" & Fichier & "]" & Origine & "'!$F$6:$F$46"
With Sheets(Destination)
.[F6:F46] = "=plage"
.[F6:F46].Copy
Sheets(Destination).Range("F6" ).PasteSpecial xlPasteValues
End With
End Sub

Message édité par charognard37 le 04-09-2018 à 03:09:31

ludo1638

Merci pour ton aide, j'avoue ne pas tout saisir… mais je vais me pencher sur l

ludo1638

Merci pour ton aide Charognard37,
j'avoue ne pas tout saisir… mais je vais me pencher sur la question

Sais tu ouvrir un fichier excel en macro stp ? (qui est sur un lien Dropbox)

charognard37

Vivement la retraite !

Sauvegarde en XLSM

z_cool

HFR profile rating:⭐⭐⭐⭐

Je suis pas sur mais à mon avis la question n a rien à voir avec le hardware

Message cité 1 fois

---------------
#mais-chut

jean pierre

https://forum.hardware.fr/hfr/Progr [...] ujet-1.htm

un indice pour lieu plus adapter

---------------
Jean Pierre

charognard37

Vivement la retraite !

z_cool a écrit :

Je suis pas sur mais à mon avis la question n a rien à voir avec le hardware

Un vague rapport quand même !
VBA --> Excel --> Microsoft --> Windows --> Intel --> Processeur --> Hardware

Remarque ça marche aussi pour
VBA ---> Excel --> Tableur --> Lotus --> Papier toilette --> Caca mou --> Kamolox

Message édité par charognard37 le 04-09-2018 à 19:16:17

ludo1638

Merci pour le lien Vous le voyez j'étais vraiment pas sur la bonne voie Quoi qu'il en soit merci pour les conseils ! ca fonctionne maintenant.

FORUM HardWare.fr

Hardware

Bench

VBA

Sujets relatifs
VBA : MACRO pour copier des lignes sous condition	Registre à décallage VBA
Excel 2007 VBA Aide formule simple	Problème codage VBA
Création d'une action en VBA Excel - Besoin d'aide	Code VBA pour majuscules qui plante
pb d'incompatibilité de type sous Vba
Plus de sujets relatifs à : VBA

Page générée en 0.072 secondes