Gestion de fichier vba

Version imprimable

24/04/2012, 15h52
higaran

Gestion de fichier vba

Bonjour à tous,

Suite a des recherches infructueuses je me tourne vers vous pour résoudre mon problème.

Donc voila mon problème:

J'ai actuellement réaliser un application en vba dans un classeur excel (disons le classeur1) et cette application a besoin d'aller chercher des données, seulement pour la lecture, dans un autre classeur (classeur2).

Je n'arrive pas à récupérer les données dans le classeurs 2.

Si quelqu'un peux m'aider

J'espère avoir était assez clair dans l'énoncé de mon problème

Merci ;)

Voila ce que j'ai essayer de bricoler Mais ca ne marche pas trop si quelqu'un a une solution je suis preneur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim classeur_maitre As String
    Dim classeur_2 As String
 
    classeur_maitre = ActiveWorkbook.Name
    MsgBox classeur_maitre
 
    Workbooks.Open Filename:= _
    "C:\Users\coucou\Desktop\DSV\tralala - 2012.xls"
    classeur_geodis = ActiveWorkbook.Name
    MsgBox classeur_2
    Workbooks(classeur_maitre).Activate
    Application.WindowState = xlMinimized
    MsgBox (Feuil1.Cells(2, 1))
    Workbooks(classeur_2).Activate
 
    Form.Show

Merci

24/04/2012, 16h46
phil-

ce tuto peux t'aider

http://silkyroad.developpez.com/VBA/ClasseursFermes/

j'y ai trouvé une bonne partie de mes reponses pour un probleme identique
24/04/2012, 17h00
rvtoulon

La grande question c'est que si tu veux recevoir plus d'aide il faut qu'on en sache plus sur ce que tu souhaites faire!!

tu veux récupérer des données oui mais dans quelle feuille?
dans quelle plage de cellule ?
et tu veux les mettre ou ces données?

merci d'en dire un peu plus car avec le code que tu as mis on peux pas trop t'aider, sauf t'encourager bien lire le tutos que phil- à mis en lien.

espérant pouvoir t'aider
24/04/2012, 17h10
higaran

D'abord merci pour ton lien j'ai regarder un peu mais je ne sais pas si il n'existe pas une solution plus simple

En gros j'ai créer un logiciel qui permet le calcul des frais de transports dans le cadre de commande passé auprès d'une entreprise

Dans le cas d'expédition internationale, les transporteurs on différents tarifs selon chaque pays.

Ainsi, par exemple j'ai les tarifs d'un transporteur X dans un classeur, où chaque feuil représente une grille de tarif pour un pays. Je doit donc récupérer dans la bonne grille le bon tarif en fonction du poids et de la zone géographique du pays.

petit exemple je saisie mes différentes information dans mon formulaire du classeur1, je fait mais différents calcul ect ... L'utilisateur précise que c'est une expédition pour l'allemagne avec le transporteur X dans la zone de berlin. Ainsi je doit trouver le pris dans mon classeur deux correspondant au poids de ma commande pour la zone de berlin.

c'est cette accès aux données qui me pose problèmes.

J'espère avoir réussi a éclaircir mon problème :(

un exemple:
j'ai un classeur source et un classeur 2.
je veux mettre dans la feuille 1 cellule A1 du classeur 1, la valeur de la feuille 1 cellule A1 du classeur 2 :
Code:

1 2 3 4 5 6 7 8 9 Sub test() Dim wk1 As Workbook, wk2 As Workbook 'classeur de départ Set wk1 = ThisWorkbook 'classeur 2 Set wk2 = Workbooks.Open("c:\test\test.xls") wk1.Sheets("Feuil1").Range("A1").Value = wk2.Sheets("Feuil1").Range("A1").Value wk2.Close End Sub
inspire toi de ceci pour commencer.

25/04/2012, 08h15
higaran

Merci grâce a votre aide j'ai réussi a faire ce que je voulais
Merci de votre réactivité :mrgreen: