Fermer un fichier Excel mode de Compatibilité

 
Rebonjour Phil.ch,

Tu peux me tutoyer ; mon explication vient car dans ton message initial,
tu as écris que tu avais cette erreur :

« Erreur d'exécution : 9 , L'indice n'appartient pas à la sélection. »

--------------------------------------------------------

Voici d'abord une simplification de la première partie de ton code VBA :

Option Explicit

Sub Essai()

  Dim CHE As String, NomFi As String, ONGL As String, CEFI As String, NomComp As String

  ' N'oublie pas les points « . » qui sont  devant les « [ » !
  With Worksheets("Lien")
    CHE = .[B3]      ' Chemin d'accès
    NomFi = .[C3]    ' Nom du fichier avec extension
    ONGL = .[D3]     ' Nom de la page à travailler
    CEFI = .[C2]     ' Nom du fichier depuis lequel j'ouvre
  End With

  NomComp = CHE & NomFi   ' Mise en place pour ouvrir le fichier
  Workbooks.Open NomComp

  ' Ou directement, sans utiliser NomComp (auquel cas tu peux
  ' supprimer sa déclaration en ligne Dim) :
  ' Workbooks.Open CHE & NomFi

  ' X : selon la colonne B, dernière ligne du tableau ; attention :
  ' valable seulement si pas de données sous ton tableau
  X = Range("B" & Rows.Count).End(xlUp).Row

  ' S'il y a des données sous ton tableau, mets ce que tu avais
  ' mis au départ :
  ' X = 2   'Valeur du tableau RH
  ' Boucle pour déterminer la zone à copier
  ' While Range("B" & X) <> ""
  '   X = X + 1
  '  Wend
  '  X = X - 1

  ' Attention : ton instruction de départ n'est pas bonne !
  ' Pour une plage, tu dois utiliser le caractère séparateur
  ' deux-points « : »
  Range("B2:G" & X).Copy

  Windows(CEFI).Activate
  [LP!B2].PasteSpecial Paste:=xlPasteAll
  Application.CutCopyMode = False

End Sub

Ça sera beaucoup plus court si tu enlèves tous les commentaires ajoutés
à ton intention et qui ne serviront plus après que tu les aies lus. Vérifie
d'abord que ce code VBA marche bien et te donne le résultat attendu,
puis dis-moi ce que tu en penses.  😉

--------------------------------------------------------

Pour ce que tu as mis à la fin de ton message, je suppose que c'est
ta 1ère ligne qui coince : Windows(NomFi).Activate

Je pense que c'est parce que NomFi comporte l'extension de fichier,
et que ça marchera sans cette extension ; donc à toi de l'enlever,
mais seulement pour cette instruction.

Je pourrais facilement le vérifier avec ton vrai fichier, mais sans,
je n'en suis pas sûr (et je n'ai pas envie de créer un fichier de
simulation juste pour ça) ; donc je te laisse essayer...

À te lire.  😊
 

Salut,

Un grand GRAND MERCI. Tes explications sont nickel et de qualitées. Tu as été plus rapide que moi, je m'en excuse. J'ai fait autre chose. J'ai suivi tes conseils, modifié comme tu me l'as suggéré. Ca marche. Mon problème est résolu.

Je te suis reconnaissant de ton aide, du temps que tu as pris pour me lire, me répondre et me conseiller.

Albkan, meilleures salutations.
Amicalement.
:-)