Berg1664
XLDnaute Occasionnel
Bonjour à tous j'ai besoin d'un sérieux coup de pouce
Avec le code ci dessous je suis parvenu à créer automatiquement un fichier dont le nom se trouve dans la cellule A1 de l'onglet "Base"
Par contre je ne parviens pas à indiquer à Excel le répertoire où je souhaiterais que ce fichier se crée (C:\users\...), il le crée par défaut l à l'endroit du dernier enregistrement
Mes multiples tentatives ne m'ont pas permis de trouver la bonne syntaxe
Je compte sur vous merci beaucoup par avance
Sub Classeur_ajouter()
n = Sheets("Base").Range("A1").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=n & ".xls"
End Sub
Avec le code ci dessous je suis parvenu à créer automatiquement un fichier dont le nom se trouve dans la cellule A1 de l'onglet "Base"
Par contre je ne parviens pas à indiquer à Excel le répertoire où je souhaiterais que ce fichier se crée (C:\users\...), il le crée par défaut l à l'endroit du dernier enregistrement
Mes multiples tentatives ne m'ont pas permis de trouver la bonne syntaxe
Je compte sur vous merci beaucoup par avance
Sub Classeur_ajouter()
n = Sheets("Base").Range("A1").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=n & ".xls"
End Sub