Problème lors de l'enregistrement d'une copie de mon fichier

**eric4459** · 07/05/2015, 13h35

Bonjour,
Je cherche à créé une macro pour envoyer un fichier par mail à plusieurs destinataire avec Outlook.
Le code va générer la liste des destinataire et la modifier si nécessaire, ajout et/ou suppression d'une adresse.
J'ai donc inséré une nouvelle feuille qui contient la liste des destinataires, feuille que je ne veux pas envoyer.
Je souhaite donc copier la feuille qui m’intéresse dans un nouveau et l'enregistrer dans le même dossier avec un nom légèrement modifié.
Pour cela j'ai inséré ces lignes dans ma macro.

Code :

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

1
2
3
4
5
6
7
8
Dim SourceFile As Workbook
Dim DestFile As Workbook
Dim Chemin As String
 
Chemin = ThisWorkbook.Path
Worksheets("WORKLOAD").Copy
Set DestFile = ActiveWorkbook
ActiveWorkbook.SaveAs Filename = Chemin & "\" & SourceFile.Name & "_"

Or le fichier copié est nommé "FALSE" et non pas du même nom que mon fichier source.
Quelle boulette ai-je commis ?

Merci pour votre aide et vos conseils

Eric

**Djohn92** · 07/05/2015, 14h14

en mettant :

debug.print Sourcefile.name
debug.print Chemin
, tu as quoi ?

**joe.levrai** · 07/05/2015, 14h14

Bonjour,

SourceFile = Nothing dans ton code présenté

ça ne doit pas être le seul problème, mais rectifie ça déjà, on verra ensuite si ça continue de coincer

**eric4459** · 07/05/2015, 14h26

Bonjour John et Joe,
J'ai bien évidement mis des petits espions un peu partout

, sur

Chemin

et sur

SourceFile.Name

et j'ai bien les valeurs que je recherche et pourtant... mon fichier s'enregistre avec comme nom "FALSE"

Cela me fait penser à une valeur que prendrai une variable,

=TRUE

ou

= FALSE

mais je ne sais pas d'où cela vient...

Pour info j'ai écris ces lignes sur la base du code suivant proposé par Bbill, une référence sur ce site selon moi:

Code :

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

1
2
3
4
5
6
7
8
Sub macro()
 Dim objWorkbookCible As Workbook
 Dim objworkbooksource As Workbook
  Set objworkbooksource = ActiveWorkbook
  Worksheets(1).Copy
  Set objWorkbookCible = ActiveWorkbook
  ActiveWorkbook.SaveAs objworkbooksource.Name & "_" & objworkbooksource.Worksheets(1).Name
End Sub

**joe.levrai** · 07/05/2015, 14h30

Euh ...

tu l'instancies où Sourcefile ?

je vois rien dans ton code ... contrairement à celui de bbil

Rajoute Set SourceFile = ActiveWorkbook juste après les déclarations, tu verras

Pour l'histoire du False : si le chemin d'accès est faux, ou le fichier ne comporte pas de nom ==> le retour est FALSE

C'est comme quand tu utilises la boite de dialogue "SaveAs" :

- si on indique un chemin et un nom de fichier : On a en retour une chaine de caractère qui représente la valeur
- si on annule la boite de dialogue : la chaine retournée et FALSE

**Djohn92** · 07/05/2015, 14h38

Par hasard, ca serait pas un problème d'extension ?

Quand j'utilisae l'enregistreur de macro j'ai

Code :

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

ActiveWorkbook.SaveAs Filename:="blabla\\Classeur1.xlsx"

AVEC une extention et un autre parametre genre FileFormat

en plus tu rajoutes un "_".

A creuser ?

**eric4459** · 07/05/2015, 15h12

Joe,
SourceFile est bien instancié, j'ai oublié de copier la ligne pour ce post, noyée parmi d'autre...

Code :

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

Set SourceFile = ActiveWorkbook

Par contre mon chemin ne peut être que correct car j'ai déclaré :

Code :

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

