Impossible d'ouvrir le fichier car son Extension ou son format

Résolu/Fermé
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
- Modifié par siamens_duj le 22/04/2016 à 13:35
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
- 22 avril 2016 à 16:12
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

siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
8
22 avril 2016 à 14:29
J'ai trouvé la réponse.

Le code est bon, je me suis simplement trompé en copiant le chemin ...
1
pijaku
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 700
22 avril 2016 à 15:27
Oui, cela arrive.
De même pour l'oubli d'un "/", ou d'un "\" en fin de chemin avant le nom de fichier...
A++
0
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
8 > pijaku
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021

22 avril 2016 à 16:12
Merci quand même pour votre aide.
0
pijaku
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 700
22 avril 2016 à 13:13
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...
0
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
8
Modifié par siamens_duj le 22/04/2016 à 13:17
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.
0