Discussion :

[lovedann]

Bonjour...

Je travaille actuellement à la confection d'un tableau complexe et je dois aller chercher la barre d'entête dans un fichier nommé "barre.xlsx".

La macro que j'ai enregistrée le fait très bien mais j'ai le problème suivant.

Le code contient l'adresse "en dur" du fichier : Workbooks.Open Filename:="D:\Temp\barre.xlsx"

Mais le tableau à confectionner et ce fichier "barre.xlsx" sont destinés à être implantés ensemble dans des répertoires portant d'autres noms.

Comment transformer cette ligne de code pour que Excel ouvre "barre.xlsx" dans le répertoire courant, sans qu'il y ait besoin d'en donner le chemin exact ?

J'ai essayé avec le code suivant, que j'ai trouvé sur un autre forum, mais cela ne fonctionne pas :

chemin = ThisWorkbook.Path & "/"
Workbooks.Open chemin & "barre.xlsx"

Le path donné est celui du lieu de stockage de mon classeur de macros et pas celui du tableau sur lequel je travaille...

Merci.

[Menhir]

Dans ta macro, comment est référencé le classeur dans lequel tu travailles ?

Si tu as bien fait les choses, il doit être référencé dans une variable de type Workbook (dès qu'on traites plusieurs classeur dans une macro, il faut référencé chacun avec ce type de variable).
Dans ce cas, utilise cette variable à la place de ThisWorkbook.

S'il s'agit du classeur actif, commence par mettre sa référence dans une variable parce qu'avec le Open de barre.xls, il ne va pas rester actif très longtemps.
D'ailleurs, renvoie aussi la référence de barre.xls dans une variable au moment de l'Open.

Bref :

Code :

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

1
2
3
4
5
6
7
Dim Chemin As String
Dim WS_Source As Workbook, WS_Dest As Workbook
 
Set WB_Dest = ActiveWorkbook
 
chemin = WB_Dest.Path & "/"
Set WB_Source = Workbooks.Open chemin & "barre.xlsx"

[lovedann]

Merci de la réponse.

Je mettrai ça en œuvre demain!

Bonne soirée.

[lovedann]

C'est parfait ...

J'ai juste corrigé deux petites erreurs dans votre code :

Code :

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

1
2
3
4
5
6
Dim WB_Source As Workbook, WB_Dest As Workbook (et non pas WS)
 
    Set WB_Dest = ActiveWorkbook
 
    Chemin = WB_Dest.Path & "/"
    Set WB_Source = Workbooks.Open(Chemin & "barre.xlsx") <--------------- Là, il a fallu que je mette des parenthèses.

Merci beaucoup de votre aide !!!!!!!!!!!!!!!!!!

-------------------

Un petit complément SVP (j'abuse !)

N'y a t'il pas moyen de copier cette barre sans "ouvrir" le fichier ?
Sinon (ce qui n'aurait guère d'importance) quelle est la commande pour refermer ce fichier ? (ce qui évite à l'utilisateur de voir un fichier ouvert dont il n'a pas l'utilité)
J'avoue que je ne suis pas à l'aise avec les variables du type Workbook, Worksheet, etc....

Merci d'avance....

[lovedann]

Finalement j'ai trouvé.... et j'ai même réussi à éviter la question préalable sur le vidage du presse-papiers..

Merci de votre aide et (sûrement) à bientôt !!!

[Menhir]

N'y a t'il pas moyen de copier cette barre sans "ouvrir" le fichier ?

Non.
Même s'il y a des méthodes qui, abusivement, prétendent lire (ou écrire) dans un fichier "fermé", il ne s'agit que d'une façon différente d'ouvrir le fichier.

quelle est la commande pour refermer ce fichier ?

Close, tout simplement.
Lire ça : https://docs.microsoft.com/fr-FR/off...workbook.close

J'avoue que je ne suis pas à l'aise avec les variables du type Workbook, Worksheet, etc....

Si tu veux parler des membres de ce type d'objet, lire ça :
https://docs.microsoft.com/fr-FR/off...Excel.Workbook
https://docs.microsoft.com/fr-fr/pre...ectedfrom=MSDN
Et mets-les dans tes favoris avec l'aide des objets Range et Application.

[lovedann]

OK.

Merci pour les liens dont j'espère pouvoir faire bientôt bon usage...