Discussion :

[inconnu3]

Bonjour,

Je suis à la recherche d'une macro qui permet d'importer un excel d'un autre excel.
En effet, j'aimerai créer une macro qui ne sert pas qu'a moi mais à plusieurs personnes.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton4_Click()
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source classeur (en lecture seule)
Set classeurSource = Application.Workbooks.Open("C:\Users\HS\Desktop\CWReport\classeur.xlsx", , True)
'définir le classeur destination celui ouvert
Set classeurDestination = ThisWorkbook
'copier les données de la "F" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("F").Cells.Copy classeurDestination.Sheets("Feuil1").Range("A1")
'fermer le classeur source
classeurSource.Close False

End Sub

Ce que je veux c'est une macro qui permet a tout le monde d'y accéder sur tout autre poste en changeant juste l’élément en rouge (l'utilisateur)

merci de votre aide

cordialement

[Philippe Tulliez]

Bonjour,
Depuis la version Windows 2000, la fonction Environ permet de renvoyer ce que tu cherches.

Code :

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

MsgBox Environ("USERNAME")

Il suffit donc de concaténer les constantes et la valeur renvoyée par cette fonction

Tu as aussi la propriété Path de l'objet Workbook qui pourrait selon le projet t'apporter une solution

Code :

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

MsgBox ThisWorkbook.Path

[patricktoulon]

re
bonjour philippe

Code :

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

workbooks.open("C:\Users\"& environ("username") &"\Desktop\CWReport\classeur.xlsx", , True)

ou

Code :

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

workbooks.open (environ("userprofile") &"\Desktop\CWReport\classeur.xlsx", , True)

[inconnu3]

Bonjour,

Merci pour votre aide rapide et précise.

Cordialement,