Discussion :

[giozz]

Bonjour,

Je souhaiterais vous poser une petite question concernant le VBA. Je suis débutant et actuellement ma macro fait le cheminement suivant :
1) Application.dialogs me permettant de faire spécifier à l'utilisateur le chemin d'un autre fichier excel de données

2) cells.select dans le fichier fraîchement ouvert

3) Selection .copy pour copier l'ens des cellules

4) windows("mon fichier de base contenant la macro").activate

Et ensuite le instructions permettant de coller à l'endroit désiré les infos.

En fait, il se peut que l'utilisateur final doive pour s'y retrouver renomer le fichier en fonction du projet sur lequel il travaille. Du coup, dans mon étape 4, si je mentionne le nom du fichier, et que l'utilisateur le modifie, un bug se produit (normal il ne retrouve plus ces petits...)

Est-ce que svp quelqu'un aurait une solution pour que je puisse non pas ecrire le nom du fichier mais faire comprendre à excel que je veux qu'il rebascule sur le fichier de base (sans donner de nom), celui dans lequel est écrit la macro et qui en outre possède l'extension différente .xlsm

En vous remerciant par avance.
Très cordialement
Gioz

[Krovax]

Bonjour
thisworkbook indique le classeur contenant la macro
donc

Code :

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

thiworkbook.activate

Personnellement je n'utilise jamais de activate et les select générateur dee problème et ralentissant le code et je préfère spécifier directement le tout en une ligne

Code :

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

thisworkbook.cells(i,j).copy

[giozz]

Merci beaucoup pour votre rapidité et pour vos réponse

Pour le moment j'ai utilisé le .activate, mais je vais essayer dans une deuxieme version de passer par votre méthode Krovax en une ligne qui semble plus efficace en effet.

Merci également à aalex_38, je ne savait pas qu'il était possible de faire cela, a étudier! (j'ai commencé les macros lundi...)

Merci encore à vous.
Bien cordialement,
Giozz

[aalex_38]

J'allais répondre quand je vis que M Krovax m'avais devançé

J'ajouterai qu'il est possible d'instancier les classeurs au moment ou on en a besoin, par exemple :

Code :

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

1
2
3
Dim W1 As Workbook, W2 As Workbook
Set W1 = Thisworkbook
Set W2  = Workbooks("NomW2")