Affectation de variable pour ouvrir un fichier

[aubelix]

Bonjour à tous les Amis du Forum 🙂

J'ai essayé d'affecter des variables à ce code, mais j'ai des problèmes:
J'arrive à ouvrir le Modele.xls qui se trouve dans le sous-répertoire de la
valeur de la cellule "J2".
Ensuite, Excel se ferme, erreur, sans explication...

Cijoint.fr - Service gratuit de dépôt de fichiers

Mon problème se situe sur les affectation de variables

Dim rRef As Range
 
            'ouvrir la feuille "modele.xls" dans le S/répertoire correspondant
            'à valeur de la cellule "J2" de la feuille "BASE"
            'chaque responsable a un sous-répertoire à son nom.
            Const MyPath = "C:\REP1\REP2\REP3\REP4\REP5\Modeles\"
            Sheets("BASE").Activate
            sMod = Range("J2").Value
            sRef = "Modele.xls"
            Application.DisplayAlerts = False
 
            Workbooks.Open (MyPath & sMod & "\" & sRef)
 
            Sheets.Add Type:=MyPath & sMod & "\" & sRef, _
                       After:=Sheets(Sheets.Count)

Le but de la macro, est d'ouvrir un modele en fonction de la valeur
de la cellule "J2" de la feuille "BASE". et de dupliquer en copiant les
données de la feuille (cela fonctionne).

Merci pour votre aide.
Cordialement

 

[Pierrot93]

Re : Affectation de variable pour ouvrir un fichier

Bonjour,

tu as déjà un fil ouvert à ce sujet... le mieux est de rester dessus, plus facile à suivre pour tout le monde....
https://www.excel-downloads.com/thr...en-fonction-de-la-valeur-dune-cellule.155168/
bonne journée
@+