Macro : Impossible de revenir sur un fichier source

Version imprimable

Bonsoir
je suis coincé sur ce module au moment ou je souhaite revenir sur mon fichier source.
Auriez-vous un oeil neuf qui me diriat pourquoi le fichier n'est pas réactivé.
Merci à tous :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
Sub Transfert1()
 
Dim NomSource As String     'Fichier source
Dim FichierTravail As String    'Onglet de travail
Dim NomBase As Integer
 
FichierTravail = ThisWorkbook.Name
 
'Nettoyer longlet de travail
Sheets("PROJETS CLEAN").Select
            cells.Select
                Selection.ClearContents
'Ouvrir le fichier de base en designant le chemin
NomBase = MsgBox("Choisissez la base à travailler", vbYesNo)
        If NomBase = vbNo Then
         Sheets("Tableaux").Activate
              Else
                 NomSource = Application.GetOpenFilename
                     MsgBox (NomSource)
'Ouvrir le fichier source et copier
    Workbooks.Open Filename:=NomSource        'Ouverture classeur source
        cells.Select
            Selection.Copy
'Retourne sur le fichier Reporting sur PROJETS CLAEN
    Windows(FichierTravail).Activate
        Sheets("PROJETS CLEAN").Select
              ActiveSheet.Paste
'retourne sur le fichier de base, arrête la copie et ferme le classeur
'mais ca bloque sous ce niveau !!!!
          Windows("NomSource").Activate
            Application.CutCopyMode = False
                ActiveWindow.Close
        End If
End Sub

24/11/2016, 16h33
goldstar
Bonjour,

Il faut remplacer
Code:

1 2 3 Windows("NomSource").Activate
par
Code:

1 2 3 Windows(NomSource).Activate
Cordialement
24/11/2016, 16h41
LPRVMZ

En effet j'ai une erreur de syntaxe (les yeus qui se croisent sur ce coup) mais après modification j'ai le même souci :(

Lorsque je passe le curseur sur la ligne cela m'aclaire le chemin exacte mais l'erreur 9 persiste en me disant "l'indice n'appartient pas à la sélection"

C'est à n'y rien comprendre :calim2:

Salut,

l'usage des Windows, je n'aime pas, je prefere de loin passer par des variables de type Workbook.

De plus, le copier/coller avec des Selection c'est le mal :aie:
Code:

1 2 3 4 5 6 Dim xlwbk As Workbook set xlwbk = Workbooks.Open (Filename:=NomSource) 'Ouverture classeur source xlwbk.worksheets(1).Range("A:Z").Copy destination:=Thisworkbook.Sheets("PROJETS CLEAN").Range("A:Z") xlwbk.close false Thisworkbook.Activate

24/11/2016, 16h51
goldstar

La variable NomSource correspond au chemin complet du fichier et non au nom du fichier. Ca doit etre pour cela que ca bug !
24/11/2016, 16h58
LPRVMZ

Ca maaaaaaaaaaaaaarche !!!!

Merci pour lui :) et promis je recommencerai plus ^^

Bonne soirée à vous deux !