Discussion :

[markym]

Bonjour,

J'aimerais ouvrir 2 classeurs excel :

Le premier en parcourant une boîte de dialogue (jusqu'ici ça va)
et
Le second en allant chercher le fichier avec le chemin d'accès suivant (" C:\... \Test.xlsx ")

ici, le code met un message d'erreur " fichier introuvable" alors que pourtant il est bien là!

(ensuite j'aimerais pouvoir faire des copier/coller entre ces 2 fichiers)

Avez vous une explication, je pense à une erreur de syntaxe mais je ne parviens pas à trouver...

Merci d'avance,
Markym

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
    Dim objsource As Workbook
    Dim objcible As Workbook
 
    Set objsource = Application.Workbooks.Open(Application.GetOpenFilename, Local:=True)
 
    Set objcible = Application.Workbooks.Open (" C:\...  \Test.xlsx ")
    objcible.Activate

[Patrice740]

Bonjour,

Au lieu de " C:\... \Test.xlsx "
Écrire "C:\... \Test.xlsx" sans les espaces

[Invité]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set objcible = Application.Workbooks.Open ("C:\...  \Test.xlsx")

[markym]

Effectivement...
Je me suis bien fait avoir
Merci !