Copier coller depuis une page de reference variable

manzlem Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
manzlem Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 19 août 2015 à 09:31

Bonjour,

Je souhaiterai rassembler des informations sur une feuille grace a une macro qui ferai des copier coller depuis des feuilles de calculs variables mais ou l'information serai toujours a la meme place sur la feuille.

Le probleme que je rencontre actuellement est que ma macro possede comme premiere ligne

Windows("xxxxx.xls").Activate

Elle rempli donc correctement sa tache pour ce document mais des que je dois passer au prochain elle me re copie colle les memes informations ou si le document "xxxxx.xls" n'est pas ouvert il me dit qu'il y a un bug. Chose normal j'en conviens mais du coup je en sais pas comment arriver a mes fins si vous avez une idee je suis preneur.

Merci d'avance et bonne journee

A voir également:

Copier coller depuis une page de reference variable
Supprimer une page word - Guide
Historique copier coller - Guide
Copier coller pdf - Guide
Copier-coller - Accueil - Informatique
Style d'écriture a copier coller - Guide

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

Bonsoir Manzlem, bonsoir le forum,

Un classeur (ou fichier Excel) contient plusieurs onglets (ou feuilles). Ton énoncé est confus. Tu veux :

Récupérer des données de plusieurs fichiers ?

- Quel est le chemin d'accès du dossier contenant les fichiers
- S'agit-il de TOUS les fichiers de ce dossier ?
- Uniquement certains fichiers du dossier ?
> qu'est-ce qui les différencie ?
- Les données à récupérer sont toutes dans le même onglet du classeur
> son nom ou sa position

Récupérer les données de plusieurs onglets d'un même classeur

- qu'est-ce qui les différencie ?

Tu as besoin d'aide alors fait l'effort d'être clair !... Puisque tu as déjà un code pourquoi ne le fournis-tu pas ?...

manzlem Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Bonjour,

Desole si mon post manque d'information je ne savais pas trop de quoi vous avez besoin.

le chemin d'acces du dossier est C:\Kombi_Saw_Link et tous les fichiers de se dossier seront a traite mais un part un et la nouvelle version de ce fichier sera enregistre egalement dans ce meme dossier.

Seul leur noms et la taille du fichier va changer mais j'aimerai bien qu il y ai une etape ou on puisse choisir le dossier manuellement.

Actuellement je fais un copier coller manuel de la feuille que je colle sur la deuxieme page de mon classeur ou je veux rassembler mes informations. Mais il existe surement une facon de le faire automatiquement

Sub Copy_Paste()
'
' Copy_Paste Macro
' Macro recorded 18/08/2015 by Miker
'

