sauvegarde de fichier

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:

---

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:

---

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

---

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

Merci de votre aide encore ne fois.

Cordialement

Bonjour,

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

Code:

---

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"
...

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.:ccool:

Amicalement

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

Code:

---

Application.DisplayAlerts = True

---

Merci encore....;)

Cordialement

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.

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é !!!:cry:
Conclusion: obligé de refaire toutes les modifications effectuées depuis ce matin 9h00...:calim2::aie:... 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

Re tout le monde,

Slolution trouvée:

Code:

---

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