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
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
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..
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