Discussion :

[lejack]

Bonjour à tous,

Je possède un classeur, servant de modèle. Ce modèle est répliqué environ une centaine de fois.

Mon problème, c'est qu'une fois le classeur sauvé dans un dossier, il ne l'ouvre pas pour faire les modifications que j'aimerais lui apporter, voici la partie du code concernant cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Set fso = CreateObject("Scripting.FileSystemObject")
Destination = "Table"
                If Not fso.FolderExists(Destination) Then
                       fso.CreateFolder (Destination)
                End If
                Application.ActiveWorkbook.SaveCopyAs Filename:=Destination & "\" & nam & ".xlsm"
 
                        If ThisWorkbook.name <> "TablesTemplate.xlsm" Then
                            Call Replacecountries(ref, nam, nou)
                        End If

Pour résumer, voici le processus que j'aimerais appliquer :
1) ouvrir le modèle 2) le sauver dans un dossier 3) ouvrir la copie sauvé, y appliqué le code contenu dans "replacecountries (ref,nam,nou) 4) fermer la copie 5) repartir sur le numéro 1

Pouvez-vous svp m'aider?

Bonne fin de journée

[Marc-L]

Bonjour,

code bon pour la poubelle car c'est du mauvais Copier / Coller !

A partir du moment qu'un classeur est enregistré en tant que classeur modèle (format spécifique d'Excel .xlt ou .xltm),
il suffit juste de l'ouvrir normalement puis de l'enregistrer via SaveAs, deux instructions suffisent ‼
Et même pas besoin d'ouvrir la copie car elle est déjà active !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Invité]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
with workbooks.add("c:\rep\fichier.xlsm")
.saveas "c:\rep\fichier2.xlsx"
.close false
End with

Édit:
Tu as raison Marc {ActiveWorkbook}

[Marc-L]

Ma remarque est effectivement valable pour les autres types de classeur
à la condition que le code ne soit pas contenu dans le classeur "modèle" car là,
c'est via SaveCopyAs puis ouverture normale de cette copie …

Bref déjà en s'entraînant manuellement avant de coder quoi que ce soit,
avec un peu de jugeote ce n'est vraiment pas compliqué …

[lejack]

Bonsoir,

Je conçois tout à fait que le code n'est pas optimale maintenant je ne suis pas programmeur, je fais ce que je peux...

Le code est effectivement dans le modèle. J'ai essayé le code proposé ci-dessus mais cela ne fonctionne pas.

Avez-vous d'autres suggestions ?

Merci de m'aider, je galère !

[Marc-L]

Sans savoir précisément « cela ne fonctionne pas » non car de notre côté cela fonctionne toujours bien …

Et expliquer donc les tenants & aboutissants car on ne peut pas ouvrir le classeur exécutant déjà le code
vu qu'il est déjà ouvert ‼     Lire le post #4 !   Juste une question de simple logique …
S'entraîner déjà manuellement, après ce sera si simple !

[lejack]

Cela ne fonctionne pas, bien entendu dans mon cas, je ne doute pas une seconde que ces commandes fonctionnement

On est bien d'accord, d'ou le fait que j'essaie de copier le workbook actif :
Application.ActiveWorkbook.SaveCopyAs Filename:=Destination & "\" & nam & ".xlsm"
Ensuite j'aimerais ouvrir la copie mais je ne trouve pas la commande.

Peut-être que je m'exprime mal...si je peux clarifier dites moi