Modifier code car cellules fusionnées

Bonjour Forum,

svp

comment peut on modifier ce code pourqu'il fonctionne bien pour copier les données cellules cible colonnes D et E sont fusionnés et cellules les 5 colonnes destination sont fusionnés.

comment modifier les cellules destination fusionnés sans modifier cible

Sub import()
Windows("export.xlsx").Activate
Sheets("NotesCC").Select
Range("d18:d57").Select
Selection.Copy
ThisWorkbook.Activate
Sheets("sheet1").Select
Range("D21:d70").Select
'Selection.UnMerge
'Range("D21:d70").Paste
Selection.PasteSpecial Paste:=xlpastvalues
Application.CutCopyMode = False
Windows("export.xlsx").Close

End Sub

Merci infiniment

Bonjour,

Pouvez-vous essayer ce code (si le classeur export est ouvert avant exécution) :

Sub import()
with workbooks("export.xlsx")
    ThisWorkbook.Sheets("sheet1").Range("D21:d70").value = .Sheets("NotesCC").Range("d18:d57").value
    .Close
end with
End Sub

Sinon, je vous recommande d'éviter les cellules fusionnées pour manipuler des données. Il existe d'autres moyens de mise en forme semblables.

Edit : Attention, il faut que la destination fasse la taille de la source.

Cdlt

Boinsoir 3GB, Bosnsoir Forum

Merci infiniment 3GB ton code fonctionne Bien

ٍSVP Comment peut-il ce code être développé inserer lastrow t la dernière cellule non vide dans les deux fichiers

et comment le nom du fichier export peut-il être changé au nom commence par export

Merci infiniment

Bonjour,

Voici un nouvel essai où on ouvre le premier fichier xlsx, dont le nom commence par export, dans le fichier Téléchargements. Il faut que ce fichier soit fermé avant l'exécution du code.

Pour la dernière ligne, je n'ai pas bien compris. Il faudrait trouver un moyen de ne plus avoir de référence en dur (D18 et D21).

Sub import()
spath = environ("userprofile") & "\Downloads"
sfilename = dir(spath & "\export*.xlsx")
if sfilename <> "" then
    with workbooks.open(spath & "\" & sfilename)
        with .Sheets("NotesCC")
            dl = .cells(.rows.count, "D").end(xlup).row
            t = .range("D18:D" & dl).value
        end with
        .Close
    end with
    with ThisWorkbook.Sheets("sheet1")
        .Range("D21").resize(ubound(t)).value = t
    end with
end if
End Sub

Cdlt,

Bonjour 3GB, Bonjour Forum

Merci beaucoup 3GB

S’il vous plaît ne pouvons-nous pas spécifier dans le fichier Téléchargements du fichier cible mais rendre l'emplacement meme l’endroit du fichier xlsm (.path)

Merci beaucoup pour votre réponse et votre coopération.

Bonjour Hicham,

Si normalement c'est possible. Si j'ai bien compris, vous pouvez saisir le chemin en dur dans le code comme ceci par exemple :

spath = "C:\Users\Hicham\Desktop\MonDossier"

Cdlt,

Merci infiniment 3GB

j ai pu le modifier par

spath = ThisWorkbook.Path

Merci 3GB pour votre aide

Parfait, bravo !

Je vous en prie, ça me fait plaisir.

Bonne continuation,