Syntaxe Copier/coller vers un autre fichier dans VBA.

Bonjour j'ai besoin d'aide encore une fois,

Je dois importer un tableau de bord d'un fichier excel vers un autre.
Je pense le faire en visual basic avec du code.
Mais dans mon code il y a une partie que je n'arrive pas à ecriture (manque de connaissance de ma part) et c'est le plus important.

Voici mon code (algo) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

FONCTION bouton_actu () VAR li_deb, li_fin, col_deb, col_fin, i, j, case_deb, case_fin :entier DEBUT afficher("A quelle ligne commence le tableau ?") saisir (li_deb) afficher("A quelle ligne se termine le tableau ?") saisir (li_fin) afficher("A quelle colonne commence le tableau ?") saisir (col_deb) afficher("A quelle colonne se termine le tableau ?") saisir (col_fin) POUR i DE li_deb A li_fin FAIRE POUR j DE col_deb A col_fin FAIRE /*copier/coller de la case vers l'autre ou transpose*/ SI (case_deb="") ALORS case_fin="" /*car kan la case de depart est vide lorsque je la transpose il me met un 0 au lieu de laisser vide dans le nouveau fichier.*/ FSI FPR FPR FINFONCT

---

Alors c'est pour le copier/coller que j'aurais besoin d'aide.
Je pense qu'il faut ouvrir un nouveau fichier (il existe deja) donc de preciser son chemin mais apres le flou.

Et si vous avez une amélioration à proposer pour le code je suis également preneur.

Merci de bien vouloir m'aider.
Benjycool

Salut benjicool,

puis-je te suggérer de nous montrer le code VBA que tu arrives à créer plutôt que ton ALGO ?

cela sera la base de travail... !;)

Ok pas de probleme, j'ai un peu avancé tout de même et je pense avoir trouvé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click()   /*Les lignes et colonnes sont connues*/   Dim cl1 As Workbook, cl2 As Workbook Dim f1 As Worksheet, f2 As Worksheet   Set cl1 = ActiveWorkbook Set f1 = cl1.Worksheets("Feuil1")   Workbooks.Open "G:\Cours\Stage\Stage 2eme année\test2.xls" For i = 2 To 6 For j = 1 To 3 Set cl2 = ActiveWorkbook Set f2 = cl2.Worksheets("Feuil1") f2.Cells(i, j).Value = f1.Cells(i, j).Value Next j Next i   End Sub

---

Toute mes données du tableau sont exportés vers cl2 mais je n'arrive pas à avoir la même mise ne page (pas les bord en gras et pas de couleur ainsi que les mêmes largeurs et longueur).
Comment je peut faire ???

Benjycool

Il suffit d'utiliser la méthode .Copy pour copier les cellules et ainsi copier également la mise en page.

Et pas besoin de boucle. tu peux travailler avec le range de cellules nécessaires. (A2:C6)

Code:

---

1 2 3

f1.range("A2:C6").copy f2.range("A2:c6").paste

---

(non testé....)

Ok j'ai essayer mais ca na pas marcher je vous montre mon code puis le message d'erreur survenue :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim cl1 As Workbook, cl2 As Workbook Dim f1 As Worksheet, f2 As Worksheet   Set cl1 = ActiveWorkbook Set f1 = cl1.Worksheets("Feuil1")   Workbooks.Open "G:\Cours\Stage\Stage 2eme année\test2.xls"   Set cl2 = ActiveWorkbook Set f2 = cl2.Worksheets("Feuil1") f1.Range("A6").Copy f2.Range("A6").Paste

---

Erreur d'éxécution '438':
Propriété ou méthide non gérée par cet objet.

Que faire ???

Benjycool

Essaye de remplacer

Code:

---

1 2	f1.Range("A6").Copy f2.Range("A6").Paste

---

par

Code:

---

f1.Range("A6").Copy f2.Range("A6")

---

Ok c'est bon, la synatxe est bonne, merci beaucoup.

Code:

---

1 2	f1.Range("A2", "B6").Copy f2.Paste Destination:=f2.Range("A2", "B6")

---