Discussion :

[johannj]

Bonjour le forum,

Je vous écris pour un copier coller "basique" ai-je envie de dire. J'avoue que je ne comprends pas ce qui cloche.

Le problème est le suivant:
j'ouvre un fichier texte, je copie les data et je veux les collées dans le classeur 2!! Quand je fais mon code, et que je le teste, çà marche.
Dès que j'affecte le code à une zone de texte (qui sert de bouton d'interface), plus rien ne marche. Et une fois que j'ai utilisé le bouton d'interface, même à partir du code VBA, çà plante!

Le code qui parait vraiment me poser soucis est le copier-coller suivant:

Code :

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

1
2
3
4
5
6
7
8
    
With TreatedFile 'qui est le fichier texte que j'ai ouvert
    dl = Range("A65536").End(xlUp).Row 'cherche le nombre de ligne
    dc = Range("IV1").End(xlToLeft).Column 'cherche le nombre de colonne
    
    Range(Cells(1, 1), Cells(CInt(dl), CInt(dc))).Copy WB.Worksheets(2).Cells(1, 1) 'WB est le fichier excel dans lequel je souhaite coller mes data, et plus précisément dans le classeur 2
   .Close (False)
End With

Quelqu'un a une idée SVP ?

Merci d'avance de votre aide;

Johann

[johannj]

Après vérification,

mon erreur de semble pas venir du code copier-coller.

Je regarde plus en détails afin de cibler l'erreur.

Cordialement,

Johann

[mapeh]

Bonjour,

A la lecture de ton code, je suppose que ton fichier "Texte" est un fichier Excel...

Dans ce cas, si tu veux t'y référencer grâce à l'instruction "With", il faut mettre des points (.) devant Range et Cells

Code :

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

1
2
3
4
5
6
7
With TreatedFile 'qui est le fichier texte que j'ai ouvert
    dl = .Range("A65536").End(xlUp).Row 'cherche le nombre de ligne
    dc = .Range("IV1").End(xlToLeft).Column 'cherche le nombre de colonne
 
    .Range(.Cells(1, 1), .Cells(CInt(dl), CInt(dc))).Copy WB.Worksheets(2).Cells(1, 1) 'WB est le fichier excel dans lequel je souhaite coller mes data, et plus précisément dans le classeur 2
   .Close (False)
End With

De plus, en déclarant tes variables dl et dc comme ceci :

Code :

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

1
2
Dim dl as Integer
Dim dc as Integer

tu n'as plus besoin du CInt...

Nota, pour les lignes, mieux vaut utiliser la variable dl en Long, ne sachant combien de lignes tu peux avoir

Bonne soirée