Bonjours tout le monde ,
j'aurai besoin de votre aide je suis debutant ici
voici le fichier losque je laisse j'ai :
Erreur d'execution 13 Incompatibilité de type
j'aurai besoin de votre aide je suis debutant ici
voici le fichier losque je laisse j'ai :
Erreur d'execution 13 Incompatibilité de type
VB:
Function ChoixFichier() As String
'La variable est de type Variant car elle peut prendre les valeurs:
'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
'String: pour renvoyer le nom du fichier sélectionné.
Dim Fichier As Variant[ATTACH type="full"]1128666[/ATTACH]
'Affiche la boîte de dialogue "Ouvrir"
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
If Fichier = False Then Exit Function
ChoixFichier = Fichier
End Function
Function ChoixRepertoire() As String
'La variable est de type Variant car elle peut prendre les valeurs:
'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
'String: pour renvoyer le nom du fichier sélectionné.
Dim Dossier
Dossier = False
Application.FileDialog(msoFileDialogFolderPicker).Show
If (Application.FileDialog(msoFileDialogFolderPicker).SelectedItems.Count <> 0) Then
Dossier = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End If
'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
If Dossier = False Then Exit Function
ChoixRepertoire = Dossier
End Function
Sub delete_images()
Dim ws As Worksheet, image As Picture, reponse As Integer
For Each ws In Worksheets
ws.Activate
For Each image In ActiveSheet.Pictures
image.Visible = True
image.Select
reponse = MsgBox("Supprimer image trouvée " _
& Chr(10) & image.Name _
& Chr(10) & "X " & image.Left _
& Chr(10) & "Y " & image.Top _
& Chr(10) & "formule " & image.Formula, vbQuestion + vbYesNo, "Coucou J@@")
If reponse = vbYes Then image.Delete
Next image
Next ws
End Sub
Function creerRepertoire(Chemin As String) As Boolean
On Error Resume Next
RépertoireExiste = GetAttr(Chemin) And vbDirectory
If RépertoireExiste = True Then
Exit Function
Else
MkDir (Chemin)
End If
End Function
Public Function DossierExiste(MonDossier As String)
If Len(Dir(MonDossier, vbDirectory)) > 0 Then
DossierExiste = True
Else
DossierExiste = False
End If
If (MonDossier = "") Then
End If
DossierExiste = False
End Function
