Discussion :

[GWuigcos]

Bonjour à tous !

avant de parler de code j'aurais juste vouloir avoir votre avis pour savoir si ce que je souhaite faire est réalisable.

J'aurais un fichier principal qui sera muni d'une macro "calcul" qui effectuera un certain nombre d'opérations afin de sortir des tableaux de résultats, des graphiques, etc...
Pour obtenir ces résultats, il devra utiliser des données contenues dans des classeurs excels extérieurs.
L'idée c'est que l'utilisateur puisse choisir quel fichier utiliser pour l'importation des données. Admettons que les données soient mensuelles par exemple, il peut très bien vouloir calculer le mois de janvier, puis plus tard le mois de mars.
Pour cela je voudrais savoir s'il était possible de générer une boite de dialogue permettant à l'utilisateur de naviguer dans ses répertoires de façon à trouver le ficher qu'il souhaite importer. Puis ensuite la macro devra copier les données de ce classeur dans une feuille masquée dans le classeur de calcul.
En gros je voudrais éviter à l'utilisateur de taper lui-même le chemin d'accès vers son fichier dans une cellule.

Qu'en pensez-vous ?


Merci !

[casefayere]

Bonjour,
c'est possible mais :

...L'idée c'est que l'utilisateur puisse choisir quel fichier utiliser pour l'importation des données. Admettons que les données soient mensuelles par exemple, il peut très bien vouloir calculer le mois de janvier, puis plus tard le mois de mars. ...

ne serait'il pas préférable d'avoir un seul fichier de données avec des feuilles qui contiennent chaque mois ? A moins que je ne comprenne pas

[GWuigcos]

Oui effectivement ça serait préferable mais ce que je n'ai pas précisé c'est que ces fichiers sont issus d'un autre logiciel qui ne permet qu'une extraction des données mensuelles.

[casefayere]

Ok, dans ce cas, je réponds comme tu le demandes

avant de parler de code j'aurais juste vouloir avoir votre avis pour savoir si ce que je souhaite faire est réalisable.

c'est réalisable mais si tu n'es pas aguerri, il y a un peu de boulot

[GWuigcos]

Ok merci !

oui j'attendais d'avoir essayé quelques trucs avant de demander des conseils en code.
Après quelques recherches j'ai écris quelque chose comme ça :

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
 
Sub test2()
fichier = Application.GetOpenFilename
If fichier = False Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & fichier
Application.ScreenUpdating = False
Set fcalcul = ActiveWorkbook
Set fsource = Workbooks.Open(fichier)
Set fimpor = wbsource.Sheets("Feuil1")
fimpor.Activate
fimpor.Select
Range("A1:P100").Select
Selection.Copy
fcalcul.Activate
i = ActiveSheet.UsedRange.Rows.Count
Cells(i + 1, 1).Select
ActiveSheet.Paste
fsource.Close
fcalcul.Activate
 
End Sub

Le problème c'est que ce qu'il copie est trop grand pour le presse-papier et du coup il ne veux pas tout me coller dans mon fichier de calcul.
Comment remédier à ce problème ?

[casefayere]

Le problème c'est que ce qu'il copie est trop grand pour le presse-papier et du coup il ne veux pas tout me coller dans mon fichier de calcul.
Comment remédier à ce problème ?

il faut passer par des variables tableau, ça m'embête car je n'ai pas le temps sinon je t'aurais expliqué le fonctionnement, mais si tu n'es pas pressé......

De toutes façon, j'espère que d'autres abonnés compétents pourront te donner des conseils.

Bon courage

[GWuigcos]

Ah ok
en gros je dois boucler sur mon fichier de données pour remplir mon tableau de variables puis boucler pour écrire dans mon fichier calcul.
Je ne suis pas particulièrement pressé, mais si c'est bien ça je vais essayer de le faire, je mettrais à jour la discussion si j'y arrive.

En tout cas déjà merci !

[Marc-L]

Bonjour, bonjour,

déjà il est inutile de passer par le presse-papiers !

Suffit de directement préciser la destination de la copie, consulter l'aide de la méthode Copy associée à un Range …

[Invité]

Bonjour, bonjour,

déjà il est inutile de passer par le presse-papiers !

Suffit de directement préciser la destination de la copie, consulter l'aide de la méthode Copy associée à un Range …

Code Effectivement comme le précise Marc :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test2()
fichier = Application.GetOpenFilename
If fichier = False Then Exit Sub
'MsgBox "vous avez sélectionné le fichier " & fichier
Application.ScreenUpdating = False
Set fbcalcul = ActiveSheet
Set wbsource = Workbooks.Open(fichier)
Set fimpor = wbsource.Sheets("Feuil1")
fimpor.Range("A1:P100").Copy fbcalcul.Cells(fbcalcul.UsedRange.Rows.Count + 1, 1)
wbsource.Close False
End Sub

évite les Activate et autre select....

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
Sub test2()
fichier = Application.GetOpenFilename
If fichier = False Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & fichier
Application.ScreenUpdating = False
Set fcalcul = ActiveWorkbook
Set fsource = Workbooks.Open(fichier)
Set fimpor = wbsource.Sheets("Feuil1")
fimpor.Activate
fimpor.Select
Range("A1:P100").Select
Selection.Copy
fcalcul.Activate
i = ActiveSheet.UsedRange.Rows.Count
Cells(i + 1, 1).Select
ActiveSheet.Paste
fsource.Close
fcalcul.Activate
 
End Sub

[GWuigcos]

Ah oui en effet ça marche beaucoup mieux comme ça

oui j'ai beau savoir qu'il faut pas trop les utiliser dès que doute s'installe ils reviennent...

En tout cas merci beaucoup pour votre aide à tous !