Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 24/11/2011, 14h15   #1
Membre à l'essai
 
Inscription : juillet 2009
Messages : 102
Détails du profil
Informations personnelles :
Localisation : France, Bas Rhin (Alsace)

Informations forums :
Inscription : juillet 2009
Messages : 102
Points : 22
Points : 22
Par défaut Dupliquer Classeur excel sans l'ouvrir

Bonjour,

Je voudrais pouvoir dupliquer un classeur excel (en utilisant SaveCopyAs, je suppose) depuis un autre classeur excel.

En détails:
Dans un classeur 1, le clic sur un bouton déclencherait :
Ouverture du classeur 2 (peut etre que ce n'est pas nécessaire)
SaveCopyAs "Temp" du classeur 2 en écrasant le fichier qui porte déjà le nom Temp

J'ai fait ça mais j'ai une erreur "erreur d'éxécution 9, l'indice n'appartient pas à la sélection"
Code :
1
2
3
4
5
stDate = Format(Date, ("dd.mm.yyyy"))
stCopie = "TempData.xls"
stCopieComp = "C:\Users\#Rapport Divers" & stCopie
Workbooks("C:\Users\#Rapport Divers\Divers du 22.11.2011.xlsx").Activate
Workbooks("Divers du " & stDate & ".xls").SaveCopyAs stCopieComp
L'erreur étant sur la ligne en rouge.

Questions supplémentaire, comment faire pour dans la première ligne avoir la date avec J-1?

Merci pour votre aide,

Bonne Journée
altra est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/11/2011, 15h54   #2
Membre Expert
 
Avatar de ZebreLoup
 
Homme Sebastien L
Ingénieur Financier
Inscription : mars 2010
Messages : 880
Détails du profil
Informations personnelles :
Nom : Homme Sebastien L
Âge : 33
Localisation : France, Val de Marne (Île de France)

Informations professionnelles :
Activité : Ingénieur Financier
Secteur : Finance

Informations forums :
Inscription : mars 2010
Messages : 880
Points : 1 867
Points : 1 867
Si tu ne modifies rien dans le fichier, il suffit de le copier.

Va voir ce lien

Et pour la date :
Code :
stDate = Format(DateAdd("d", -1, Date), ("dd.mm.yyyy"))
ZebreLoup est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/11/2011, 15h30   #3
Membre à l'essai
 
Inscription : juillet 2009
Messages : 102
Détails du profil
Informations personnelles :
Localisation : France, Bas Rhin (Alsace)

Informations forums :
Inscription : juillet 2009
Messages : 102
Points : 22
Points : 22
Ok merci,

J'ai eu un peu de mal avec la méthode pour copier, mais ça fonctionne. Pour la date ok pas de problème j'essaierai de m'en souvenir
altra est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 17h40.


 
 
 
 
Partenaires

Hébergement Web