Discussion :

[Benjycool]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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

[Benjycool]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

(non testé....)

[Benjycool]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

Essaye de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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