Enregistrement automatique d'un fichier dans One Drive
D
Bonjour,
Je suis sur Excel 2019 et Windows 11.
En cliquant sur un bouton macro de mon fichier, je souhaite l'enregistrer au nom de la donnée saisie en cellule G1 (cells(1,7)).
Mais le code ci-dessous ne fonctionne pas...j'ai vérifié, le chemin dans OneDrive est le bon...
Je débute su OneDrive et je ne sais pas comment adapter le code.
Pouvez-vous m'aider ?
Sub Bouton_enregistrer()
Dim Fichier As String
Fichier = "C:\Users\carol\OneDrive\Mes fichiers\Macro Excel\" & Cells(1, 7).Value & ".xls"
ThisWorkbook.SaveAs Fichier
End Sub
Le message d'erreur que j'obtiens :
Salutations,
Dadams
Bonsoir,
à tout hasard, essayez comme ça ;
Sub Bouton_enregistrer()
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:="C:\Users\carol\OneDrive\Mes fichiers\Macro Excel\" & Cells(1, 7).Value & ".xls"
Application.EnableEvents = True
End Sub