Import de fichier

Bonjour,

Voila j'ai une macro qui me permet d'importer un fichier. Cette macro marche très bien sur mon ancien PC avec excel 2007, là j'ai aussi Excel 2007 et ça ne marche pas.

Voici mon code

Dim j As Long
Dim n As Long
Dim ws As Worksheet
Dim wbdest As Workbook
Dim wbsource As Workbook
Dim FileToOpen
Dim wb As String

Set wbdest = ActiveWorkbook
ActiveSheet.Cells.Clear
FileToOpen = Application _
  .GetOpenFilename("toto (toto*), toto*")

If FileToOpen = False Then
    Close #1
    Exit Sub
End If

wb = Right$(FileToOpen, Len(FileToOpen) - InStr(FileToOpen, "toto*") + 1)

'ouvre le fichier actuel à importer
Set wbsource = Workbooks.Open(wb)
'sélectionne la feuille de données à importer
Set ws = wbsource.Sheets(1)
'active cette feuille
ws.Activate
ws.Select
'compte le nombre de lignes dans ce fichier
j = ActiveSheet.UsedRange.Rows.Count
'compte le nombre de colonne dans ce fichier
n = ActiveSheet.UsedRange.Columns.Count
'selection des données que l’on veut importer
Range(Cells(1, 1), Cells(j, n)).Select
'copie les données sélectionnées
Selection.Copy
'retourne vers le fichier de départ
wbdest.Activate
'sélection de la cellule où on veut coller les données (la première vide)
Cells(1, 1).Select
'colle les données
ActiveSheet.Paste
'ferme le fichier source
wbsource.Close
wbdest.Activate

Sur cette ligne :

wb = Right$(FileToOpen, Len(FileToOpen) - InStr(FileToOpen, "toto*") + 1)

il me met en surbrillance le Right$ et me met projet introuvable.

J'ai vu que c'était une fonction, peut être de ce fait est-ce un pb de librairie non?

Pour ca marche nickel sur mon autre pc et pas celui la avec la même version d'excel?

Merci de votre aide,

Bonjour

Une fois que tu as cette erreur

Menu Exécution --> Réinitialiser (2 fois peut-être)

Ensuite menu Outils ---> Références

Dans la liste tu décoches toutes les références dans lesquelles il y a "MANQUANT"

C'était déjà fait ça!

Et ça ne fonctionne tjs pas.