VBA Copier / Coller entre deux classeurs

[invite03856f0c]

Bonjour à tous et à toutes,
Je voudrai faire un Copy/Paste d'une plage de cellule précise entre deux classeurs dans un même répertoire.
La plage de copy est donnée par mes 2 premières variables DerNC et PremNC
La plage de paste est donnée par mes 2 dernières variables DerREX et PremREX


J'aimerai utiliser un chemin d'accès pour permettre à ce code d'être réutilisé pour d'autres classeurs.

J'ai plusieurs dossiers de type DocEM01, DocEM02... qui sont les dossiers d'émissions et un dossier REC de réception. J'ai réalisé un programme mais j'ai un message d'erreur 9 au niveau de ligne :
( Windows(chemin_EM + nom_EM).Activate)

Je suis sur que c'est un erreur dans l'utilisation des chemins mais je ne vois pas ou. J'ai essayé de modifier la syntaxe de la ligne mais rien n'y fait.

Merci de m'éclairer sur cette sombre affaire.

Mon programme :

Public Sub EM()
Dim DerE As Long, PremE As Long
Dim DerR As Long, PremR As Long

DerNC = 508
PremNC = 8

DerREX = 503
PremREX = 3


chemin_EM = "D: DocEM\MASTER\rw\"
chemin_REC = "D: DocREC\"
nom_EM = "NC_2017.xls"
nom_REC = "REC.xlsm"


    Windows(chemin_EM + nom_EM).Activate    '''Erreur'''
    Sheets("Saisie").Range("APremE:ADerE").Select
    Selection.Copy
    
     Windows(chemin_REC + nom_REC).Activate
     Sheets("FREX").Range("APremR:ADerR").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
     Windows(chemin_EM + nom_EM).Activate
    Sheets("Saisie").Range("CPremE:CDerE").Select
    Selection.Copy
    
     Windows(chemin_REC + nom_REC).Activate
     Sheets("FREX").Range("DPremR: DDerR").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    
    End Sub

-----

[Dlzlogic]

Bonjour,
Dans un très grand nombre de langages le back-slach est un caractère de contrôle. Lorsqu'il doit être utilisé, par exemple dans chemin, il doit être doublé. cad
chemin_EM = "D: DocEM\MASTER\\rw\\"
chemin_REC = "D: DocREC\\"
Essayez déjà cela.

[invite0bbe92c0]

Bonjour,
Dans un très grand nombre de langages le back-slach est un caractère de contrôle. Lorsqu'il doit être utilisé, par exemple dans chemin, il doit être doublé. cad

N'importe quoi; c'est vrai principalement pour les "C-like". (C, C++, C# - avec de plus un contournement pour ce cas -, Java .....)

Merci d'éviter ce genre de remarque à portée générale surtout quand elle est aussi fausse qu'ici.

[invite03856f0c]

Bonjour,

Dlzlogic : J'ai essayé avec ta nouvelle syntaxe mais cela perdure encore. J'ai toujours l'erreur 9 et la même ligne en surbrillance.

Je ne comprend pas pourquoi cela ne marche pas, il suffit juste d'appeler le classeur mais rien ne fait.
Je pense que mon erreur doit être dans la syntaxe.

[A voir en vidéo sur Futura]

[invite948b37db]

Bonjour
dans les 2 variables suivantes, il manque un backslash que j'ai ajouté en rouge.

chemin_EM = "D:\DocEM\MASTER\rw\"
chemin_REC = "D:\DocREC\"

[invite948b37db]

Bonjour
dans les 2 variables suivantes, il manque un backslash que j'ai ajouté en rouge.

chemin_EM = "D:\DocEM\MASTER\rw\"
chemin_REC = "D:\DocREC\"

Il est possible que l'erreur persiste si le programme n'est pas lancé depuis le disque D:\
Dans ce cas, il faut mettre un ChDrive("D") avant la ligne qui génère l'erreur

[invite0bbe92c0]

Bonjour,

Dlzlogic : J'ai essayé avec ta nouvelle syntaxe mais cela perdure encore. J'ai toujours l'erreur 9 et la même ligne en surbrillance..

Si tu avais lu ma réponse, tu n'aurais pas perdu de temps à essayer ça car ça n'a aucun sens.

[invite0bbe92c0]

Il est possible que l'erreur persiste si le programme n'est pas lancé depuis le disque D:\
Dans ce cas, il faut mettre un ChDrive("D") avant la ligne qui génère l'erreur

A noter que le PI avait posté un doublon où les path étaient corrects (c.a.d D:\xxx)

[invite948b37db]

A noter que le PI avait posté un doublon où les path étaient corrects (c.a.d D:\xxx)

Dans ce cas, voir mon second message avec chdrive

[invite03856f0c]

Bonjour,
à Bluedeep :
J'ai bien lu ta réponse avant d'essayer la méthode de Dlzlogic qui lui a essayé de m'aider.
Je n'ai pas les compétences nécessaires pour juger de la pertinence des réponses que l'ont m'apporte et je préfère "perdre mon temps" avec une personne qui essai de m'aider plutôt que de perdre mon temps avec une personne qui ne fait rien pour avancer mise à part critiquer les propositions.

Merci à toi cherbe pour tes réponses constructives. Je ne pourrai pas encore tester ta nouvelle syntaxe aujourd'hui je n'ai pas les fichiers nécessaires, je reviens vers vous dès que j'aurai testé vos propositions.

[Stan_94]

Bonjour,
pour information, j'ai essayer le même code avec le même résultat.
Pour moi, c'est donc une erreur dans l'utilisation de "Windows", qui demande à ce que le classeur à activer soit ouvert.

S'il ne l'ai pas auparavant, il faudrait donc faire :

    Workbooks.Open Filename:=chemin_EM + nom_EM
    Windows(nom_EM).Activate

Et L'objet Windows n'a pas à avoir le chemin complet du fichier mais juste le nom du classeur.

A tester !

[invite948b37db]

pour information, j'ai essayer le même code avec le même résultat.
Pour moi, c'est donc une erreur dans l'utilisation de "Windows", qui demande à ce que le classeur à activer soit ouvert.

Bien vu !
Soit le document est ouvert et il suffit de l'activer en utilisant seulement son nom ;
soit il est fermé et il faut une instruction Open. Dans ce cas, il devient actif (au 1er plan) et il est inutile de l'activer pour travailler dessus.