Copier Coller sur fichier.xls fermé

[gopo]

Bonjour a tous ! re pour quelque uns,

1\ Voilà je suis entrain de faire un programme en VBA, seul souci je veux copier des infos sur 30 fichiers xls... les ordinateurs où je suis impossible d'ouvrir 30 fichiers... comment puis je copier des cellules dans un classeur fermé ?

2\ Peut on remplacé

With ThisWorkbook.Sheets("[B]Paris Bercy[/B]")

Paris Bercy par la feuille active ( comprendre active par la feuille ou nous lancons la maccro

Merci de me lire, A+.

 

[Guest]

Re : Copier Coller sur fichier.xls fermé

bonjour gopo,

Pour la deuxième question:
Travailler sur la feuille active à l'appel de la macro

With ActiveSheet
 
End With

Pour la première ton énoncé est assez ambigüe:

tu veux lire des infos dans des fichiers fermés?

ou écrire des infos dans des fichiers fermés?

Dans les deux cas, quelle feuille(s), quelle(s) cellule(s)?

A+

 

[gopo]

Re : Copier Coller sur fichier.xls fermé

Merci d'avoir répondu,

Je voudrais Copier les celulle (1, i+1), (1, i+2); (1, i+3) de la feuille "Suivi restes" et les collées dans le classeur, feuille ou j'ai lancé la maccro.

A+

 

[Guest]

Re : Copier Coller sur fichier.xls fermé

Re,

Alors regarde en bas de cette page dans la section 'Discussions similaires' et/ou fait une recherche sur le forum avec les mot 'classeur fermé'.

C'est un sujet maintes fois traité.

A+

 

[gopo]

Re : Copier Coller sur fichier.xls fermé

Merci a toi d'avoir pris la peine de répondre !

J'ai trouver ceci

With [M54]
.Formula = "=[Atelier.xls]Feuil1!A2"
.AutoFill [M54:M60]
End With

Pouvez vous me dire a quoi sert ceci :

.Formula = "=[Atelier.xls]Feuil1!A2

J'imagine que cela Copie la la cellule A2 de la feuil1 du fichier Atelier.xls qui est fermé

Par contre pour ca :

.AutoFill [M54:M60]

Ca copie la donné dans M54, M55, M56 .... , M60 ?
comment remplacé ceci par une cellule ex : .AutoFill [variable_i & "54"] ? pour pouvoir incrémenté ma variable_i ..

Merci !

 

[Guest]

Re : Copier Coller sur fichier.xls fermé

Bonjour gopo,

Pour la première question:

With [M54]
.Formula = "=[Atelier.xls]Feuil1!A2"
.AutoFill [M54:M60]
End With

Cela créer une formule avec un lien vers un classeur ouvert
si tu veux créer le lien vers un classeur fermé:

.Formula="='CheminCompletVersLeFichier\[Book1.xls]Feuil11'!A2"

Avec le chemin complet vers le fichier sans oublier le \ final et les '

Pour la deuxième question,
je n'ai pas trop compris ce que tu voulais faire:
recopier la formule dans différentes colonnes?

A+

 

[gopo]

Re : Copier Coller sur fichier.xls fermé

Merci,

non je voudrais copier la celulle (variable_i, 52) de mon classeur fermé dans mon classeur ouvert.
remplacé M54:M60 par une cellule avec comme nom de colonne une variable

ps : (Colonne, Ligne)

 

[Guest]

Re : Copier Coller sur fichier.xls fermé

Re,

'Déclaration d'une variable string qui contiendra l'adresse de cellule source
 
Cells(52,Variable_i).Formula="='CheminCompletVersLeFichier\[Book1.xls]Feuil11'!" & Cells(52,Variable_i).Address

Comme tu ne dis pas si la cellule destination et la cellule source ont la même adresse, là j'ai mis la même pour les deux.

Pour plus de précision donnes nous un exemple complet.

A+

 

[gopo]

Re : Copier Coller sur fichier.xls fermé

Je vais tester ca demain .
Merci a toi , ca m'as l'air d'être ca... !

 

[gopo]

Re : Copier Coller sur fichier.xls fermé

Bonjour a tous,
Salut Hasco,

Sur la ligne de code :

Cells(52,Variable_i).Formula="='CheminCompletVersLeFichier\[Book1.xls]Feuil11'!" & Cells(52,Variable_i).Address

Le classeur ou je copie les Cells, est le classeur actif ( car je change de classeur toutes les semaines ) donc comment faire pour ne pas donner d'adresse de destination, et dire que la destination est le classeur ou l'on lance le module ?

Merci d'me Lire ! Bonne journée & bon appetit =)