Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro et références

Stephane Mallet

XLDnaute Nouveau
Bonjour à tous,

Nouveau sur Excel, j'ai réalisé une macro qui va chercher une feuille xlsx dans un classeur pour ensuite l'ajouter à un nouveau classeur. Cette macro fait référence à mon C.
"C:\Users\mallets\Desktop\Import Commandes\PROPOSITION_COMMANDE_10.xlsx"
De ce fait, elle ne fonctionne que sur mon PC.
Existe t il un moyen de modifier cette macro de sorte qu'elle fonctionne sur les autres PC?

Merci
 

sousou

XLDnaute Barbatruc
Bonjour et bon travail sur ce forum qui te seras bien utile pour progresser.

En général on peu utiliser une variable " chemin " qui va déterminer la position du fichier contenant la macro, et à partir de ce point relatif il est plus simple de déterminer l'emplacement d'un autre fichier
Cette variable contiendra les éléments propre à chaque pc
le lecteur, le chemin complet.....
si le fichier cherché est dans le même répertoire que la macro il suffira d'utiliser cette variable.

exemple:
chemin= thiswokbook.path & "/"
 

Stephane Mallet

XLDnaute Nouveau
 

Stephane Mallet

XLDnaute Nouveau
Bonjour,

Je n'arrive toujours pas à installer ma macro sur un autre PC.
Pouvez vous m'aider?
Voici la macro avec la référence qui me pose problème en rouge.

Sub ImportFichier()
'
' ImportFichier Macro
'

'
Sheets("ImportR10").Select
ActiveSheet.Unprotect
Range("B6").Select
Workbooks.Open Filename:= _
chemin & "C:\Users\mallets\Desktop\Import Commandes\PROPOSITION_COMMANDE_10.xlsx"

Range("F12:J10011").Select
Selection.Copy
Windows("EAN4.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C3").Select
Windows("PROPOSITION_COMMANDE_10.xlsx").Activate
Range("B2").Select
Selection.Copy
Windows("EAN4.xlsm").Activate
Range("C3").Select
ActiveSheet.Paste
Range("B6").Select
Windows("PROPOSITION_COMMANDE_10.xlsx").Activate
Application.CutCopyMode = False
ActiveWindow.Close
 

sousou

XLDnaute Barbatruc
bonjour
le principe est celui_ci:
chemin="C:\Users\mallets\Desktop\Import Commandes\" ' chemin dans ton nouveau pc
set macommande=workbooks.open(chemin & "PROPOSITION_COMMANDE_10.xlsx")

ensuite à chaque fois que tu d'adresse à ce classeur:
macommande.activate
macommande.sheets(1).range("a1")=.....
 

Discussions similaires

Réponses
8
Affichages
326
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…