Discussion :

[LPRVMZ]

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 :

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

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

[goldstar]

Bonjour,

Il faut remplacer

Code :

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

1
2
3
 
 
Windows("NomSource").Activate

par

Code :

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

1
2
3
 
 
Windows(NomSource).Activate

Cordialement

[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

[Jean-Philippe André]

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

Code :

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

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

[goldstar]

La variable NomSource correspond au chemin complet du fichier et non au nom du fichier. Ca doit etre pour cela que ca bug !

[LPRVMZ]

Ca maaaaaaaaaaaaaarche !!!!

Merci pour lui et promis je recommencerai plus ^^

Bonne soirée à vous deux !