Discussion :

[pcaille_fr]

Bonjour à tous,
je viens faire appel à vos connaissances.
Voilà mon problème, je souhaite copier depuis un fichier source "source_v3" les lignes de 4 à 12 dans plusieurs fichiers destinations.
Les fichiers destinations ont le même format que source à l'exception de ces lignes.
Le fichier source se trouve dans: D:\Pascal_PC\Documents\Test\Source
Les fichiers destinations se trouvent dans: D:\Pascal_PC\Documents\Test\Destination.
Je joint le fichier source et un exemple de fichier destination.
Je peux avoir jusqu'à 50 fichiers dans le répertoire "Destination"
J'espère avoir été clair

[pcaille_fr]

Bonjour,
j'ai rédigé ce debut de code pour faire un copier coller des cellules dont j'ai besoin.
Mais pour le collage, il fait référence à un fichier précis. J'aimerai que le collage se fasse sur la feuille que j'ai sélectionnée.
Je ne trouve pas la solution.
Peut être pouvez vous m'orienter?
Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Transf_gm()
'
' Transf_gm Macro
'
    Windows("source_v3.xls").Activate
    Rows("4:12").Select
    Selection.Copy
    Windows("AGNEAC004616T.xls").Activate
    Rows("4:4").Select
    ActiveSheet.Paste
    Selection.EntireRow.Hidden = True
    Range("A13").Select
End Sub

[RyuAutodidacte]

Bonsoir,

à lire : vba-excel-largument-destination-methode-copy

[pcaille_fr]

Bonjour RyuAutodidacte et merci pour ta réponse,
J'ai revu ma copie pour rédiger ce code

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
 
Sub zbalay_gmaor()
 
Dim repertoire As String
Dim wbook As Workbook
repertoire = "D:\Pascal_PC\Documents\Test\Destination"
 
unFichier = Dir(repertoire & "*.xls")
While unFichier > 0
    Set wbook = Workbooks.Open(repertoire & unFichier, , True)
    'appel de la macro
    Call ZTransf_gmaor
    wbook.Close False
    unFichier = Dir
Wend
End Sub

Mais il y a une erreur sur la ligne: Set wbook qui me renvoie:
Set wbook=Nothing
Auriez vous une idée sur la cause de cette erreur?
A vous lire.

[RyuAutodidacte]

Bonjour,

La 1ère chose à vérifier est le chemin du répertoire (un dossier).
Si on devait écrire le chemin en entier jusqu'au fichier on l'écrierai de cette manière :

Code :

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

"D:\Pascal_PC\Documents\Test\Destination\MonFichierTOTO.ExtentsionDuFichier"

donc pour le dossier/repertoire on doit avoir ceci :

Code :

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

repertoire = "D:\Pascal_PC\Documents\Test\Destination\"

Vérifier l'écriture du code est important, il suffit d'une lettre comme ici pour qu'il ne fonctionne pas, en l'occurence ici il manquait : "\"

Pour vérifier l'erreur, faire le code en pas à pas avec la touche F8, et à partir de la ligne surlignée en jaune indiquant l'erreur, vérifier les variables dans la fenêtres des variables locales.

j'ai pas testé le code mais c'est l'erreur qui saute aux yeux …

[pcaille_fr]

Bonjour RyuAutodidacte,
en effet c'était bien l'erreur, encore merci.
Tout fonctionne parfaitement après quelques ajustements.
A bientôt.