Discussion :

[stephadm]

Bonjour au forum,

J'essaie de copier des lignes d'un classeur fermé vers le classeur actuellement ouvert
Un début de code que j'ai mis dans Feuil20(Trésorerie)

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
Private Sub ImportTresorerie()
Dim WbkSource As Workbook, LigSource As Integer, LigDest As Integer
 
Application.ScreenUpdating = False
 
Set WbkSource = Workbooks.Open("D:\Gestion\Gest-Fo.xls")
 
With ThisWorkbook.Sheets("Tresorerie")
    LigDest = .Range("c15")
End With
 
With WbkSource.Sheets("Tresorerie")
    .Range("c6:016").Copy Destination:=WbkSource.Sheets("Tresorerie").Range("C" & LigDest)
    Application.CutCopyMode = False
End With
 
WbkSource.Close True
Set WbkSource = Nothing
 
Application.ScreenUpdating = True
End Sub

J'ai une erreur encadré en jaune

Code :

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

.Range("c6:016").Copy Destination:=WbkSource.Sheets("Tresorerie").Range("C" & LigDest)

Pouvez-vous me dire pourquoi ça ne fonctionne pas ?

J'espère que je suis clair dans la description de ce que je veux faire.

Merci

Stephanie

[Invité]

Salut Stephandm

D'après ton code tu veux copier le Wbk source dans le wbk source !?
De plus tu ne définit pas correctement ta ligne de destination,
tes déclarations de ligne sont en Integer au lieu d'être en Long,
ta 2ème colonne source est 0 (zéro) au lieu de O (la lettre)

Mets plutôt ça

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
Private Sub ImportTresorerie()
Dim WbkSource As Workbook, LigSource As Long, LigDest As Long
 
Application.ScreenUpdating = False
 
Set WbkSource = Workbooks.Open("D:\Gestion\Gest-Fo.xls")
 
LigDest = 15
 
With WbkSource.Sheets("Tresorerie")
    .Range("C6:O16").Copy Destination:=ThisWorkbook.Sheets("Tresorerie").Range("C" & LigDest)
    Application.CutCopyMode = False
End With
 
WbkSource.Close True
Set WbkSource = Nothing
 
Application.ScreenUpdating = True
End Sub

A+

[stephadm]

Bonjour BrunoM45 et au forum,

BrunoM45, c'est l'inverse que je veux.

Il faut copier les valeurs uniquement du classeur Gest-Fo.xls fermé dans Feuil20(Trésorerie) les cellules C6:O16 vers classeur ouvert dans Feuil20(Trésorerie) les cellules C15:O25. Ceci s'effectue des que je clique sur l'onglet Tresorerie.

Avec le code ci-dessus, la copie s'effectue de Gest-Ent.xls vers Gest-Fo.xls !

Merci

Stephanie

[Invité]

Re,

Je ne sais pas ce qui c'est passé le code que j'avais mis n'a pas été modifié !?

Il faut modifier la destination par ThisWorkbook ...

Code :

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

Destination:=ThisWorkbook.Sheets("Tresorerie").Range("C" & LigDest)

A+

[stephadm]

bonsoir BrunoM45 et au forum,

J'ai des fenêtres de demande confirmation pour le déplacement avec des noms (Gestionnaire de noms dans Formules sur bandeau excel 2007). En effet, j'utilise dans mon classeur des plage dynamique.

Comment peut-on éviter ces messages et de valider à chaque fois ? Peut-etre utiliser la copie de valeurs

Merci

Stephanie

[Invité]

Re,

Essaye avec

Code :

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

1
2
3
application.DisplayAlerts = False
... le code
application.DisplayAlerts = True

A+

[stephadm]

re bonsoir BrunoM45 et au forum,

Je pense que mon probleme vient de la copie, il faut copier simplement les valeurs comme ceci

Code :

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

1
2
3
4
With WbkSource.Sheets("Tresorerie")
    .Range("C6:O16").Copy Destination:=ThisWorkbook.Sheets("Tresorerie").Range("C" & LigDest).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End With

mais j'ai une erreur sur

Code :

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

Paste:

Merci

Stephanie

[SfJ5Rpw8]

Pourquoi garder les messages d'erreurs pour toi ?

[stephadm]

bonsoir bbil

Je n'ai pas compris votre message. Comme, je l'ai indiqué dans le post précédent , le message d'erreur apparait sur le mot paste: avec la ligne

Code :

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

    .Range("C6:O16").Copy Destination:=ThisWorkbook.Sheets("Tresorerie").Range("C" & LigDest).PasteSpecial Paste:=xlPasteValues

souligne en rouge. Il est vrai que je suis seule devant mon écran et que les membres du forum ne voit pas ce qui y apparait, d'où l'importance de la précision des explications.

Stephanie

[SfJ5Rpw8]

Et donc le message il dit quoi ? : "erreur"

[stephadm]

re bbil

Le message

"Erreur de compilation:
Attendu : fin d'instruction"

Stephanie

[SfJ5Rpw8]

Moi j'aurais ecris cela sur deux lignes remplace destination:= par un retour chariot

[stephadm]

re bbil

Merci,

c'était tellement simple que je ne l'avais même pas pensé.
Par compte lors de la copie, il me garde la couleur du fond et le caractère gras de la première ligne,
en principe avec la copie de valeur, la mise en forme n'est pas conservé ?

Une idée ?

Stephanie

[stephadm]

bonjour BrunoM45, bbil et au forum

Désolée de ne pas avoir répondue plus tôt, j'ai eu quelques soucis de santé maintenant en forme. Je reviens vers vous pour vous faire part de ma solution.

Voici le résultat final que j'attendais et qui fonctionne

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
Dim WbkSource As Workbook, WbkDest As Workbook, LigSource As Long, LigDest As Long
 
Application.ScreenUpdating = False
 
Set WbkSource = Workbooks.Open("D:\Gestion\Gest-Fo.xls")
 
LigDest = 15
 
With WbkSource.Sheets("Tresorerie")
    .Range("C6:N16").Copy
    ThisWorkbook.Sheets("Tresorerie").Range("C" & LigDest).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End With
 
WbkSource.Close True
Set WbkSource = Nothing
 
Application.ScreenUpdating = True

Merci à vous

Stéphanie