Nouveau fichier + copie des valeurs
Bonjour !
Alors, en essayant d'être clair.
J'essai, à partir d'un fichier excel 2003, de créer son double (une copie ou duplication), avec un ajout dans le nom tel que "sansformule". Et vous l'aurez compris, cette copie dois pouvoir être sans formule mais uniquement avec les valeurs. Comme un "copy/paste spécial valeur".
J'ai essayé de faire ceci:
Code :
Sub duplication_valeur()
Dim NomFichier, Chemin As String, Source As Range, Desti As Range
Chemin = "C:\Documents and Settings\user.user\Desktop\duplication valeur\"
//le fichier a enregistrer est sur le bureau
NomFichier = "ActiveWorkbook.Name" & "VALEUR" & ".xls"
//Dois-je mettre ThisWorkbook ou ActiveWordkbook ?
Set Source = ActiveWorkbook.Name
//Dois-je mettre ThisWorkbook ou ActiveWordkbook ?
Workbook.Add
//ligne qui j'imagine sert a définir "l'ActiveWorkbook"
Set Desti = ActiveWorkbook
Source.Copy Desti
ActiveWorkbook.SaveAs Chemin & NomFichier
End Sub
J'ai essayer des PasteSpecial, a base de XlPasteFormulas as XlPasteValues, mais je n'arrive pas a les faire marcher.
Grosso modo il me faudrait une formule pour
" Copier tout tel quel (Bordures, mises en forme, formats de dates...) sauf les formules ou on prend que les résultats "
un genre de " XlPasteAllExceptsFormulasAsValues "
Mais ou ajouter ce bout de code dans celui existant ?
Par la suite, j'aimerais aussi savoir si une macro pouvais ressembler à une variable global comme dans un langage de programmation. C'est à dire une variable que l'on pourrais appeler de n'importe quel document excel 2003 sans l'avoir rentrer auparavant dans les macros.
Si quelqu'un arrive à me dépêtrer de ce bourbier, merci d'avance parce que moi je ne m'en sors plus.
PS: Si quelqu'un pense plus simple de reprendre mon code à zéro, ne vous gênez pas
C'est plus que parfait, merci énormément.