Macro permettant d'importer un Excel d'un dossier excel

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:

---

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

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

Code:

---

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:

---

MsgBox ThisWorkbook.Path

---

re
bonjour philippe

Code:

---

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

---

ou

Code:

---

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

---

Bonjour,

Merci pour votre aide rapide et précise.

Cordialement,