La macro n'enregistre cas mon fichier sous car inexistant

Re : La macro n'enregistre cas mon fichier sous car inexistant

Bonsoir juventinino,

Sans doute remplacer Activebook par ActiveWorkbook...

Et dans le chemin peut-être des espaces à supprimer ?

A+

Re : La macro n'enregistre cas mon fichier sous car inexistant

Merci job75 d'avoir bien voulu répondre à mon brouillon...
Je reposte ici ma macro comme ça ça sera plus clair.

Sub Suite()

On Error Resume Next

'Année

If Dir("C:\" & Range("M2").Value) = "" Then
FileSystem.MkDir ("C:\" & Range("m2").Value)
End If

'Trimestre

If Dir("C:\" & Range("m2").Value & "\Q" & Range("e11").Value) = "" Then
FileSystem.MkDir ("C:\" & Range("m2").Value & "\Q" & Range("e11").Value)
End If

'Groupe

If Dir("C:\" & Range("m2").Value & "\Q" & Range("e11").Value & "\" & Range("Q2").Value) = "" Then
FileSystem.MkDir ("C:\" & Range("m2").Value & "\Q" & Range("e11").Value & "\" & Range("Q2").Value)
End If

'Entité

If Dir("C:\" & Range("m2").Value & "\Q" & Range("e11").Value & "\" & Range("Q2").Value & "\" & Range("G2").Value) = "" Then
FileSystem.MkDir ("C:\" & Range("m2").Value & "\Q" & Range("e11").Value & "\" & Range("Q2").Value & "\" & Range("G2").Value)
End If

Dim Source As Variant
Dim Destin As Variant

Source = C:\" & Range("C2").Value & "*.*"
Destin = C:\" & Range("m2").Value & "\Q" & Range("e11").Value & "\" & Range("Q2").Value & "\" & Range("g2").Value & "\"
Dim objOFS As Variant
Set objOFS = CreateObject("Scripting.FileSystemObject")
objOFS.MoveFile Source, Destin

On Error GoTo 0

ThisWorkbook.SaveAs Filename:= _
"C:\" & Range("M2").Value & "\Q" & Range("e11").Value & "\" & Range("Q2").Value & "\" & Range("G2").Value & "\" & Range("G2").Value & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

En fait hier le chemin que j'avais écrit correspond aux valeurs de mes cellules. Encore une fois, j'ai fait un poste rapide en espérant que qqun décripte mon charabia et me trouve une idée lumineuse.

Comme ma macro le montre peut-être, je suis un débutant dans le domaine donc toute proposition est bonne à prendre!

Encore merci!

Re : La macro n'enregistre cas mon fichier sous car inexistant

Trouvé!!!!!!!!

la réponse à ma question : le chemin que je voulais créer était trop long (plus de 218 caractères)

Pour plus d'infos :
Message d'erreur lorsque vous ouvrez ou enregistrez un fichier dans Microsoft Excel: «Nom de fichier n'est pas valide»

merci quand même d'avoir essayé!

Re : La macro n'enregistre cas mon fichier sous car inexistant

Re,

juventinino à dit:

Trouvé!!!!!!!! (...) merci quand même d'avoir essayé!

Cliquez pour agrandir...

Bravo, et ya pas de quoi vu qu'on n'a rien essayé.

Vu que le fichier était absent au bataillon 🙄

A+