Copie de celluls d'un claseur fermé a un classeur ouvert

Signaler
-
 Sharox -
Bonjour,

Je souhaiterais avoir de l'aide mais si possible pas de liens svp
Je suis novice dans ce domaine et j'aimerais en plus d'un programme qui fonctionne des explications.
.
-Je vous expose mon problème :
.
J'ai deux classeur (classeur1.xls et classeur2.xls)
dans chacun de ces classeur il y a respectivement une feuille (feuille1_c1 et feuille1_c2)
.
Dans la feuille1_c1 il y a des cellules pleines d'informations
Dans la feuille1_c2 il y a rien et c'est la que je voudrait programmer un bouton qui permettrais d'importer les infos de la feuille1_c1 a cette feuille.
Les deux classeurs se situe dans ce répertoire "C:\User\Documents\test\"
.
Il me semble que j'ai donné toutes les informations
-Voila ce que je veux faire maintenant :
.
Dans la feuille1_c2 du classeur2 quant' on appuie sur le bouton
il y a les informations de la feuille1_c1 du classeur1 (plage H2:H50)
qui se copie dans la feuille1_c2 du classeur2 (plage A2:A50) sans ouvrir le classeur1
.
Ensuite si vous trouvez ceci simple vous pouvez ajouter une boucle if
qui est définie par :
.
Dans la colonne H
copier de H2 jusqu'à H(inconnu) tant que H n'est pas vide
Si H est vide la copie s'arrête et on va coller ce qu'on a copier dans l'autre classeur
.
Je pense que j'ai bien exprimé pour vous expliquer, si vous ne comprenez pas vous le dites
Je vous Remercie d'avance

5 réponses

excusé moi pour ma faute d'expression a la fin de ma demande.
Et si j'ai fait un post c'est justement que je ne comprend pas toutes les méthodes qui sont sur Internet

C'est pourquoi j'ai demandé des explications en plus de l'écriture...
Mais bon
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
229
Bonjour,
"Je pense que j'ai bien exprimé pour vous expliquer, si vous ne comprenez pas vous le dites "
et je pense, moi, que ce que tu trouveras ici :
http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture
est également bien exprimé. Si tu ne comprends, tu le dis ...
Messages postés
29888
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
26 octobre 2020
338
Bonsoir,

Pas de lien ?
C'est dommage... car cette question est assez récurrente sur le net et il existe même des TUTOS à ce sujet.
En voici un par exemple :
http://www.commentcamarche.net/faq/32961-vba-excel-lire-dans-un-classeur-ferme


Par contre, Ucfoutu a raison de t'avoir donné le lien du règlement du site..
Nous ne fournissons pas de code "TOUT FAIT"....
Nous ne traitons, normalement, qu'UNE SEULE question par sujet..
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
229
Et une "boucle If" ??? C'est quoi, ce genre-là ?
LE BUT :
Faire un bouton qui copie une plage de donnée d'un fichier Excel fermé a un fichier ouvert (ou ce situe le bouton)


INTRODUCTION :
C:\Users\Documents
Est le chemin dans l'ordi pour les deux fichiers

clas1.xls est le fichier à prélever.
feuil1_1 est la feuille sur la quel on prélève.
H2 :H205 est la plage sur la quel sont les informations.

clas2.xls est le fichier à compléter.
Feuil1_2 est la feuille à compéter et ou ce situe le bouton.
A2 :A205 est la plage sur la quel on colle les informations.

CODAGE :
Sub CommandButton1_Click()
msgbox "Initialisation des valeurs" (facultatif)

Dim Chemin As String
Dim Fichier As String

Chemin = "C:\Users\Documents\"
Fichier = "clas1.xls"
ThisWorkbook.Names.Add "plage", _
RefersTo:="='" & Chemin & "[" & Fichier & "]feuil1_1'!$H$2:$H$205"
With Sheets("feuil1_2")
.[H2:H205] = "=plage"
.[H2:H205].Copy
Sheets("feuil1_2").Range("A2").PasteSpecial xlPasteValues
.[H2:H205].Clear
End With
End Sub