Chemin = ThisWorkbook.Path

Le nom est selon moi bien existant lui aussi et d'ailleurs je vois la valeur dans la fenêtre Espions.
Je vais mettre un espions supplémentaire sur

FileName

, histoire de voir...

et je ne vois rien, ma feuille est enregistrée, est active ce qui fait que mes espions cherche sur cette feuille, où il n'y a rien....

John,
J'ai mis

Code :

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

& "_"

histoire d'avoir un nom différent et ne pas écraser mon fichier source, mais même sans cela j'ai le même problème

Eric

**joe.levrai** · 07/05/2015, 16h13

Voici un exemple tout simple qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TestSaveAs()
 
Dim Chemin As String
Dim NomFichier As String
Dim Extension As String
 
 
Chemin = ThisWorkbook.Path
NomFichier = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 5)
Extension = Mid(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
Worksheets("Feuil1").Copy
ActiveWorkbook.SaveAs Chemin & "\" & NomFichier & "_" & Extension
 
End Sub

**eric4459** · 07/05/2015, 16h13

Joe et John
Auriez-vous une autre idée pour enregistrer ma feuille dans un autre classeur et dans un autre dossier par exemple, sachant que le fichier fichier d'origine est au format xlsm et que je voudrais un format xlsx.
En attendant pour contourner le problème je vais mettre mon code dans un fichier spécifique et j'irai chercher le fichier dont j'ai besoin dans un dossier donné, il ne sera donc plus au format xlsm puisqu'il n'y aura plus de macro dedans..

Eric

**joe.levrai** · 07/05/2015, 16h18

Pour passer d'un xlsm à un xlsx proprement, ajoute la propriété "FileFormat" avec la valeur xlExcel12

Code :

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

ActiveWorkbook.SaveAs Chemin & "\" & NomFichier & "_" & Extension, xlExcel12

**eric4459** · 07/05/2015, 16h22

Joe

C'est ce que je voulais, mais comme je veux un format xlsx j'ai simplement supprimé:

Code :

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

1
2
Dim Extension As String
Extension = Mid(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)

et remplacé

Code :

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

ActiveWorkbook.SaveAs Chemin & "\" & NomFichier & "_" & Extension

par

Code :

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

ActiveWorkbook.SaveAs Chemin & "\" & FileName & "_" & "xlsx"

Eric

**Djohn92** · 07/05/2015, 16h30

Je te l'avais dit ;-)

**eric4459** · 07/05/2015, 16h32

Joe, John, Le forum
Dès que j'aurai finalisé mon code je le mettrai dans la rubrique "Contribuez", je pense qu'il pourra servir... A tout le moins pour la partie qui génère la liste des destinataires multiples d'un mail.
Eric

**joe.levrai** · 07/05/2015, 16h37

oui ça pourra servir pour d'autres

j'irai jeter un œil ... et me permettrai de te piquer la méthode, ou d'y proposer une amélioration si ta solution est moins "jolie" ou "malléable" que la mienne (qui gère sur une même procédure des multi-listes de diffusions en fonction du type de mail que j'envoie ... en 2 boucle : une pour le type de mail, l'autre pour la mise en copie ou en destinataire principale)

**eric4459** · 07/05/2015, 16h53

Envoyé par Djohn92

Je te l'avais dit ;-)

Merci John, j'avais la tête dans le guidon et n'y ai pas fais attention

Eric

**AlainTech** · 31/05/2015, 11h57

Bonjour,

J'arrive un peu tard mais le problème d'origine était là:

Code :

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

ActiveWorkbook.SaveAs Filename = Chemin & "\" & SourceFile.Name & "_"

La bonne syntaxe est:

Code :

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

ActiveWorkbook.SaveAs Filename:=Chemin & "\" & SourceFile.Name & "_"

**eric4459** · 31/05/2015, 21h28

Merci Alain,
Des petits points, des petits points toujours des petits points, des points de première classe, des points de seconde classe ....

Problème lors de l'enregistrement d'une copie de mon fichier [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager