Discussion :

[mvgalli]

Bonjour, Je ne sais pas si aujourd'hui ce n'est pas ma journée pour programmer mais je n'arrive pas a ressoude le suite. J'ai un sub avec l'ouverture de deux classeurs pour copier/coller et traiter des tableaux. Le premier tableau s’exécute avant le code que je vais vous passer. Cette deuxième exécution ne fonctionne pas et je ne sais pas la raison. En exécutant pas a pas, je voie que la feuille s'ouvre mais après la macro ne continue pas son chemin; Je resume le code pour ne pas tout mettre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
classeursource.Activate
Worksheets("Overview").Activate
Workbooks.Open Filename:=Range("K7")
'introduire colonne "Honoraires de gestion" avec formule et introduction montant
Dim Classeurcible2 As Workbook
Set Classeurcible2 = ActiveWorkbook 'fichier que je viens d'ouvrir
 
Selection.Copy
classeursource.Activate
Sheets("RduContrat").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Une fois qu'il ouvre le fichier sur K7 la macro copy les informations uniquement sur là ou la cellule est active. J'ai essayé avec Selection.Copy ou avec "Range("A1").CurrentRegion.Copy" et rien.

Pouvez vous m'aider, svp?
Merci d'avance
Victoria

[riaolle]

Bonjour,

Essaie au maximum de ne pas utiliser Activate/Select/Selection/ActiveSheet et leurs copains. Qu'est-ce que exactement la sélection que tu veux copier? Y a-t-il un plage de cellule en particulier à copier?

Code :

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

1
2
3
4
5
6
Dim Classeurcible2 As Workbook
Set Classeurcible2 = Workbooks.Open Filename:=Range("K7")
'introduire colonne "Honoraires de gestion" avec formule et introduction montant
Classeurcible2.Range("A1:E100").Copy      '<----------------------------- à adapter <---------------------------------
classeursource.Sheets("RduContrat").Range("A1").PasteSpecial
Application.CutCopyMode = False

Je pense qu'il y a confusion dans les noms des objets : qui est la source, qui est la cible?
Remarque aussi la simplification au niveau de l'ouverture du classeur et de la définition de l'objet Classeurcible2.

Petite remarque : il y a un forum entièrement dédié à Excel-VBA, pour tes prochaines questions sur VBA, il faudra se tourner vers ce forum.

[Philippe Tulliez]

Bonjour,

En exécutant pas a pas, je voie que la feuille s'ouvre mais après la macro ne continue pas son chemin

Ah bon ?
A quelle ligne du code publié la macro s'arrête-t-elle ?

Je resume le code pour ne pas tout mettre.

Pour pouvoir t'aider, ce n'est pas un résumé qu'il nous faut mais la partie du code qui nous permettrait de comprendre ce qui se passe avec la déclaration des variables, etc.
Ainsi que le numéro de la ligne où il y a un problème et éventuellement le numéro de l'erreur et son texte

[Overeath]

Bonjour,
Si le problème perdure, tu devrais arrêter d'utiliser "copy" | "paste" et essayer quelque chose du genre :

Code :

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

1
2
3
Sub connect
Workbooks("Classeurdestination").Sheets("Feuil1").range("taplage").Value = Workbooks("classeursource").Sheets("Feuil1").range("taplage").Value
End Sub

Sinon riaolle a un code qui devrait marcher !

[mvgalli]

Merci a tous! Je suis en train de vérifier la solution de "rioalle" et je voie qu'il me donne une solution avec

Code :

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

Set Classeurcible2 = Workbooks.Open Filename:=Range("K7")

ça donne erreur il attends la fin de l'instruction après "open";

Du coup, j'ai essayé ce code et ça marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
classeursource.Activate
Worksheets("Overview").Activate
Workbooks.Open Filename:=Range("K7")
'introduire colonne "Honoraires de gestion" avec formule et introduction montant
Dim Classeurcible2 As Workbook
Set Classeurcible2 = ActiveWorkbook 'fichier que je viens d'ouvrir
Range("A1:N100").Copy      '<----------------------------- à adapter <---------------------------------
classeursource.Activate
Sheets("RduContrat").Range("A1").PasteSpecial
Application.CutCopyMode = False
Classeurcible2.Activate
ActiveWorkbook.Close False 'fermer le fichier texte sans sauvagarder changements

Merci, après je verrai comment améliorer la variabilisation du range(A1:N100)

[Philippe Tulliez]

Bonjour,

Set Classeurcible2 = Workbooks.Open Filename:=Range("K7")ça donne erreur il attends la fin de l'instruction après "open";

L'éditeur t'a sûrement indiqué qu'il y avait une erreur de syntaxe

Ceci fonctionnera mieux

Code :

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

Set Classeurcible2 = Workbooks.Open(Filename:=Range("K7"))