Discussion :

[juanito37]

Bonjour à tous,

j'ai un léger souci avec une macro VBA ss excel 2003.

Je demande à ma macro de récuperer sur une feuille "PTF" les données d'une autre feuille dans un autre classeur excel nommé "Source". Je lui indique donc le chemin à suivre pour sélectionner le fichier en question. voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1 ()
Dim fichiera, fichierb As Variant
 
fichiera = ActiveWorkbook.Name
 
    ChDir "P:\Source"
    Workbooks.Open Filename:= _
        "P:\Source", UpdateLinks:=0
 
fichierb = ActiveWorkbook.Name
 
Dim fin, i, j As Integer
 
Sheets("PTF").Select

Mais à chaque fois que j'active ma macro, je dois quand même lui indiquer manuellement le chemin à suivre. il ne retrouve pas tt seul le fichier : c'est assez long à chaque fois pour retrouver le fichier....!!!!

Merci de votre aide [^^happy3]

[Krovax]

Bonjour,
Tu es sur un forum d'entre aide section VBA
Un titre de poste "Aide macro VBA" est certes original puisqu'il n'y a pas de sujets récent avec mais totalement inutile.
De plus je pense que tous les bot a la recherche d'adresse mail sur les forum seront heureux (dans la mesure ou un bot peut être heureux) d'avoir le tient.

Venons en a ton problème j'ai une bonne nouvelle la macro fonctionne bien elle fait exactement ce que tu lui dit de faire. Comme nous on ne sait pas ce que tu lui dit de faire et encore moins ce que tu veux faire. Je ne peux pas t'aider d'avantage.
Alors le mieux regarde les discutions qui on un [Résolu] dans le titre et entre 3 et 8 réponse ca te permettra de voir comment poser une question de manière efficace.

Ensuite pose ta question montre nous ton code en utilisant les balise code (regarde le tout premier message du forum pour savoir comment les utiliser). Et après cela on pourra t'aider

ps : joindre un fichier c'est pratique ca t'évite de réfléchir a la formulation de ta question et a l'interprétation des réponse et nous ca nous évite d'essayer de te comprendre. Mais beaucoup de personne ne les ouvre jamais du coup tu diminues grandement les chances de réponse

Edit : Ha visiblement tu as édité ton message mais les balise code c'est toujours pas ca, la tu ouvre le fichier c'sest bien mais je ne voi pas ce qui peux poser problème (a par le fait que tu utilise un select du coup je sent venir les ennuis), la suite du code pourrais être utile, ainsi qu'une explication de ton problème

[Krovax]

En fait je crois avoir saisie ta question ce qui t'ennuie c'est que tu doit a chaque fois choisir le fichier. En même temps tu demande a chaque fois de te demander de choisir un fichier. (J'avais raison la macro fait ce que tu lui dit de faire)

Ce que tu peux faire c'est stocker le résultat de ta recherche quelque part et regarder si il y a rien de stocké on demande sinon on l'utilise
exemple je stocke feuil2 cellule A1

Code :

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

1
2
3
4
5
6
7
8
if worksheets("feuil2").range("A1")="" then
    ChDir "P:\Source"
    Workbooks.Open Filename:= _
        "P:\Source", UpdateLinks:=0
 else
     Workbooks.Open worksheets("feuil2").range("A1")
end if
fichierb = ActiveWorkbook.Name

Bien sur il faut un onglet nommé feuil2 et que la cellule A1 soit vide

[juanito37]

je vais effectivement modifier le code....