ericm1960

ericm1960

XLDnaute Nouveau
Bonjour,
Je suis un nouveau membre, à la recherche d'une solution désespérée de code.
J'ai 2 classeurs ouverts. Je voudrais, dans mon premier classeur, coller un nom d'un champ issu du second classeur. C'est certainement simple, le lancement de la macro affiche une erreur que je ne parviens pas à trouver.
VB:
Sub nom()

Dim ws, wr As Workbook
Dim Dlign1 As Integer
Set ws = ThisWorkbook
Set wr = Workbooks("Indicateurs_redressement_national")
Dim Plage_CI_G As Range

'Déterminer la plage de la feuille CI G
    wr.Activate
    Sheets("Taux de redres CI G S3C").Select
    Range("B5").Select
    Dlign1 = Cells(Rows.Count, 1).End(xlUp).Row

    ws.Activate
    Set Plage_CI_G = Workbooks("Indicateurs_redressement_national").Sheets("Taux de redres CI G S3C").Range("B6", Range("O" & Dlign1))


End Sub

Merci d'avance pour votre aide
 

soan

XLDnaute Barbatruc
Bonjour @ericm1960,

bienvenue sur le site XLD, et bonne année 2021 ! 🥳

dans ta sub nom(), y'a plein d'choses inutiles ! ce code VBA t'aidera peut-être :

VB:
Sub GetNom()
  Dim plg As Range, dlg&
  With Workbooks("Indicateurs_redressement_national").Worksheets("Taux de redres CI G S3C")
    dlg = .Cells(Rows.Count, 1).End(3).Row: Set plg = .Range("B6:O" & dlg)
  End With
End Sub
mais ça fait que définir la bonne plage "B6:O" & dlg ; rien d'autre !
quel est au juste le nom du champ que tu veux récupérer ? et quel
est l'emplacement de ce nom de champ, donc en quelle cellule ?
mystère ! et sans tes 2 fichiers...

et quelle est la cellule de destination, donc là où il faudrait écrire
le nom du champ récupéré ? en cellule B5 du 1er classeur ?

note qu'avec ce que j'ai fait, ça reste sur le 1er classeur du début
à la fin ; ça va pas sur le second classeur ; et ce sera possible de
récupérer le nom du champ du 2ème classeur sans aller sur ce
2ème classeur.

s'il s'agit bien de récupérer le nom de champ d'une cellule,
je vois pas le rapport avec définir la plage "B6:O" & dlg !




ici, tu es sur "Autres discussions / Présentation des nouveaux membres" ;
tu aurais dû poster ta demande sur "Questions / Forum Excel", car c'est
là que tu auras le plus de chances d'obtenir des réponses... mais avec
une demande plus claire et moins évasive ! ;)


soan
 

ericm1960

XLDnaute Nouveau
Merci beaucoup soan.
J'ai effectivement compris qu'il fallait entrer dans le forum, et au bout de 3 jours, un membre avisé m'a donné une solution qui fonctionne.
Bien cordialement,
Eric
 

Discussions similaires

Haut Bas