hypsis
Nouveau membre
Bien le bonjour.
Pour commencer je vais tenter de cadrer ma demande :
mon objectif est de récupérer les données d'un fichier (données de factures) pour les coller sur un autre classeur de récap.
Après survolage des 14 pages du fofo je n'ai pas trouvé ce qui m'intéresse précisément...
Mon problème est que j'aimerais coller ma sélection sur la prochaine ligne vide de mon fichier de récap.
N'ayant eu aucune formation en VBA je ne fonctionne quasiment qu'avec les macro d'imitations (désolé pour vos yeux )
Partie copie des données qui m'intéresse :
(améliorable ???)
Partie coller sur le fichier récap :
C'est là que mes problèmes arrivent =)
Comment coller sur la prochaine cellule vide ?
Je pense que ça se joue sur le point 2 : au lieu de
qu'est-ce que je dois mettre ? (cellule de la colonne A pour info)
Partie facultative (mais que j'aimerais optimiser )
Serait-il possible d'ouvrir le fichier de réception (S:\GESTION\- CdG°\YB\RECAP FACTURE\RECAP FACTURE.xls) au lieu d'activer le classeur :
avec un truc du genre
mais je n'ai aucune idée du reste de la syntaxe
y copier les info (ça c'est bon)
sauvegarder
ça marcherait ???
et le fermer (ça je sais pas comment faire)
Merci d'avance pour toutes les réponses que vous pourrez me fournir.
Et bon appétit aussi !!!
Pour commencer je vais tenter de cadrer ma demande :
mon objectif est de récupérer les données d'un fichier (données de factures) pour les coller sur un autre classeur de récap.
Après survolage des 14 pages du fofo je n'ai pas trouvé ce qui m'intéresse précisément...
Mon problème est que j'aimerais coller ma sélection sur la prochaine ligne vide de mon fichier de récap.
N'ayant eu aucune formation en VBA je ne fonctionne quasiment qu'avec les macro d'imitations (désolé pour vos yeux )
Partie copie des données qui m'intéresse :
Code:
Range("D2:G2").Select
Selection.Copy
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C17").Select
Application.CutCopyMode = False
Selection.Copy
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C13").Select
Application.CutCopyMode = False
Selection.Copy
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G49").Select
Selection.Copy
Range("N2").Select
ActiveCell.FormulaR1C1 = "=+VLOOKUP(R[-1]C,C[-13]:C[-7],7,FALSE)"
Range("J2:N2").Select
Selection.Copy
Partie coller sur le fichier récap :
Code:
Windows("RECAP FACTURE.xls").Activate
Range("2:2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("MODELE FACTURE.xls").Activate
Range("J2:N2").Select
Selection.ClearContents
Range("D1:G1").Select
End Sub
C'est là que mes problèmes arrivent =)
Comment coller sur la prochaine cellule vide ?
Je pense que ça se joue sur le point 2 : au lieu de
Code:
Range("2:2").Select
Partie facultative (mais que j'aimerais optimiser )
Serait-il possible d'ouvrir le fichier de réception (S:\GESTION\- CdG°\YB\RECAP FACTURE\RECAP FACTURE.xls) au lieu d'activer le classeur :
Code:
Windows("RECAP FACTURE.xls" ).Activate
Code:
ActiveWorkbook
y copier les info (ça c'est bon)
sauvegarder
Code:
SaveAs Filename:= _
"S:\GESTION\- CdG°\YB\RECAP FACTURE\RECAP FACTURE.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
et le fermer (ça je sais pas comment faire)
Merci d'avance pour toutes les réponses que vous pourrez me fournir.
Et bon appétit aussi !!!