Bonjour à tous !

J'ai un petit soucis avec un petit programme qui doit, en gros, prendre une feuille Excel existante et la classer dans une nouvelle feuille pour la rendre plus visible.

L'erreur se situe au moment ou l'on cherche à choisir la feuille que l'on voudrait importer.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
'Cette macro affiche la boîte de dialogue pour sélectionner le fichier source
Sub AdressFich()
Dim objDialog
Set objDialog = CreateObject("SafrcFileDlg.FileOpen")
objDialog.OpenFileOpenDlg
ChoixFichier.AdressFichierAvis = objDialog.Filename
AdresseFichier2 = ChoixFichier.AdressFichierAvis
End Sub
Et l'erreur du débuggeur indique la 4ème ligne comme étant celle qui pose problème.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set objDialog = CreateObject("SafrcFileDlg.FileOpen")
Voilà, merci d'avance, help!