Discussion :

[graphikris]

Bonjour,

Je dispose d'une macro qui me crée un nouveau classeur en m'intitulant "Classeur 3" par exemple au cas où il y aura déjà eu 2 nouveaux classeurs créés avec mon classeur actuel (Base de données) ouvert.
Avec le code suivant :

Code :

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

1
2
3
Dim Wbk As Workbook
    Set Wbk = Workbooks.Add
    Wbk.Activate

Grace a ceci, je fais des copier/coller de mon classeur actuel (Base de données) vers ce nouveau classeur.
Dans cette macro, à un certain moment, çà me crée encore un nouveau classeur (classeur 4 si je suis la logique) dans lequel vienne se coller des infos du premier classeur crée (classeur 3), voici le code :

Code :

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

1
2
Application.DisplayAlerts = False
    Sheets("Matrice").Copy

.

Ce classeur 4 doit être obligatoirement enregistré sur mon disque dur puis fermé.
Actuellement j'ai ce code mais çà bloque sur la ligne 1 :

Code :

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

1
2
ActiveWorkbook.SaveAs AdresseRépertoire & "\" & "Name" & ".xls"
    ActiveWindow.Close

Concernant l'adresse du répertoire où vient s'enregistrer le classeur, voici le code :

Code :

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

AdresseRépertoire = ActiveWorkbook.Path

Je suppose que celà est dû au classeur 3 qui est ouvert mais que je peux fermé car la macro reprend ensuite sur ce classeur 3.

En espérant avoir été avoir clair,
Cordialement,
_____ Graphikris.

[78chris]

Bonjour

Tu dois fermer le classeur (activeWorkbook) et non la fenêtre (ActiveWindow)

[graphikris]

Merci Chris,
Je viens de modifier mais çà perdure car le souci est sur :

Code :

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

ActiveWorkbook.SaveAs AdresseRépertoire & "\" & "Name" & ".xls"

et non sur la 2ème ligne.
Effectivement je mets : ActiveWorkbook alors que j'ai 3 classeurs ouverts,il faut que je lui indique que c'est le dernier qui vient d'être crée que je dois enregistrer sur le disque dur.

Cordialement

[78chris]

Re

N'as-tu pas un fichier portant le même nom (Name en l'occurence) dans ce dossier ?

[graphikris]

Non pas du tout et meme si le fichier existait déjà je devrais avoir :
le fichier "Name.xls" existe déjà, voulez vous le remplacer ? Oui ou Non

En fait il faut un code permettant de faire comprendre a Excel que c'est le dernier classeur créé qui doit etre enregistré bien que d'autres sont ouverts.

Cordialement.

[Marc-L]

Bonjour.

En fait la réponse est certainement dans le code mais comme il n'est pas partagé …

Comment est créé le classeur 4 ? S'il dispose lui aussi d'une variable objet …

Non pas du tout et meme si le fichier existait déjà je devrais avoir :
le fichier "Name.xls" existe déjà, voulez vous le remplacer ? Oui ou Non

Ben non vu que dans le code DisplayAlerts = False !