'
    Range("B2") = "=MID(Sheet2!R1C3,1,1)"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:P2"), Type:=xlFillDefault
    Range("B2:P2").Select
    Range("C2") = "=MID(Sheet2!R1C3,2,1)"
    Range("D2") = "=MID(Sheet2!R1C3,3,1)"
    Range("E2") = "=MID(Sheet2!R1C3,4,1)"
    Range("F2") = "=MID(Sheet2!R1C3,5,1)"
    Range("G2") = "=MID(Sheet2!R1C3,6,1)"
    Range("H2") = "=MID(Sheet2!R1C3,7,1)"
    Range("I2") = "=MID(Sheet2!R1C3,8,1)"
    Range("J2") = "=MID(Sheet2!R1C3,9,1)"
    Range("K2") = "=MID(Sheet2!R1C3,10,1)"
    Range("L2") = "=MID(Sheet2!R1C3,11,1)"
    Range("M2") = "=MID(Sheet2!R1C3,12,1)"
    Range("N2") = "=MID(Sheet2!R1C3,13,1)"
    Range("O2") = "=MID(Sheet2!R1C3,14,1)"
    Range("P2") = "=MID(Sheet2!R1C3,15,1)"
    Range("Q2") = "=MID(Sheet2!R1C4,1,1)"
    Range("Q2").Select
    Selection.AutoFill Destination:=Range("Q2:AT2"), Type:=xlFillDefault
    Range("Q2:AT2").Select
    Range("R2") = "=MID(Sheet2!R1C4,2,1)"
    Range("S2") = "=MID(Sheet2!R1C4,3,1)"
    Range("T2") = "=MID(Sheet2!R1C4,4,1)"
    Range("U2") = "=MID(Sheet2!R1C4,5,1)"
    Range("V2") = "=MID(Sheet2!R1C4,6,1)"
    Range("W2") = "=MID(Sheet2!R1C4,7,1)"
    Range("X2") = "=MID(Sheet2!R1C4,8,1)"
    Range("Y2") = "=MID(Sheet2!R1C4,9,1)"
    Range("Z2") = "=MID(Sheet2!R1C4,10,1)"
    Range("AA2") = "=MID(Sheet2!R1C4,11,1)"
    Range("AB2") = "=MID(Sheet2!R1C4,12,1)"
    Range("AC2") = "=MID(Sheet2!R1C4,13,1)"
    Range("AD2") = "=MID(Sheet2!R1C4,14,1)"
    Range("AE2") = "=MID(Sheet2!R1C4,15,1)"
    Range("AF2") = "=MID(Sheet2!R1C4,16,1)"
    Range("AG2") = "=MID(Sheet2!R1C4,17,1)"
    Range("AH2") = "=MID(Sheet2!R1C4,18,1)"
    Range("AI2") = "=MID(Sheet2!R1C4,19,1)"
    Range("AJ2") = "=MID(Sheet2!R1C4,20,1)"
    Range("AK2") = "=MID(Sheet2!R1C4,21,1)"
    Range("AL2") = "=MID(Sheet2!R1C4,22,1)"
    Range("AM2") = "=MID(Sheet2!R1C4,23,1)"
    Range("AN2") = "=MID(Sheet2!R1C4,24,1)"
    Range("AO2") = "=MID(Sheet2!R1C4,25,1)"
    Range("AP2") = "=MID(Sheet2!R1C4,26,1)"
    Range("AQ2") = "=MID(Sheet2!R1C4,27,1)"
    Range("AR2") = "=MID(Sheet2!R1C4,28,1)"
    Range("AS2") = "=MID(Sheet2!R1C4,29,1)"
    Range("AT2") = "=MID(Sheet2!R1C4,30,1)"
    Range("AU2") = "=MID(Sheet2!R2C4,1,1)"
    Range("AU3:AZ3").Select
    Range("AU2").Select
    Selection.AutoFill Destination:=Range("AU2:AZ2"), Type:=xlFillDefault
    Range("AU2:AZ2").Select
    Range("AV2") = "=MID(Sheet2!R2C4,2,1)"
    Range("AW2") = "=MID(Sheet2!R2C4,3,1)"
    Range("AX2") = "=MID(Sheet2!R2C4,4,1)"
    Range("AY2") = "=MID(Sheet2!R2C4,5,1)"
    Range("AZ2") = "=MID(Sheet2!R2C4,6,1)"
    Range("BA2") = "=MID(Sheet2!R3C4,1,1)"
    Range("BA2").Select
    Selection.AutoFill Destination:=Range("BA2:BF2"), Type:=xlFillDefault
    Range("BA2:BF2").Select
    Range("BB2") = "=MID(Sheet2!R3C4,2,1)"
    Range("BC2") = "=MID(Sheet2!R3C4,3,1)"
    Range("BD2") = "=MID(Sheet2!R3C4,4,1)"
    Range("BE2") = "=MID(Sheet2!R3C4,5,1)"
    Range("BF2") = "=MID(Sheet2!R3C4,6,1)"
    Range("BG2") = "=MID(Sheet2!R3C5,1,1)"
    Range("BG2").Select
    Selection.AutoFill Destination:=Range("BG2:BK2"), Type:=xlFillDefault
    Range("BG2:BK2").Select
    Range("BH2") = "=MID(Sheet2!R3C5,2,1)"
    Range("BI2") = "=MID(Sheet2!R3C5,3,1)"
    Range("BJ2") = "=MID(Sheet2!R3C5,4,1)"
    Range("BK2") = "=MID(Sheet2!R3C5,5,1)"
    Range("BL2") = "=MID(Sheet2!R3C6,1,1)"
    Range("BL2").Select
    Selection.AutoFill Destination:=Range("BL2:BP2"), Type:=xlFillDefault
    Range("BL2:BP2").Select
    Range("BM2") = "=MID(Sheet2!R3C6,2,1)"
    Range("BN2") = "=MID(Sheet2!R3C6,3,1)"
    Range("BO2") = "=MID(Sheet2!R3C6,4,1)"
    Range("BP2") = "=MID(Sheet2!R3C6,5,1)"
    Range("BQ2") = "=MID(Sheet2!R3C3,1,1)"
    Range("BQ2").Select
    Selection.AutoFill Destination:=Range("BQ2:BS2"), Type:=xlFillDefault
    Range("BQ2:BS2").Select
    Range("BR2") = "=MID(Sheet2!R3C3,2,1)"
    Range("BS2") = "=MID(Sheet2!R3C3,3,1)"
    Range("BQ3:BS3").Select
    Range("BY2") = "=MID(Sheet2!R3C2,1,1)"
    Range("BY2").Select
    Selection.AutoFill Destination:=Range("BY2:CC2"), Type:=xlFillDefault
    Range("BY2:CC2").Select
    Range("BZ2") = "=MID(Sheet2!R3C2,2,1)"
    Range("CA2") = "=MID(Sheet2!R3C2,3,1)"
    Range("CB2") = "=MID(Sheet2!R3C2,4,1)"
    Range("CC2") = "=MID(Sheet2!R3C2,5,1)"
    Range("BY3:CC3").Select
    Range("CI2") = "=MID(Sheet2!R3C17,1,1)"
    Range("CI2").Select
    Selection.AutoFill Destination:=Range("CI2:CU2"), Type:=xlFillDefault
    Range("CI2:CU2").Select
    Range("CJ2") = "=MID(Sheet2!R3C17,2,1)"
    Range("CK2") = "=MID(Sheet2!R3C17,3,1)"
    Range("CL2") = "=MID(Sheet2!R3C17,4,1)"
    Range("CM2") = "=MID(Sheet2!R3C17,5,1)"
    Range("CN2") = "=MID(Sheet2!R3C17,6,1)"
    Range("CO2") = "=MID(Sheet2!R3C17,7,1)"
    Range("CP2") = "=MID(Sheet2!R3C17,8,1)"
    Range("CQ2") = "=MID(Sheet2!R3C17,9,1)"
    Range("CR2") = "=MID(Sheet2!R3C17,10,1)"
    Range("CS2") = "=MID(Sheet2!R3C17,11,1)"
    Range("CT2") = "=MID(Sheet2!R3C17,1,1)"
    Range("CT2") = "=MID(Sheet2!R3C17,13,1)"
    Range("CU2") = "=MID(Sheet2!R3C17,14,1)"
    Range("CI3:CU3").Select
End Sub

En tout cas merci de votre attention et encore desole si je ne m exprime pas bien.

Bonne journee

Damien

Discussions similaires

dessin avec symbole clavier

dessin au clavier cannabis

Votre réponse

Discussions similaires