Hello tout le monde,
J'ai un petit soucis avec mon code
En fait il fonctionne, car il me copie bien mes valeurs, sauf que j'ai quand même un message d'erreur
Donc je ne comprends pas pourquoi ...
Mon code est le suivant :
Sub ImporterDonneesSansOuvrir()
Dim Chemin As String, Fichier As String
Chemin = "M:\04 - INDUSTRIE\4- PRODUCTION\RB\2-DOCUMENTS USINE\"
Fichier = "Base Mère.xlsm"
ThisWorkbook.Names.Add "plage", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Base Qualité'!$A$1:$AB$200"
With Sheets("Feuil1")
.[A1:$AB$200] = "=plage"
.[A1:$AB$200].Copy
Sheets("Base Qualité").Range("A1").PasteSpecial xlPasteValues
.[A1:$AB$200].Clear
End With
End Sub
Et le message d'erreur est "l'indice n'appartient pas à la sélection"
Merci
Clem