Enregistrement automatique d'un fichier dans One Drive
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 SubBonjour Doux Rêveur,
Merci pour votre retour.
Cependant cela ne fonctionne pas, même message d'erreur.
J'ai essayé une variable "OneDrive" comme ci-dessous mais autre message d'erreur :
Sub Bouton_enregistrer()
Dim Fichier As String
Dim CheminOneDrive As String
'Récupère le chemin OneDrive depuis l'environnement Windows
CheminOneDrive = Environ("OneDrive")
Fichier = CheminOneDrive & "C:\Users\carol\OneDrive\Mes fichiers\Macros Excel\" & Cells(1, 7).Value & ".xls"
ThisWorkbook.SaveAs Fichier
End Sub
Si vous voyer comment je peux avancer...
Bonne journée,
Dadams
Bonjour tous,
@Damdam, l'instruction donnée pour le chemin est une GROSSE erreur
CheminOneDrive = Environ("OneDrive")
Fichier = CheminOneDrive & "C:\Users\carol\OneDrive\Mes fichiers\Macros Excel\" & Cells(1, 7).Value & ".xls"
' Donne la valeur dans le fenêtre d'exécution
Debug.Print FichieEn effet la variable CheminOneDrive contient déjà la valeur "C:\Users\carol\OneDrive"
Si le dossier "Mes fichiers" et sous dossier "Macros Excel" existent bien dans le dossier OneDrive, Il faut donc mettre
CheminOneDrive = Environ("OneDrive")
Fichier = CheminOneDrive & "\Mes fichiers\Macros Excel\" & Cells(1, 7).Value & ".xls"A+
Bonjour JExcel2fr,
Merci pour votre réponse.
J'ai modifié le code comme indiqué mais un autre message d'erreur apparait :
Pourtant le chemin semble bon : ce que j'ai comme chemin dans OneDrive pour enregistrer mon fichier :
Et le fichier n'est pas utilisé ailleurs, ni doublon de nom.
Voyez-vous la solution ?
Salutations,
Dadams
Re,
Le nom du fichier ne semble pas être le bon "77C30A00" c'est un nom de fichier temporaire
A+