VBA Modification de codage

Bonjour le forum, Je dois ouvrir le fichier "StoVtech" pour que cette macro fonctionne, serait-il possible que ce fichier soit ouvert par la "macro".

merci d'avance

Nonno

Sub Sto_Technicien()

Dim Ligne As Long, Feuille As String, Plage As Range

With Sheets("ArchivMouv")

Windows("StoVtech").Activate

Feuille = .[U2]

Ligne = .Cells(.Rows.Count, 14).End(xlUp).Row

Set Plage = Intersect(.Range("4:" & Ligne), Union(.Range("N:Q"), .Range("S:S"), .Range("U:V")))

End With

With Sheets(Feuille)

.Range("4:4").Resize(Ligne - 3).Insert

Plage.Copy

.Range("C4").PasteSpecial xlValues

End With

End Sub

[s=co-c0504d][/s]

Bonjour,

Lorsque vous postez un code, merci de bien vouloir utiliser les balises de codes en cliquant sur l'icone </> dans la barre de menu. J'ai corrigé votre post

Je dois ouvrir le fichier "StoVtech" pour que cette macro fonctionne, serait-il possible que ce fichier soit ouvert par la "macro".

Suite de ce fil ? --> https://forum.excel-pratique.com/excel/vba-copier-vers-autre-page-selon-critere-191792

Le code n'ouvre pas de fichier. Il faut savoir dans quel répertoire se trouve le fichier à ouvrir et éventuellement s'il se trouve dans le même répertoire que le fichier contenant cette macro ou pas ?

Cordialement

Bonsoir Dan et merci pour la (correction) je saurai à l'avenir.

quant-aux fichiers oui il sont dans un même répertoire nommé "LudoBoulot"

Bonjour

Heu fil cloturé ??

Essayez comme ceci

Sub Sto_Technicien()
Dim chemin As String, Feuille As String
Dim Ligne As Long, Plage As Range

chemin = ThisWorkbook.Path 'si fichier se trouve dans le même répertoire que celui contenant la feuille Archimouv
Fichier = "nom du fichier"

Workbooks.Open chemin & "\" & Fichier & ".xlsm"

With Thisworkbook.Sheets("ArchivMouv") 'fichier contenant ce code
    Feuille = .Range("U2")
    Ligne = .Cells(.Rows.Count, 14).End(xlUp).Row
    Set Plage = Intersect(.Range("4:" & Ligne), Union(.Range("N:Q"), .Range("S:S"), .Range("U:V")))
End With

With Activeworkbook.Sheets(Feuille) 'fichier ouvert par ce code
    .Range("4:4").Resize(Ligne - 3).Insert
    Plage.Copy
    .Range("C4").PasteSpecial xlValues
End With
End Sub

J'ai supposé que vous copiez depuis la feuille Archimouv vers le fichier que vous avez ouvert

La feuille Archivmouv se trouve dans le fichier contenant la macro
La feuille nommée "feuille" se trouve dans le fichier que vous ouvrez depuis le code

Dites-moi

Crdlt

BONSOIR DAN

Oups! Fil clôturé par inadvertance.

Votre proposition fonctionne parfaitement.

Merci pour votre aide

Bonne soirée

Cordialement

Nonno