Impossible d'ouvrir le fichier car son Extension ou son format [Résolu/Fermé]

Signaler
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
-
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
-
Bonjour,

J'ai un code qui créé un fichier en fonction du résulat d'une cellule.
Si quelque chose se trouve dans ma cellule alors il créé le fichier portant ce même nom.
Les chemins se situent sur Sharepoint.

Mon problème est que le fichier se créé bien, mais au moment de l'ouvrir il me dit
"Impossible d'ouvrir le fichier car son Extension ou son format n'est pas valide."

Le fichier est présent dans le répertoire mais est impossible à ouvrir même manuellement.

Après plusieurs recherche sur internet, le problème viendrait de "SaveAs" qui pourrait
endommager les fichiers. Cependant je ne sais pas comment faire autrement.

J'ai déjà exécuté ce code, parfois il copie sans endommager et d'autre fois il me fait cette erreur.


sub Crea()

Dim cheminMo, cheminCree as string
Dim Verif as Boolean

cheminMo = "https://..." 'Chemin sharepoint
cheminCree = "https://..." 'Chemin sharepoint
cheminCree = Replace(Replace(CheminCree, "https:", ""), "/", "\")


Sheets("Co").Select

For Each Cell In Sheets("Co").UsedRange.Columns("A").Cells

If Cell.Row > 1 Then

Num = Range("A" & Cell.Row).Value
Sem = Range("K" & Cell.Row).Value

File = Sem & ".xlsx"

Sheets("Part").select

For Each Ligne In Sheets("Part").UsedRange.Columns("A").Cells

Tld = Name & "_OK" & Num & ".xlsx"

If Tld = Ligne.value then

Verif = true

Tld = ""
exit for
else
Verif = False
end if
next


If Verif = False then

Workbooks.Open (cheminMo & File)

Application.DisplayAlerts = False

ActiveWorkbook.SaveCopyAs cheminCree & Tld
Workbooks.Open (cheminCree & Tld)

Range("A1").value = Num

end if

end if

Sheets("Co").Select

next

end sub


Merci pour votre aide.

2 réponses

Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
2 485
Bonjour,

Tout d'abord, explique moi ce que font ces trois lignes de TON code :
File = Sem & ".xlxs"

Name = File
Name = Replace(Name, ".xlxs", "")


Ensuite, tu parles de soucis liés à SaveAs alors que tu utilises SaveCopyAs.
As tu tenté avec SaveAs?
Pas clair...
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
6
Bonjour,
Suite à une modification j'ai laissé ces lignes, ce qui est une erreur !
Il faut que garder :

File = Sem & ".xlsx"

J'utilise SaveCopyAs car justement je veux juste créer une copie du fichier que je viens d'ouvrir.
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
6
J'ai trouvé la réponse.

Le code est bon, je me suis simplement trompé en copiant le chemin ...
Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
2 485
Oui, cela arrive.
De même pour l'oubli d'un "/", ou d'un "\" en fin de chemin avant le nom de fichier...
A++
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
6 >
Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020

Merci quand même pour votre aide.