Macro ne s'exécute pas sur le PC de mon collègue

Bonjour à tous, je viens vers vous car j'ai un problème que je n'arrive pas à résoudre.

J'ai créé une macro qui permet de mettre à jour automatiquement un fichier (qui se trouve sur le Sharepoint de l'entreprise) en récupérant les extractions brutes excel du réseau et du Sharepoint. Une fois que les fichiers sources ont été trouvé, je fais des copier/coller des données vers le fichier de destination. Mon code s'exécute parfaitement sur mon PC et j'utilise la macro depuis quelques mois maintenant.

Sauf que quand j'ai voulu passer la main à mon collègue (qui sera en charge de ce fichier), lorsqu'il exécute la macro, l'erreur "Erreur d'exécution 9 L'indice n'appartient pas à la sélection" apparaît. Le débogeur me met une erreur au niveau du chemin d'accès au fichier, sauf que le fichier source s'ouvre correctement

Je pensais que cela venait quand même des chemins d'accès aux fichiers sources, qui pouvaient être différent des miens car pas sur le même disque dur que sur mon PC. Sauf que non, j'ai bien mis le lien générique du réseau et la macro s'exécute parfaitement sur le PC d'un de mes collègues !!! Je ne comprends vraiment pas comment cela est possible et comment résoudre ce problème...

Si vous avez des réponses je suis preneur... !
Merci à vous et bonne fin de journée

Bonjour Haumea,

Sans code et sans fichier....

C'est vrai que ça peut aider !

Sub mise_à_jour_auto()

Dim sPath As Variant, sFic As Variant, WbkAp As Variant, fichier_destination As Variant
Dim fichier_source_fiinvOF As Variant

'ne pas afficher les alertes du fichier
Application.DisplayAlerts = False
Application.ScreenUpdating = False

'1. Fichier FI Inv cours (1)
    'ouvrir le fichier
    sPath = "\\an07\Data\S_C\1-Sol_L\02-Ind\00-Extract\" 'le message d'erreur s'affiche ici
    sFic = "FI_Inv_cours.xls" 

    Set WbkAp = Workbooks.Open(sPath & sFic)

    Set fichier_source_fiinvOF = Workbooks("FI_Inv_cours")
    Set fichier_destination = ThisWorkbook.Sheets("FI_Inv_cours")

    'copier/coller les données

    fichier_source_fiinvOF.Sheets("Rapport2").Range("B3:BY10000").Copy
    fichier_destination.Range("B3").PasteSpecial xlPasteValues
    fichier_destination.Range("B3").PasteSpecial Paste:=xlFormats 'coller la mise en forme source

Hello,

Idée: a t'il activé...

Salutations

Andreas

Bonjour Haumea

C'est mieux ainsi, mais pas concluant, car le code me parait correcte

Il faudrait déposer une capture d'écran de la ligne surlignée en jaune lors du débogage

A+

Bonjour Andreas, oui tout a bien été activé...

BrunoM45, oui et puis le code fonctionne parfaitement sur mon PC et celui d'un de mes collègues...

Le débogeur met l'erreur sur cette ligne :

Bonjour Haumea

1) Définissez vos variables comme il faut
2) Utilisez les variables objet comme il faut

Voici le code modifié

Sub mise_à_jour_auto()
  Dim sPath As String, sFic As String
  Dim Wbk As Workbook, ShtDest As Worksheet

  'ne pas afficher les alertes du fichier
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False

  '1. Fichier FI Inv cours (1)
  'ouvrir le fichier
  sPath = "\\an07\Data\S_C\1-Sol_L\02-Ind\00-Extract\" 'Chemin d'accès au fichier
  sFic = "FI_Inv_cours.xls"    ' Nom du fichier
  ' Ouvrir et définir le classeur source
  Set Wbk = Workbooks.Open(sPath & sFic)

  With ThisWorkbook.Sheets("FI_Inv_cours")
    'copier/coller les données
    Wbk.Sheets("Rapport2").Range("B3:BY10000").Copy
    .Range("B3").PasteSpecial xlPasteValues
    .Range("B3").PasteSpecial Paste:=xlFormats   'coller la mise en forme source
  End With

3) Est-ce que votre collègue à bien accès au dossier spécifié !?

A+

BrunoM45, même en utilisant le code modifié rien ne se passe... Le débogeur reste au même endroit alors que le fichier s'est bien ouvert

Et oui mon collègue a bien accès au répertoire

Re,

Le débogueur ne peut pas "rester" au même endroit puisque le code est complètement modifié

Ou se trouve la ligne jaune aujourd'hui ?

A+

La ligne en jaune du débogeur se situe au même endroit

Re,

Ok, vous n'utilisez pas le code que je vous ai donné hier ICI

Je vais donc devoir clôturer cette discussion, elle ne sert à rien

Si j'ai bien utilisé votre code comme sur la dernière capture d'écran...?

Re,

Donc la ligne surlignée, ne peut pas être celle que vous m'avez donné

Pour éviter de parler dans le vide, merci de joindre le fichier de votre collègue anonymisé SVP

A+