Trouver première ligne d'un fichier et ecrire dans les cellu

Bonsoir A Toutes et Tous !

Un vrai néophyte en VBA s'adresse aux pros pour tenter d'éclaircir sa lanterne ! Merci d'avance à toutes celles et ceux qui se pencheront sur mon souci (sûrement modeste pour nombre d'entre Vous !).

a) J'ai un fichier A dans lequel j'enregistre des infos diverses et variées.

b) J'ai un fichier B que je fais ouvrir à travers une macro. maintenant j'aimerai connaitre l'ensemble du code pour :

- positionner dans B sur la première ligne vide,

- recopier des infos de A dans les cellules de cette ligne.

Pourriez-vous me donner un coup de main ? D'avance merci et excellente soirée

JPierre,

Bonjour;

Une piste...

Dim Wks As Worksheet
Dim DerLigneB As Long
    Set Wks = ThisWorkbook.Sheets("Feuil1")
    'Ouvrir le classeur B
    Workbooks.Open "C:\Dossier\B.xlsx"
    DerLigneB = Sheets("Feuil1B").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Wks.Range("A1:E50").Copy Sheets("Feuil1B").Cells(DerLigneB, 1)

    'ferme le classeur B
    ActiveWorkbook.Close

Pour plus précis tu devrais joindre le code que tu a déjà fait. Ou le classeur.

A+

Bonjour à Toutes et Tous !

Toujours coincé par cette macro ...

Voilà le code que j'ai transcris ! Merci de votre aide :

Sub CodifOpe()

'

' CodifOpe Macro

'Selection de la ligne à copier

LigneSource = ThisWorkbook.Sheets("Prospect").Range("AN7:BG7").End(xlUp).Row

'Ouverture du fichier destination

Workbooks.Open Filename:="X:\EROLA\Opérations.xlsx"

ActiveWindow.SplitRow = 0

Application.FormulaBarHeight = 12

Application.FormulaBarHeight = 1

'Recherche de la première ligne vide Opérations

LigneDestination = Sheets("Patrimoine").Range("B").End(xlUp).Row + 1

'Ecrire ligne sur Opérations

ThisWorkbook.Sheets("Patrimoine").Rows(LigneSource).Copy

Workbooks("Erola-6.xlsx").Sheets("Prospect").Range ("B" & LigneDestination)

End Sub

Bonjour,

Y a des noeux dans ton code.

Tu veux copier depuis quel classeur et vers quel classeur ?

Et combien de ligne(s) à copier ?

A+

Bonjour Lemite,

Merci de vous être penché sur mon problème alors pour vous répondre :

a) je souhaite copier la plage AN7:BG7 de la feuille "Prospect" du fichier "Erola".

b) vers la plage (B(première ligne vide) à U(première ligne vide)) de la feuille "Patrimoine" du fichier "Opérations".

Ai-je été plus clair ? Merci d'avance de votre aide ! Bien sincèrement,

JPierre

A tester...

Sub CodifOpe()
'
'a) je souhaite copier la plage AN7:BG7 de la feuille "Prospect" du fichier "Erola".

'b) vers la plage (B(première ligne vide) à U(première ligne vide)) de la feuille
'"Patrimoine" du fichier "Opérations".

' CodifOpe Macro
Dim Wks As Worksheet
Dim LigneDestination As Long
    Set Wks = ThisWorkbook.Sheets("Prospect")

    'Ouverture du fichier destination
    Workbooks.Open Filename:="X:\EROLA\Opérations.xlsx"

    'Recherche de la première ligne vide Opérations
    LigneDestination = Sheets("Patrimoine").Cells(Rows.Count, "B").End(xlUp).Row + 1
    'Ecrire ligne sur Opérations
    Wks.Range("AN7:BG7").Copy Sheets("Patrimoine").Range("B" & LigneDestination)
End Sub

Tu dis..

A+

Je teste cela demain matin et vous dis ! Bonne soirée à Vous et à demain

JPierre

Je viens de tester il me recopie les formules pas les valeurs ... Qu'ai-je fait comme ânerie ! Merci !

Sub CodifOp()

'

'a) je souhaite copier la plage AN7:BG7 de la feuille "Prospect" du fichier "Erola".

'b) vers la plage (B(première ligne vide) à U(première ligne vide)) de la feuille

'"Patrimoine" du fichier "Opérations".

' CodifOpe Macro

Dim Wks As Worksheet

Dim LigneDestination As Long

Set Wks = ThisWorkbook.Sheets("Prospect")

'Ouverture du fichier destination

Workbooks.Open Filename:="X:\EROLA\Opérations.xlsx"

'Recherche de la première ligne vide Opérations

LigneDestination = Sheets("Patrimoine").Cells(Rows.Count, "B").End(xlUp).Row + 1

'Ecrire ligne sur Opérations

Wks.Range("AN7:BG7").Copy Sheets("Patrimoine").Range("B" & LigneDestination)

End Sub

Non, tu n'a pas fais de bétise, mais je ne pouvais pas deviner que c'était des formules.

Mais si tu a déjà les formules, c'est que ça avance..

Remplace la dernière ligne par..

   Wks.Range("AN7:BG7").Copy
   Sheets("Patrimoine").Range("B" & LigneDestination).PasteSpecial Paste:=xlPasteValues

A+

Merci Lemite ... Merci bien ! En effet cela fonctionne bien ... désormais ! A charge de revanche .... si je peux t'aider avec mes modestes compétences ... c'est avec plaisir ! A+