Sauvegarde sinon enregistrer sous...

[Windfly]

Bonjour à tous,

Dans un des mes fichiers excel, je souhaiterais ecrire une macro en traduisant la fonction suivante :

Si la cellule A1 est égale au nom du fichier excel, alors je veux juste sauvegarder ce fichier à l'endroit où il est,
Par contre, si la cellule A1 est différente du nom du fichier, alors je veux enregistrer ce fichier avec le nom de A1 dans mes documents.

Est ce que je suis assez clair.... si ce n'est pas le cas, dite le moi.

Merci d'avance

Guillaume

 

[PascalXLD]

Bonjour

Essaies ceci

Sub toto()
If ThisWorkbook.Name = Sheets('Feuil1').Range('A1') & '.xls' Then
    ThisWorkbook.Save
Else
    ChDir 'C:\\\\\\\\Documents and Settings\\\\\\\\TonNom\\\\\\\\Mes documents'
    ActiveWorkbook.SaveAs Filename:='C:\\\\\\\\Documents and Settings\\\\\\\\si_ledean\\\\\\\\Mes documents\\\\\\\\' & Sheets('Feuil1').Range('A1') & '.xls'
End If
End Sub

 

[Windfly]

Merci beaucoup pour les mines d'or d'infomations que vous nous apportez, nous, petits 'Bidouilleurs' de macros.

Merci encore

Guillaume