Discussion :

[papimcha]

Bonjour à tous,

J'ai un classeur dans lequel il y a ma macro, et à partir duquel je dois aller récupérer un autre classeur à ouvrir (choisis par l'utilisateur)
Ensuite, je dois faire des traitements entre ces deux fichiers.
Pour cela, je dois faire le distinguo entre ces deux classeurs et pour cela je souhaiterais que cl1 corresponde au premier classeur, et cl2 corresponde au deuxième classeur (celui que l'utilisateur choisis)

Je me suis fortement inspiré de ceci.

Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim cl1 as workbook
Dim cl2 as workbook
    Dim NomFichier As String
 
Set cl1=ThisWorkbook
 
    NomFichier = RechercheFichier()
    If NomFichier = "" Then
        MsgBox "Vous n'avez sélectionné aucun fichier"
        Else
        Workbooks.Open NomFichier
Set cl2 = Workbooks(NomFichier) '<== plante ici
    End If

Sa me dit, l'indice n'appartient pas à la sélection.
Je ne trouve vraiment pas comment affecter ce nouveau fichier à mon cl2.

Merci à tous ceux qui pourront m'aider.
Cordialement

[zyhack]

Bonjour

a mon avis il ne faut que le nom du classeur et non le chemin complet essaye en remplaçant la ligne qui cause le problème par

Code :

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

Set cl2 = Workbooks(Right(NomFichier, Len(NomFichier) - InStrRev(NomFichier, "\")))

a+

[papimcha]

Quelle rapidité pour quelle efficacité, je suis choqué.

Merci.

[AlainTech]

Bonjour,

Nettement plus simple et universel:

Code :

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

Set cl2 = Workbooks.Open(NomFichier)