Discussion :

[nunnu27]

Bonjour a tous,

Je sollicite votre aide (si vous le voulez bien; )) en ce qui concerne une erreur dans mon code qui génère un plantage.
Le but de ce code est de créer une sauvegarde dans une fichier spécifique de l'ordinateur (le dossier"contrôles"), la sauvegarde doit porté comme nom la valeur de plusieurs cellules "A3;A6;G7"(qui sont des mots et date ).
Puis l'ouverture de ce fichier.

Je sais qu'il existe déjà beaucoup de postes sur ce sujet mais malheureusement je ne trouve toujours pas le problème a mon code même avec plusieurs tests...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Save()
 
Dim CopyName As String
CopyName = Range("A3;A6;G7")
ActiveWorkbook.SaveCopyAs CopyName
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\studio16\Desktop\Contrôle\Contrôle Préliminaire\Contrôles.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
OpenFile = "C:\Users\studio16\Desktop\Contrôle\Contrôle Préliminaire\Contrôles.xls"
 
End Sub

Le message d'erreur se situe au niveau de

Code :

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

CopyName = Range("A3;A6;G7")

pourtant je ne vois pas comment l'ecrire autrement....

Merci de votre aide encore ne fois.

Cordialement

[Aquarium]

Bonjour,

Au niveau du nom du fichier, je marquerais plutôt de cette façon :

Code :

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

1
2
3
 
ActiveWorkbook.SaveAs Range("Prénom").Value & " " & Range("Nom").Value & " - " & Range("Origine").Value & "-" & Range("Destination").Value & ".xls"
Application.DisplayAlerts = True

avec les cellules suivantes :
A1 renommée en "Prénom"
A2 renommée en "Nom"
...

[nunnu27]

Bonjour Aquarium et merci

Oui en effet, peut-être que cette syntaxe me permettrait de ne plus avoir de plantage...
J'essaye ça tout de suite et vous tiens au courant.

Merci encore pour ton aide.

Amicalement

STP, a quoi sert l'instruction, quelle est son role dans mon programme?

Code :

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

Application.DisplayAlerts = True

Merci encore....

Cordialement

[Aquarium]

Il me semble que c'est pour que l'enregistrement se fasse en arrière plan, que ce soit transparent pour la personne qui utilise la macro.

[nunnu27]

RE,

MErci pour la précision Aquarium...

Cependant, le but est que le nom du fichier dépendent de la valeur de ces 3 cellules (car ces valeurs seront differentes à chaque fois"date, nom de site, etc...).

Du coup entre temps j'ai remodifié un peu mon code l'ai testé, et là....patatra !!!
J'ai bien eu une copi (pas dans le bon fichier, ni le bon nom...) mais mon fichier de base avit été endommagé !!!
Conclusion: obligé de refaire toutes les modifications effectuées depuis ce matin 9h00...... Bref, de pas très bon poils du coup...

Mais bon ca y est c'est reparré.

Donc maintenant je ferais une copie regulière de mon fichier

MErci

Cordialement

[nunnu27]

Re tout le monde,

Slolution trouvée:

Code :

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

1
2
3
4
5
Sub Nom_Classeur()
 
ActiveWorkbook.SaveAs Filename:=[B3].Value & "_" & [C6].Value & "_" & [J7].Value & ".xls"
 
End Sub

Topic résolu.

Merci encore pour votre aide

Cordialement