Bonsoir à vous tous,
@Pierrejean,
exellente idee de copier DATA2 dans un nouveau dossier sans formules, ni macro ni boutons.
-Je viens de decouvrir cette ligne:
Workbooks.Add (xlWBATWorksheet)
Quel est le sens de xlWBATWorksheet?
-Si j'ai plusieurs feuilles DATA2, DATA3, ...
Suffirait-il de dupliquer la ligne
ActiveWorkbook.SaveAs Filename:='C:/DATA2_' & Format(Date, 'dd_mm_yyyy_' & Format(Time, 'hh_mm'))
pour recopier les feuilles DATAx dans un seul classeur resultat
- Y-a-t-il moyen d'avoir le nom du classeur courant dans le code vba via une fonction vba et non le coder en dur? cela evite le probleme du changement du nom du classeur par un utilisateur.
-Dans ces 2 lignes
Range('H5:O29').Copy
Range('H5:O29').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
Est-il possible de parametrer dynamiquement la plage cible: Range('H5:O29')
H5 OK, 1ere cellule de la plage
parcontre la colonne 'O' est la derniere colonne de la ligne '4'
et '29' c'est la derniere ligne de la colonne G
Merci d'avance
KIM