Discussion :

[lafouine]

Bonjour,

P'tit nouveau sur ce domaine j'aurais besoin de vos lumières quant à la faisabilité d'un dev sous Excel.

Le principe serait de constituer un template Excel contenant une macro afin d'automatiser certains traitements de transcodification actuellement réalisés à la main. Les principales fonctionnalités que j'aimerais développer (et sur lesquelles j'ai des doutes niveau faisabilité) sont les suivantes :

1- Sélectionner des fichiers Excel (fermé) sur le disque (si possible faisant apparaitre un ecran "standard" d'ouverture de fichier sous Windows du type de celui que l'on obtient en faisant "Fichier->Ouvrir")
2- Insérer les données des dits fichiers dans des onglets de travail
3- Transcoder certaines infos : en fait, développer un équivalent à recherchev sauf que recherchev n'est pas multicritere et s'appuie sur un seul élement de la table matrice, dans mon cas j'aimerais m'appuyer sur plusieurs éléments de la table matrice pour retourner une valeur)


Merci d'avance pour vos conseils avisés !

[EvaristeGaloisBis]

tout est faisable.
le point 1 avec un: application.FileDialog(msoFileDialogOpen).show
le point 2 ben avec un algo du type

Code :

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

1
2
vtabMonTableau=wbOuvert.sheets(mafeuille).range("A1:AA65336")
wbtemplate.sheets(mafeuille).range("A1:AA65336")=vtabMonTableau

le point 3.. il peut tout a fait etre réalisé avec un RechercheV il suffit de faire un agrégat des valeurs de recherches... mais tu peux le fait par un algo de recherche classic dans tes feuilles.

[lafouine]

tout est faisable.

Gloups, moi qui croyais que c'était mission impossible

le point 1 avec un: application.FileDialog(msoFileDialogOpen).show

Ok, ça marche super bien effectivement !
Merci beaucoup

le point 2 ben avec un algo du type

Code :

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

1
2
vtabMonTableau=wbOuvert.sheets(mafeuille).range("A1:AA65336")
wbtemplate.sheets(mafeuille).range("A1:AA65336")=vtabMonTableau

Sur ce point j'ai plus de pb : soit j'ai pas compris, soit je me suis mal exprimé.

Application.FileDialog(msoFileDialogOpen) me permet de sélectionner un fichier dont je conserve le nom dans une variable. Maintenant, l'idée est de rapatrier les données du fichier identifié dans une feuille du fichier excel en cours d'utilisation. Le fichier dont on veux lire les données est donc fermé et non actif dans excel.

Plus simplement encore on travaille sur un fichier A, et dans ce fichier A on veut récupérer les données d'un onglet d'un fichier B (fichier n'étant pas ouvert dans Excel)

Est-ce possible ?

le point 3.. il peut tout a fait etre réalisé avec un RechercheV il suffit de faire un agrégat des valeurs de recherches... mais tu peux le fait par un algo de recherche classic dans tes feuilles.

La non plus je n'ai pas très bien compris le principe d' "agrégat des valeurs de recherche", mais pour l'instant je suis plus préoccupé par le 2e point...

[EvaristeGaloisBis]

pour le point 2:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim wbMyWorkBook as workbook
dim stMonChemin as string
dim vtabMonTableauContenantLesDonnees as variant
stMonChemin=application.FileDialog(msoFileDialogOpen).show
if stmonchemin<>"" then
 set wbMyWorkBook = workbooks.open(stMonChemin)
 'recupere d'un seul coup toutes les données de mon fichier
 vtabMonTableauContenantLesDonnees=wbMyWorkBook.sheets(1).range("A1:AA65335")
 wbMyWorkBook.close(false)
 set wbMyWorkBook= nothing 
'Et on les colle dans ton classeur excel qui contient la macro
  thisworkbook.sheets(1).range("A1:AA65335").value=vtabMonTableauContenantLesDonnees
end if

Pour le point 3:
tu as a faire une recherche pour que la colonne A= une truc et la colonne B=un autre truc.
Tu fais la formule en C = A &"," & B
et tu fais un vLookup sur C et non plus sur le A et le B

[lafouine]

Merci beaucoup pour ton aide, j'avance à grand pas grace à toi !
Je reste malgré tout confronté à qq soucis.
J'ai notamment un comportement étonnant dans l'utilisation d'un VLOOKUP :

Code :

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

ActiveCell.FormulaR1C1 = "=VLOOKUP(INPUT!A" & myRow & "&INPUT!C" & myRow & ",Transco!" & myRange & ",9,FALSE)"

Le résultat dans Excel n'est pas du tout celui attendu, voila ce qu'on trouve dans la barre de calcul :

Code :

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

=RECHERCHEV(INPUT!'A5'&INPUT!$E:$E;Transco!$B:$B:'L4';9;FAUX)

Alors que lorsque je trace la valeur d'ActiveCell.FormulaR1C1 dans le débugger j'ai bien la formule attendue, à savoir :

Code :

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

=VLOOKUP(INPUT!A5&INPUT!C5,Transco!C2:L4,9,FALSE)

J'ai un peu tout essayé relatif ou non, utilisation de application.vlookup... mais rien n'y fait, j'ai toujours le même problème... Une idée peut être ?

[fring]

Bonjour,

FormulaR1C1 attend des références de cellules de type RC (R pour Row et C pour Column). Par exemple pour la cellule B5, la référence doit s'écrire R5C2, ce qui n'est pas le cas dans ta formule.

Essaie comme ceci :

Code :

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

ActiveCell.Formula = "=VLOOKUP(INPUT!A" & myRow & "&INPUT!C" & myRow & ",Transco!" & myRange & ",9,FALSE)"

[lafouine]

FormulaR1C1 attend des références de cellules de type RC (R pour Row et C pour Column). Par exemple pour la cellule B5, la référence doit s'écrire R5C2, ce qui n'est pas le cas dans ta formule.

Rhalala !! c'est tout ?? je suis vraiment le dernier des idiots !
Mais merci beaucoup en tout cas !