Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour,
Un simple IF devrait faire l'affaire :
If OldRep & NomFich = NewRep & NomFich Then
If MsgBox("attention un fichier existe, voulez vous l'ecraser?", vbYesNo) = vbYes Then
FileCopy OldRep, NewRep
else
FileCopy OldRep, NewRep
end if
Bonjour,
pourquoi ne pas stocker les variables dans des feuilles différentes selon le nom de l"utilisateur.
Tu peux utiliser environ("username"), et ainsi pouvoir faire afficher que la feuille de l'utilisateur connecté.
@+
Bonjour
Il me semble que tu es seras obligé d'ouvrir ton fichier excel pour pouvoir envoyé tes mails.
Tu peux faire une procédure événementielle à l'ouverture.
Ci-dessous un code assez simple à utiliser
Bonne journée
Sub envoiMail()
Dim mail As Object
Dim mailenvoyer As Object
Set mail =...
Bonjour,
dans un choix multiples pour une listbox, tu est obligé de passer par une boucle pour récupérer toutes les valeurs sélectionnés çà devrait donner le code suivant
With Me.ListBox3
Dim valeur As String
For i = 0 To ListBox3.ListCount - 1
If .Selected(i) = True Then...
Bonjour,
Dim nbLigne As Integer, i As Integer, j As Integer
nbLigne = Range("A1").CurrentRegion.Rows.Count
For i = 1 To nbLigne
If Range("C" & i) = "" Then
Exit Sub
Else
For j = nbLigne To i + 1 Step -1
compteur = Range("D" & i).Value
If...
Bonjour,
cela fonctionne, vous devez simplement faire afficher votre résultat, par exemple dans une msgbox,
essayez ceci :
cellule_j4 = Range("j4").Value
MsgBox cellule_j4
Cordialement
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.