Correction macro pour copier à la dernière ligne et validation??

  • Initiateur de la discussion Initiateur de la discussion fnony
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fnony

XLDnaute Occasionnel
Bonjour à Tous

Je souhaite exporter (tous les 15 jours) des données dans un autre classeur.[Data]

Pour ce faire je copie et colle mes données à la main et je voudrais automatiser cette manip.

J'ai commencé une macro mais je n'arrivé pas à :
- faire en sorte de coller mes données à la dernière ligne vide
- fermer "proprement" ma feuille "source"
- et la cerise sur le gateau serait de pouvoir copier "seulement si" le N° de la facture (colonne A des données copiées) (et/ou la date) n'est déja pas dans la feuille [data]

Ma macro fait appel a une feuille sur mon réseau aussi je ne l'ai pas mis en PJ.. si besoin je peux la mettre???

ci dessous mon bout de macro:


Sub ExportFact()
'
' ExportFact Macro
'

'
ChDir _
"\\srv-data\ODYSSEE\SERVICES GENERAUX\Commun\Parc_Véhicules\Parc Vehicule\Matrice"
Workbooks.Open Filename:= _
"\\srv-data\ODYSSEE\SERVICES GENERAUX\Commun\Parc_Véhicules\Parc Vehicule\Matrice\TéléchargementTID.xls"
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Columns("A:BH").Select
Selection.Copy
ActiveWindow.Close
Range("A176").Select
ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
End Sub

Merci de votre aide sur cette macro..

Francois
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
477
Retour