Discussion :

[bigs3232]

bonjour
je voudrais copier la colonne A d'un fichier excel source vers la colonne A d'un autre fichier excel destinataire avec ce code
rien à faire çà ne copie pas .
j'ai manqué à quelque chose là?
sachant que les 2 fichiers sont déjà ouvertes
merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
Sub aa_99f_copy_range_nvfich()
Dim sourceColumn As Range, targetColumn As Range
fic_s = "d:\0temp\presta\travail_sos\batt_fini_base1c.xlsm"
fic_d = "d:\0temp\presta\ned_ajout_walk\ned_ajout.xlsm"
Set sourceColumn = Workbooks(fic_s).Worksheets(1).Columns("A")
Set targetColumn = Workbooks(fic_d).Worksheets(1).Columns("A")
sourceColumn.Copy Destination:=targetColumn
End Sub

[Marc-L]

Bonjour,

ne pas indiquer le dossier des fichiers, le nom étant suffisant :

Code :

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

Workbooks("batt_fini_base1c.xlsm").Worksheets(1).UsedRange.Columns(1).Copy Workbooks("ned_ajout.xlsm").Worksheets(1).Cells(1)

___________________________________________________________________________________________________________

     Merci de cliquer sur en bas à droite de chaque message ayant aidé puis sur pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[bigs3232]

merci marc.ca marche.j'ai regardé plusieurs solutions , vous trouvez toujours le plus simple

[Marc-L]

Solution que toi-même aurais pu - dû ! - trouver via l'Enregistreur de macro, si, si !
Puis évidemment en consultant l'aide VBA interne …

[bigs3232]

excusez moi de vous embêter .et si je voudrais coller que les valeurs et pas les formats ou les formules en provenance du fichier source ? j'aimerais bien savoir s'il y a d'autres méthodes qui marcheraient aussi car j'ai cherché sur internet et meme sur des sites anglais bizarrement ils proposent des méthodes mais çà na marchent pas apres mes tests

[Marc-L]

Là aussi un classique du forum :

Code :

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

1
2
3
    With Workbooks("batt_fini_base1c.xlsm").Worksheets(1).UsedRange.Columns(1).Cells
         Workbooks("ned_ajout.xlsm").Worksheets(1).Cells(1).Resize(.Count).Value = .Value
    End With

[bigs3232]

oui que du bon , je suis votre testeur avec plaisir

en m'inspirant de votre technique j'ai trouvé une autre méthode qui marche quand le range est sur la ligne 1 comme Range("c1") mais si je mets Range("c4")
ca ne marche pas .bizarre non?j'ai du loupé un truc

Code :

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

1
2
3
4
5
6
7
Sub aa_99fich1()
 fic_s = "batt_fini_base1c.xlsm"
 Set sourceColumn = Workbooks(fic_s).Worksheets(1).Columns("e:f")
 Set wb_d = Workbooks("1.xlsm").Worksheets(1)
  Set targetColumn = wb_d.Range("c1")
  sourceColumn.Copy Destination:=targetColumn
End Sub

[Marc-L]

La démonstration du post #6 fonctionnant déjà quelle que soit la première ligne utilisée dans la feuille de calculs …

Autre point que je voulais signaler dès la présentation initiale :
si utilisation de variables objet - ici inutiles ou superflues - ne pas oublier alors de les libérer avant la fin de la procédure ‼

Pour C4 cela ne joue pas sauf si la feuille de destination a été mal conçue !
Et comme d'habitude, l'effectuer déjà manuellement, voire en activant au préalable l'Enregistreur de macro …

[bigs3232]

oui le post 6 est super. Très générique facile à adapter. Un grand merci cher Marc

j'en profite pour respecter vos conseils dorénavant avec des Set var objet= Nothing pour vider mémoires avant fin de chaque sub

[Marc-L]

!